TCP/IP Send

[LurchMan]

Hey everyone -

I'm working on a small Server / Client situation by just sending messages to the server (like it shows in the help file) which works fine the first time, but after that it looks like it sends the message, and doesn't present any errors, but the message doesn't show up on the server. Is there something I'm missing or is it not suppose to send multiple messages?

Thanks for any help provided.

Client:

Func _LaunchJob($sJobName, $sCoder, $IP, $sRegion = "Test")
    Local $Port = 33891
    Local $sParm = $sRegion & ' "' & $sJobName & '" ' & $sCoder

    $ConnectedSocket = TCPConnect($IP, $Port)
    If @error Then
        If @error = 10061 Then
            MsgBox(0, "", "Error: " & @error & @CRLF & "Server cannot be found.")
            Exit
        Else
            MsgBox(0, "", "Unknown Error: " & @error & @CRLF)
            Exit
        EndIf
    EndIf
    TCPSend($ConnectedSocket, $sParm)
    If @error Then
        MsgBox(16, "Error", "An error has occured when attempting to send message to server." & @CRLF & "Error: " & @error)
    EndIf
EndFunc   ;==>_LaunchJob

Server:

TCPStartup()

$mainsocket = TCPListen(@IPAddress1, 33891)

$ConnectedSocket = -1

Do
    $ConnectedSocket = TCPAccept($mainsocket)
Until $ConnectedSocket <> -1

While 1
    $sParms = TCPRecv($ConnectedSocket, 2048)
    If @error Then ExitLoop
    If $sParms <> "" Then
        GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & _NowCalc() & ": " & $sParms & @CRLF)
        _LogIt(_NowCalc() & ": " & $sParms)
        _StartJob($sParms)
    EndIf
WEnd

_LogIt(_NowCalc() & ": " & "Client Disconnected.")
MsgBox(0, "Close", "Client Disconnected.")
TCPCloseSocket($ConnectedSocket)
TCPShutdown()

[Jos]

Probably because you connect every time while your server goes from listening to process after the first connect by the client.

Assume you do not get the client disconnected. message after the first time sending information?

Jos

[LurchMan]

No I do not. I do not know much about the TCP / IP stuff with scripting, would you mind elaborating a little more on that?

[Jos]

This is what meant: You connect each time you call _LaunchJob() ... this tries to initialise a new connection with the server.

$ConnectedSocket = TCPConnect($IP, $Port)

[LurchMan]

Ok, so how would I get around that? Store the connected sockets in an array or is there a better way? There is a possibility of it sending commands to 6 different computers, and I cant have the same command going to each computer.

[Jos]

Well you either connect one time and send all information after that or connect/send data/disconnect at the client side and after disconnection go back in listen mode at the server side.

Jos

Edited November 10, 2010 by Jos

[LurchMan]

Ok, I understand now, Thank you for your help.