TCPSend wird nicht gesendet

Freaky

Hallo,
ich möchte aus langeweile ein TCP Chat über Lan schreiben.
Jetzt ist das Problem das nichts am Server ankommt.
Was mache ich Falsch ?

Clien

[autoit]

TCPStartup()
$socket = TCPConnect(@IPAddress1, 65432)
If $socket = -1 Then MsgBox(0, "ERROR", "Port Falsch")

[/autoit] [autoit][/autoit] [autoit]

Local $start = TimerInit()
Do
$ConnectedSocket = TCPAccept($socket)
Until $ConnectedSocket <> -1 Or (TimerDiff($start) > 25000)

[/autoit] [autoit][/autoit] [autoit]

While 1
$send = TCPSend($ConnectedSocket, "hi")
MsgBox (0,"",$send)
WEnd

[/autoit]

Server

[autoit]

TCPStartup()
$socket = TCPListen(@IPAddress1, 65432, 100)
If $socket = -1 Then MsgBox(0, "ERROR", "Port Falsch")

[/autoit] [autoit][/autoit] [autoit]

Local $start = TimerInit()
Do
$ConnectedSocket = TCPAccept($socket)
Until $ConnectedSocket <> -1 Or (TimerDiff($start) > 25000)

[/autoit] [autoit][/autoit] [autoit]

While 1
$rec = TCPRecv($ConnectedSocket, 2048)
If $rec <> "" Then MsgBox (0,"",$rec)
WEnd

[/autoit]

TheShadowAE

Naja einer muss ja Connecten, wenn beide auf eine Verbindung warten klappt das nicht

Freaky

Es ist normal das der Server auf ein Client wartet

**Sprenger120**

am besten du gehtst mal unter mit dem port nimm doch 8799

clezZ

Ne, du lässt ja Client und Server aktzeptieren!

TheShadowAE

Oh sorry ich hab den Server doppelt gesehen, ich meinte bei beidem stand TCPListen

Freaky

Ok ich habs
Ich muss beim Client nicht TCPListen sondern TCPConnect benutzen

Habe jetzt zweites Problem.
Ich möchte das 2 Client auf 1 Server zugreifen.
Wie kriege ich das hin ?

TheShadowAE

Mehrere TCPAccepts und die Sockets verwenden

clezZ

Gleichen Port, aber verschiedene IP.
Dann müsste es gehen.
Du musst halt immer auf eingehende verbindungen prüfen, bis beide clienten verbunden sind.

Freaky

Der Client soll doch immer auf die IP vom SServer gehen oder nicht

könnte mir jemand ein Beispiel machen pls

clezZ

Die Clienten versuchen sich mit dem Server zu connecten, während der Server eingehende Verbindungen aktzeptiert.

Freaky

Schon bewusst
Das Problem ist nur, das er bei der ersten verbindung die aufnahme abbricht und die bestehende benutzt

oetzn

Du musst das so machen:

(Server)
While 1
$TempSocket = TCPAccept($Socket)
If $TempSocket <> -1 Then _ArrayAdd($aClients, $TempSocket)
Wend

und in der Endlosschleife, prüft er halt auch noch gleich mit einer For-Schleife, ob von irgendeinem Client etwas empfangen wurde. Im Prinzip musst du einfach nur jeden TCP-Befehl in eine Schleife packen (TCPSend, TCPRecv, TCPCloseSocket) außer bei TCPAccept musst du natürlich etwas zum Array hinzufügen, wie oben bereits geschrieben.

Freaky

Danke klapt supper.

Ich möchte jetzt das man von Client zum Server was sendet, dann der Server es zu einem anderen Client weiterschikt.
Wie kriege ich das hin ?

oetzn

du brauchst eine For-Schleife in der du alle Sockets durchgehst und falls etwas empfangen wird in einen Array schreiben.
Anschließend den Array mit einer For-Schleife abarbeiten und für jedes Element mit einer For-Schleife an jeden Client das empfangen senden!