If astream.IsInitialized Then
astream.Close
End If
If socket.IsInitialized Then
socket.Close
End If
socket.Initialize("socket")
socket.Connect(host,port,0)
Wait For socket_Connected (Successful As Boolean)
If Successful Then
Log("Connected")
astream.InitializePrefix(socket.InputStream,True,socket.OutputStream,"astream")
Dim mm As Mymessage
mm.Initialize
mm.icon=ser.ConvertObjectToBytes(Application.Icon)
mm.name="myname"
mm.lastname="mylastname"
astream.Write(ser.ConvertObjectToBytes(mm))
Else
Log("wait for connection..")
End If