Sub Process_Globals
Dim ClientSocket As Socket
Dim AStreams As AsyncStreams
Dim buffer() As Byte
End Sub
Sub Globals
Dim cmdConnect As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout ("main")
End Sub
Sub cmdConnect_Click
If Not(ClientSocket.IsInitialized) Then
ClientSocket.Initialize("ClientSocket")
End If
ClientSocket.Connect("192.168.1.3", 7610, 2000)
End Sub
Sub ClientSocket_Connected (Successful As Boolean)
If Successful Then
AStreams.InitializePrefix(ClientSocket.InputStream, False, ClientSocket.OutputStream, "AStreamsIn")
Else
ClientSocket.Close
End If
End Sub
Sub AStreamsIn_Error
Msgbox (LastException.Message , "")
End Sub