TCP ich checks nicht

[V8II]

Hi epvpers,
Sorry das ich euch noch mal nerven muss. Ich habe mir gerade ein Tutorial über TCP/IP angesehen und wollte einen eigenen kleinen server mit client machen , über die man nachrichten schicken kann.
naja total simpel aufgebaut, aber der Server funtzt nicht...

PHP Code:

TCPStartup()
$socket=TCPListen("127.0.0.1",5663)
while 1
    Do
    $accept=TCPaccept($socket)
    Until $accept <> -1 
        $verbinderMSG=TCPRecv($accept,4321)
        If $verbinderMSG > 0  Then
        MsgBox(0,"Nachricht",$verbinderMSG)
    EndIf
    Wend 


Eigentlich müsste er die nachricht in einer Msgbox wiedergeben...

hier noch zur kontrolle der kleine client:

 Spoiler

TCPStartup()
HotKeySet("{esc}","end")
$socket=TCPconnect("192.168.10.101",5663)
If $socket=-1 Then
MsgBox(16,"Fehler","Fehler beim Verbindungsaufbau")
EndIf
while 1
$text=InputBox("Senden","Was soll gesendet werden?")
$daten= TCPSend($socket,$text)
If $daten=0 Then
MsgBox(16,"Fehler","Der Text konnte nicht gesendet werden!")
EndIf
wend

Func end()
TCPCloseSocket($socket)
TCPShutdown()
Exit
EndFunc

Bitte helft mir ich verteile natürlich THX's

[omer36]

hmm..

versuchs mal hiermit: (hatte ich aus dem forum iwann mal abgespeichert..)

 Spoiler

server:

PHP Code:

MsgBox("","","Server wird gestartet!")
TCPStartup() ; TCP wird initialisiert

$mainsocket = TCPListen("127.0.0.1", 4321) ; Den mainsocket erstellen

While 1 ; Endlosschleife
    $acceptedSocket = TCPAccept($mainsocket) ; Wir versuchen eine möglicher Verbindung anzunehmen

    If $acceptedSocket <> -1 Then ; Wenn $acceptedSocket ungleich -1 ist, ...
        $receivedData = TCPRecv($acceptedSocket, 1024) ; Wenn eine Socketverbindung hergestellt wurde, empfange ein Paket vom Client ($connectedSocket)
        MsgBox(64, "Nachricht empfangen!", "Es wurde eine Nachricht empfangen: " & @CRLF & $receivedData)
        TCPCloseSocket($acceptedSocket)
    EndIf
WEnd 


client:

PHP Code:

MsgBox("","","verbinde zum server....")
$sendtext = InputBox("Nachricht", "Bitte text eingeben, die gesendet werden soll")

TCPStartup() ; TCP wird initialisiert

$socket = TCPConnect("127.0.0.1", 4321) ; Versucht eine Verbindung zum Server aufzubauen und speichert die SocketID in "$socket" ab

If $socket = -1 Then ; Wenn $socket = -1 ist, Fehlermeldung ausgeben
    MsgBox(16, "Error", "Die Verbindung zum Server konnte nicht hergestellt werden!") ; Fehlermeldung
EndIf

$sendedBytes = TCPSend($socket, $sendtext) ; Sendet den Text an unseren verbundenen Socket

If $sendedBytes = 0 Then ; Wenn der Rückgabewert von TCPSend(...) 0 ist, Fehlermeldung ausgeben
    MsgBox(16, "Error", "Das Paket konnte nicht gesendet werden.") ; Fehlermeldung
EndIf

TCPCloseSocket($socket)
TCPShutdown() 


vllt kommt ja gleich einer, der weiß, woran es scheitert ^^

[V8II]

okay danke dir er ist meinem eigentlich relativ ähnlich...
Hm ich setze mich nochmal dran und versuche das Problem zu finden.

[omer36]

geht es denn mit dem ? (also bei mir klappts...)

[V8II]

Ja funktioniert danke.
Ich würde nur trotzdem gerne wissen warum meines falsch ist...

EDIT:
Okay ich habs ... etwas unglaubwürdig naja man muss die Inputbox schon vor dem verbinden abgefragt haben, nicht erst nach dem verbinden und vor dem senden...