Sub Process_Globals
Dim AStreams As AsyncStreams
Dim Server As ServerSocket
Dim Socket1 As Socket
End Sub
Sub Globals
Dim TCP_Commando As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
IPadres = ****
TCPpoortTELNET = "55555"
If FirstTime Then
Server.Initialize(TCPpoortTELNET, "Server")
Server.Listen
'Log("Mijn IP = " & Server.GetMyIP)
Socket1.Initialize("Socket1")
Socket1.Connect(IPadres,TCPpoortTELNET,20000)
End If
TCP_Commando = ".en" & CRLF
end sub
Sub btn_refresh1_click
' test voor de telnet/socket verbinding, maakt gebruik van Lib: Network en RandomAccesssFile
If AStreams.IsInitialized = False Then Return
If TCP_Commando.Length > 0 Then
Dim buffer() As Byte
buffer = TCP_Commando.GetBytes("UTF8")
AStreams.Write(buffer)
'EditText1.SelectAll
Log("Verzenden: " & TCP_Commando)
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
' test voor socket
If UserClosed Then
Log("Sluiten")
AStreams.Close
Socket1.Close
End If
End Sub
Sub Server_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
Log("Verbonden")
Socket1 = NewSocket
AStreams.InitializePrefix(Socket1.InputStream, False, Socket1.OutputStream, "AStreams")
'AStreams.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams")
Else
Log(LastException.Message)
End If
Server.Listen
End Sub
Sub AStreams_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
'ToastMessageShow(msg, False)
Log("Ontvangen:")
Log(msg)
End Sub
Sub AStreams_Error
Log(LastException.Message)
End Sub
Sub Socket1_Connected(Connected As Boolean)
If Connected = True Then
Log("PLC Verbonden.")
AStreams.Initialize(Socket1.InputStream, Socket1.OutputStream,"Astreams")
Else
Log("PLC niet bereikbaar.")
End If
End Sub
