Multiple connections

[Drchubby]

Are multiple tcp connections possible to one port on the server? And can a server coded in autoit handle multiple connections?

thanks

[Andreik]

Are multiple tcp connections possible to one port on the server? And can a server coded in autoit handle multiple connections?

thanks

Yes, I write an example (not tested):

SERVER

HotKeySet("{ESC}","Quit"); Press ESC to quit

Global $CURRENT_SOCKET = 0
Global $CONNECTED_SOCKET[16]
Global $TCP_SERVER

$TCP = TCPStartup()
If $TCP = 0 Then
    MsgBox(0, "Error", "Unable to startup TCP Services!")
    Exit
EndIf

$TCP_SERVER = TCPListen(@IPAddress1,1777,16)
If $TCP_SERVER = -1 Then
    MsgBox(0, "ERROR", "Unable to start listening on port 1777")
    Exit
EndIf

While 1
    $CONNECTED_SOCKET[$CURRENT_SOCKET] = TCPAccept($TCP_SERVER)
    If $CONNECTED_SOCKET[$CURRENT_SOCKET] <> -1 Then
        $CURRENT_SOCKET += 1
    EndIf
    For $INDEX = 0 To 15
        $RECV = TCPRecv($CONNECTED_SOCKET[$INDEX],512)
        If $RECV <> "" Then MsgBox(0,"Socket#" & $INDEX,"DATA:" & $RECV)
    Next
    Sleep(20)
WEnd

Func Quit()
    TCPCloseSocket($TCP_SERVER)
    TCPShutdown()
    Exit
EndFunc

CLIENT - Change @IPAddress1 with Server IP

HotKeySet("{ESC}","Quit"); Press ESC to quit
HotKeySet("#s","SendCom") 

$PORT = 1777
$IP = @IPAddress1

$TCP = TCPStartup()
If $TCP = 0 Then
    MsgBox(0, "Error", "Unable to startup TCP Services!")
    Exit
EndIf

$TCP_CLIENT = TCPConnect($IP,$PORT)
If $TCP_CLIENT = -1 Then
    MsgBox(0, "ERROR", "Unable to connect "& $IP & " on port 1777")
    Exit
EndIf

While 1
    Sleep(50)
WEnd

Func SendCom()
    TCPSend($TCP_CLIENT,"THIS IS A TEST")
EndFunc

Func Quit()
    TCPCloseSocket($TCP_CLIENT)
    TCPShutdown()
    Exit
EndFunc