German Chatverbindung aufbauen

Sub Process_Globals
   Dim CltSock As Socket
   Dim Astreams As AsyncStreams
   Dim ip As String : ip = "192.168.*.****"
   Dim port As Int : port = ****
End Sub

Sub Globals
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("ClientForm")
   CltSock.Initialize("Client")
        CltSock.Connect(ip,port,20000)
End Sub

Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
End Sub

Sub Client_Connected(ConStatus As Boolean)
   If ConStatus = True Then
      Msgbox("Verbunden!","")
        Astreams.InitializePrefix(CltSock.InputStream, False, CltSock.OutputStream, "AStreams")
      SendCommand("HI")
   Else
       Msgbox(LastException.Message, "Keine Verbindung möglich")
   End If   
End Sub

Sub SendCommand(Command As String)
   Try
   If Astreams.IsInitialized = False Then Return
      Dim sNewLine As String
      sNewLine = ""
      sNewLine = Command
        Dim buffer() As Byte
        buffer = sNewLine.GetBytes("UTF8")
        Astreams.Write(buffer)
          ToastMessageShow("Erfolgreich versandt.",False)
   Catch
   ToastMessageShow("Fehler aufgetreten.", False)
   End Try
End Sub

'Buttons SendCommand(String)
Sub Button1_Click
   SendCommand("1")
End Sub

Sub AStreams_NewData (Buffer() As Byte)
   ...
    
   Msgbox(msg,"") 
End Sub

Astreams.Initialize(CltSock.InputStream, CltSock.OutputStream, "AStreams")

Sub Activity_Pause (UserClosed As Boolean)
   CltSock.Close 
   ToastMessageShow("Verbindung getrennt ", False)
End Sub