Sub Process_Globals
Private ast As AsyncStreamsText
Dim Socket1 As Socket
Dim Ti As Long
End Sub
Sub Globals
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Socket1.Initialize("Socket1")
Socket1.Connect("192.168.1.111", 403,0)
'ast.Initialize(Me, "ast", Socket1.InputStream, Socket1.OutputStream)
End Sub
Sub Socket1_Connected (Successful As Boolean)
If Successful = False Then
Msgbox(LastException.Message, "Error connecting")
Return
End If
ToastMessageShow("Connected successfully", False)
ast.Initialize(Me, "ast", Socket1.InputStream, Socket1.OutputStream)
End Sub
Sub Button1_Click
ToastMessageShow("btn ckd",False)
SendData("Message you want to send here")
SendData("Message you want to send here" & CRLF) ' You many need to send CRLF with the message ?
End Sub
Sub SendData (msg as string)
Dim buffer() as Byte
Buffer = msg.GetBytes("UTF8")
ast.Write(Buffer)
ast.Write(Array as Byte(254)) ' << Not sure if this line is required, (may want to try without it first)
End Sub