Hallo,
ich komme einfach nicht dahinter was ich falsch mache. Weder die Hilfe-Beispiele noch das sehr großzügige Script "TCP File Transfer mit automatischem Start" von gtaspider helfen mir auf die Sprünge.
Warum kann ich hiermit nicht eine stinknormale Textzeile von einem PC zum andern übertragen (Testweise bleibe ich mit der gleichen IP auf dem selben PC)
TCP_Listen (= Server)
[autoit];SERVER!! Start Me First !!!!!!!!!!!!!!!
[/autoit][autoit][/autoit][autoit]$g_IP = @IPAddress1
$TCP_PORT = 65432
msgbox(4096,"test",@IPAddress1)
[/autoit][autoit][/autoit][autoit]TCPStartUp() ; Start The TCP Services
[/autoit][autoit][/autoit][autoit]$MainSocket = TCPListen($g_IP, $TCP_PORT, 100) ; Create a Listening "SOCKET"
If $MainSocket = -1 Then
msgbox(4096,"test","Ende 01")
Exit
EndIf
While 1
$ConnectedSocket = TCPAccept( $MainSocket) ; look for client connection
If $ConnectedSocket >= 0 Then
msgbox(0,"","my server - Client Connected")
ExitLoop
EndIf
Wend
$text = TCPRecv($nSocketRecv, 2048)
[/autoit][autoit][/autoit][autoit]msgbox(4096,"test","Ende 02"&$text)
[/autoit]TCP_Connect (=Client)
[autoit]
;CLIENT!!!!!!!! Start SERVER First... dummy!!
$g_IP = @IPAddress1
$TCP_PORT = 65432
TCPStartUp() ; Start The TCP Services
[/autoit][autoit][/autoit][autoit]$MainSocket = TCPListen($g_IP, $TCP_PORT, 100 ) ; Connect to a Listening "SOCKET"
If $MainSocket = -1 Then msgbox(4096,"Fehler", " Windows API WSAGetLasterror Nr. "&@error )
$x = TCPSend($Mainsocket, "test test test3")
If @error Then ExitLoop
Vielen Dank
Viele Grüße
Carsten