Передача данных по TCP

[u-Art]

Приветсвую!

Возникла загвоздка при попытке организовать передачу текста в локальной сети по схеме:

Скрипт на сервере

#include <GUIConstants.au3>
;SERVER! Start Me First !
$g_IP = "192.168.1.4"

; Start The TCP Services
;==============================================
TCPStartUp()

; Create a Listening "SOCKET"
;==============================================
$MainSocket = TCPListen($g_IP, 65432,  2)
If $MainSocket = -1 Then Exit

While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
	$data = TCPRecv ( $MainSocket, 100)
   	MsgBox(0, "test data", $data)
	TCPShutdown ()
    Exit
EndIf
Wend

Скрипт на клиент-машине

$g_IP = "192.168.1.4"

; Start The TCP Services
;==============================================
TCPStartUp()

; Connect to a Listening "SOCKET"
;==============================================
$socket = TCPConnect( $g_IP, 65432 )
If $socket = -1 Then Exit

$data = "Test"
TCPSend ( $socket, $data )
TCPShutdown ()

При запуске скрипта на стороне клиента, на сервере выполняется условие If $ConnectedSocket >= 0 Then, но переменная данных пустая.
Пробовал менять условие $ConnectedSocket >= 0 на $data <> "", в этом случае скрипт не выходит из цикла.

 

[dwerf]

Попробуйте вместо

$data = TCPRecv ( $MainSocket, 100)

$data = TCPRecv ( $ConnectedSocket, 100)

 

[Belfigor]

Вот кошерная штука. Пользуйся ею.

 

[u-Art]

Благодарю dwerf

$data = TCPRecv ( $ConnectedSocket, 100)

Помогло, правда не сразу, пришлось интуитивно, методом тыка вставить паузу на стороне отправки (достаточно 1 таблэтки (с), тьфу 1 мс):

TCPSend ( $socket, $data )
Sleep (1)
TCPShutdown ()

иначе приходит пустая строка.
Отдельное спасибо, Belfigor, будет чем занять мозг на досуге.