Anfänger braucht Rat für kleinen Chat
Verfasst: 01.09.2008 12:01
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
CLIENT
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.
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()
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()
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.