Permits an incoming connection attempt on a socket.
TCPAccept ( mainsocket )
| mainsocket | The main socket identifier (SocketID) as returned by a TCPListen function. |
| Success: | Returns connected socket identifier. |
| Failure: | Returns -1 and set @error |
| @error: | windows API WSAGetError return value (see MSDN). |
;SERVER!! Start Me First !!!!!!!!!!!!!!!
Local $g_IP = "127.0.0.1"
; Start The TCP Services
;==============================================
TCPStartup()
; Create a Listening "SOCKET"
;==============================================
Local $MainSocket = TCPListen($g_IP, 65432, 100)
If $MainSocket = -1 Then Exit
; look for client connection
;--------------------
While 1
Local $ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket >= 0 Then
MsgBox(0, "", "my server - Client Connected")
Exit
EndIf
WEnd