Sub Process_Globals
Private server As ServerSocket
End Sub
Sub Globals
Private port As Int = 5614
Private astream As AsyncStreams
End Sub
Sub Activity_Create(FirstTime As Boolean)
If (FirstTime = True) Then
Activity.LoadLayout("Main")
server.Initialize(port,"server")
End If
End Sub
Sub btnConnect_Click
Do While True
server.Listen
Wait For server_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
If astream.IsInitialized Then astream.Close
astream.Initialize(NewSocket.InputStream, NewSocket.OutputStream,"astream")
End If
Loop
End Sub
Sub astream_NewData (Buffer() As Byte)
Dim buff As String = BytesToString(Buffer,0,Buffer.Length,"utf8")
Dim response As String = buff & " message has been received"
astream.Write(response.GetBytes("utf8"))
End Sub