Sub Process_Globals
Dim Server As ServerSocket
Private astream2 As AsyncStreamsText
Dim websockets(6) As Socket
Dim i As Int =0
End Sub
Sub AppStart (Form1 As Form, Args() As String)
Server.Initialize(12345,"server")
Server.Listen
End Sub
Sub server_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
astream2.Initialize(Me,"astreams" & i ,NewSocket.InputStream,NewSocket.OutputStream,NewSocket)
websockets(i)=NewSocket
End If
i = i+1
Server.Listen
End Sub
Private Sub astreams0_NewData (Buffer() As Byte)
Log(websockets(0).RemoteAddress & " : " & Buffer)
End Sub
Private Sub astreams1_NewData (Buffer() As Byte)
Log(websockets(1).RemoteAddress & " : " & Buffer)
End Sub
Private Sub astreams2_NewData (Buffer() As Byte)
Log(websockets(2).RemoteAddress & " : " & Buffer)
End Sub
Private Sub astreams3_NewData (Buffer() As Byte)
Log(websockets(3).RemoteAddress & " : " & Buffer)
End Sub
Private Sub astreams4_NewData (Buffer() As Byte)
Log(websockets(4).RemoteAddress & " : " & Buffer)
End Sub
Private Sub astreams5_NewData (Buffer() As Byte)
Log(websockets(5).RemoteAddress & " : " & Buffer)
End Sub
]