Sub oSocket_Connected(Connected As Boolean)As Boolean
If Connected = True Then
ToastMessageShow("Conectado",True)
oAStreams.Initialize(oSocket.InputStream,oSocket.OutputStream,"oAstreams")
Else
ToastMessageShow("Servidor no disponible",True)
End If
End Sub
Sub SendtoSocket( cOp As String, cTrama As String )
Dim cString As String
cString = "#INI|20121202~"& CRLF
If oAStreams.IsInitialized = False Then Return
If cString.Length > 0 Then
Dim buffer() As Byte
buffer = cString.GetBytes( "UTF8" )
oAStreams.Write( buffer ) ' Aqui no envia el buffer / no send buffers
ToastMessageShow( cString, True )
End If
End Sub