TCP Client and Server

[GuessMyName]

Hello

I have been training in TCP connections and with the help of some tutorials i have made a Client and a Server here are the Scripts:

Client:

Tcpstartup()

$Socket = TCPConnect(@IPAddress1, 403)

If $Socket = -1 Then
MsgBox(0, "Error", 'Could not conncet to the server')
EndIf

;$SendBytes = TCPSend($Socket, 'Hello, client has made connection with the server')
While 1
$Order = InputBox('Send Order', 'Type your order here:')
$SendBytes = TCPSend($Socket, $Order)

If $SendBytes = 0 Then
MsgBox(0, 'Error', 'The packet was not able to reach the server')
EndIf
WEnd

TCPCloseSocket($Socket)
TCPShutdown()

Server:

TCPStartup()

$MainSocket = TCPListen(@IPAddress1, 403)

While 1
$AcceptedSocket = TCPAccept($MainSocket)

If $AcceptedSocket <> -1 Then
$RecievedData = TCPRecv($AcceptedSocket, 1000000)
If $RecievedData <> "" Then
MsgBox(0, 'Data Recived', $RecievedData)
TCPCloseSocket($AcceptedSocket)
EndIf
EndIf
WEnd

I don't know why but the Client does not work i mean this does not work:

$Order = InputBox('Send Order', 'Type your order here:')
$SendBytes = TCPSend($Socket, $Order)

However if i delete this:

While 1
$Order = InputBox('Send Order', 'Type your order here:')
$SendBytes = TCPSend($Socket, $Order)

If $SendBytes = 0 Then
MsgBox(0, 'Error', 'The packet was not able to reach the server')
EndIf
WEnd

And insert this instead (Without comment mark of course), it works (sends the text):

;$SendBytes = TCPSend($Socket, 'Hello, client has made connection with the server')

Anyone can help me?

Thanks

[water]

Have a look at the examples in the help file for TCPSend and TCPReceive. The examples show how it should be done.

[GuessMyName]

Ha I corrected my script now it works.

Client:

HotKeySet('E', '_Exit')

TCPStartup()

$TCPConncet = TCPConnect(@IPAddress1, 403)

If $TCPConncet = - 1 Then Exit

;TCPSend($TCPConncet, 'Close')

While 1
$Order = InputBox('Send Order', 'Type your order here:')
TCPSend($TCPConncet, $Order)
WEnd

Func _Exit()
Exit
EndFunc

Server:

HotKeySet('~', '_Exit')
TCPStartup()

$TCPListen = TCPListen(@IPAddress1, 403)

Do
$TCPAccept = TCPAccept($TCPListen)
Until $TCPAccept <> -1

While 1
Do
$TCPRecive = TCPRecv($TCPAccept, 1000000)
Until $TCPRecive <> ""
MsgBox(0, 'Data Recived', $TCPRecive)
WEnd

Func _Exit()
Exit
EndFunc

[water]

Glad you could solve your problem