Sub Process_Globals
Public server_entrada As ServerSocket
Private cliente_entrada As Socket
' To read from keybord/input
Dim sys As JavaObject
Dim reader As TextReader
Private astream As AsyncStreams
End Sub
Sub AppStart (Args() As String)
Log("Hello world!!!")
server_entrada.Initialize(2000, "server_entrada")
server_entrada.Listen
' enable reading from input
sys.InitializeStatic("java.lang.System")
reader.Initialize(sys.GetField("in"))
StartMessageLoop ' ready to receive data from clients
End Sub
' My problem is:
' How do I do to catch input from the USER controlling the server via keyboard while using StartMessageLoop?
' --------------------------------------------------------------------------
Sub readln As String
Return reader.ReadLine
End Sub
Sub ProcesaOrden(orden As String) As Boolean
Select orden
Case "END"
'exit application, close server orderly,...
Case "LU"
'list clients
Case "RESET"
' reset connections
Case Else
' etc.
End Select
Return True
End Sub
'-----------------------------------------------------------------
Sub Server_entrada_NewConnection (Successful As Boolean, NewSocket As Socket)
' Se conecta un cliente que quiere ENVIARNOS ECG
If Successful Then
Log("New client")
server_entrada.Close
server_entrada.Initialize(2000,"server_entrada")
server_entrada.Listen
astream.Initialize(cliente_entrada.InputStream,cliente_entrada.OutputStream,"astream")
End If
End Sub
Sub AStream_NewData (Buffer() As Byte)
' do things
End Sub