'Service module
Sub Process_Globals
Dim Client As Socket
Dim filestreamAusgang As AsyncStreams
...
End Sub
Sub Verbindungsaufbau
Client.Initialize("Client")
Client.Connect ("92.199....","32001",5000)
End Sub
Sub client_Connected (Successful As Boolean)
If Successful Then
filestreamAusgang.Initialize(Client.InputStream, client.OutputStream, "filestreamAusgang")
ToastMessageShow("Connected", False)
end if
End Sub
Sub filestreamAusgang_NewData (Buffer() As Byte)
UKSP_Pufferlaenge=Buffer.Length
UKSP_Puffer_Bytes=Buffer
UKSP_Server_auswerten
End Sub