Anfänger braucht Rat für kleinen Chat

[Ironsmurf]

Hallo zusammen

probiere gerade einen kleinen Chat zu entwickeln.
Habe auch ein passendes Beispiel gefunden, jedoch kommt der String vom Clienten nicht beim Server an.
Probiere beide Programme zur Zeit noch auf einem Rechner aus.
Vieleicht könnt ihr mir sagen wo der Fehler ist.

SERVER

Code: Alles auswählen

InitNetwork()
If ExamineIPAddresses()
  IP.l = NextIPAddress()
EndIf
*buffer = AllocateMemory(1000)
If CreateNetworkServer(0, 6832)
  OpenConsole()
  PrintN("Server Online Listening on IP (" + IPString(IP) + ")")
  Repeat
    Select NetworkServerEvent()
      Case 0
        If Left(Inkey(), 1) = Chr(13)
          Quit = 1
        EndIf
        Delay(50)
      Case 1
      PrintN("")
        PrintN("Ein neuer Client hat Connectet")
        ClientID.l = EventClient()
      Case 2
      Debug String$
        length.l = ReceiveNetworkData(ClientID, *buffer, 1000)
        String$ = PeekS(*buffer, 1000)
        PrintN(String$)
    EndSelect 
  Until Quit = 1
EndIf
FreeMemory(*buffer)
End 
CloseConsole()

CLIENT

Code: Alles auswählen

If InitNetwork() = 0
  MessageRequester("Error", "Error")
EndIf
ip$ = "192.168.2.101"
;Debug ip$
ConnectionID = OpenNetworkConnection(ip$, 6832)
If ConnectionID
  OpenConsole()
  ConsoleCursor(10)
  ConsoleColor ( 13,00 )
  PrintN("Erfolgreich zum Server verbunden")
  String$ = Input()
  If String$
    SendNetworkData(ConnectionID, @String$, Len(String$))
  EndIf
Debug String$
EndIf 
CloseConsole()

Vielen Dank im voraus
PS: Es wäre schön, wenn mir jemand erklären könnte, wie das ganze funktioniert zwischen Server und Client und wieder zurück.
Gedacht ist es als Consolen-Programm.

[Kiffi]

In der PB-Hilfe gibt es ein ganzes Kapitel zum Thema Network. Dort findest
Du auch einen Beispiel-Source für Client-/Server-Kommunikation, in dem
Du nachschauen kannst, wie das mit SendNetworkString() funktioniert.

Grüße ... Kiffi