Accept the Next Incoming Connection

See more Socket/SSL/TLS Examples

Demonstrates Socket.AcceptNext, which waits for and accepts the next incoming connection on a listening socket, delivering it as a new connected Socket.

Local $bSuccess = False

$oSocket = ObjCreate("Chilkat.Socket")

$bSuccess = $oSocket.BindAndListen(5000,25)
If ($bSuccess = False) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
EndIf

;  Wait for and accept the next incoming connection on the listening socket.  maxWaitMs = 0 waits
;  indefinitely; a positive value waits up to that many milliseconds.  For a TLS listener, acceptance
;  includes the server-side TLS handshake.
$oConnectedSock = ObjCreate("Chilkat.Socket")
$bSuccess = $oSocket.AcceptNext(20000,$oConnectedSock)
If ($bSuccess = False) Then
    ConsoleWrite($oSocket.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Accepted a connection from " & $oConnectedSock.RemoteIpAddress & @CRLF)