sock.Initialize("sock")
sock.Connect("192.168.4.1", 80, 5000)
' sock.Connect(EdtSend.Text, 80, 10000)
Wait For sock_Connected (Successful As Boolean)
If Successful Then
astream.InitializePrefix(sock.InputStream, False, sock.OutputStream, "astream")
' astream.Write(ser.ConvertArrayToBytes(RecordToObjects(rec)))
' astream.Write(ser.ConvertArrayToBytes( Array ("teste de envio") ))
Buffer_Rec = ""
astream.Write( bc.StringToBytes ( pMensagem, "UTF8" ) )' ( "xxGET /set/clear/998557019/9012", "UTF8") )
xFlag = True
Do While xFlag
Wait For astream_NewData (Buffer() As Byte)
xResp = bc.StringFromBytes ( Buffer, "UTF8")
If xResp = "EOL" Then
xFlag = False
Log ( "Recebidos: " & Buffer_Rec )
Else
Buffer_Rec = Buffer_Rec & xResp
End If
Loop
Set_Sv_Mensagens ( Buffer_Rec , Altura_Mensagem)
Else
Log ( "Erro Conexão socket Token " & wifi.WifiIpAddress & " - " & LastException )
Set_Sv_Mensagens ( trans.translate( "Problemas conexão SOS Token " ) , 30dip)
End If