Private socket As Socket
Private astream As AsyncStreams
Private r As Reflector
Private aout As JavaObject
Sub Button1_Click
socket.Initialize("socket")
s.Connect(Addr,Port,3000)
End Sub
Private Sub socket_Connected (Successful As Boolean)
If Successful Then
astream.Initialize(socket.InputStream,socket.OutputStream,"astream")
r.Target=astream
r.Target=r.GetField("aout")
'Log(r.GetField("working"))
aout=r.GetField("out")
astream.Write("MyText".GetBytes("UTF8"))
aout.RunMethod("flush",Null) ' force send
End If
End Sub
Private Sub astream_NewData (Buffer() As Byte)
Log("* " & Buffer.Length)
End Sub
Private Sub astream_Terminated
End Sub
Private Sub astream_Error
End Sub