Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim Socket1 As Socket
Public server As ServerSocket
Dim AStreams As AsyncStreams
Public connected As Boolean
End Sub
public Sub ConnectToServer
If AStreams.IsInitialized Then AStreams.Close
If Socket1.IsInitialized Then Socket1.Close
Dim sock As Socket
Socket1 = sock
Socket1.Initialize("Socket1")
' Socket1.Connect(Variablen.IPaddress, Variablen.Port, Variablen.ConnectionTimeout)
'Am Anfang, kein Timeout - Falls ein Fehler auftritt, wollen wir Java uns sagen lassen was los ist
Socket1.Connect(Variablen.IPaddress, Variablen.Port, 0)
Wait For Socket1_Connected (Successful As Boolean)
If Successful Then
' AStreams.InitializePrefix(Socket1.InputStream,False,Socket1.OutputStream,"Astreams")
Dim aStream as AsyncStreams
AStreams = aStream
AStreams.Initialize(Socket1.InputStream,Socket1.OutputStream,"Astreams")
Else
If AStreams.IsInitialized Then AStreams.Close
If Socket1.IsInitialized Then Socket1.Close
CallSub(Input_Output, "SetState")
End If
End Sub