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.

Dim success As Boolean
success = False

Dim socket As New Chilkat.Socket

success = socket.BindAndListen(5000,25)
If (success = False) Then
    System.DebugLog(socket.LastErrorText)
    Return
End If

//  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.
Dim connectedSock As New Chilkat.Socket
success = socket.AcceptNext(20000,connectedSock)
If (success = False) Then
    System.DebugLog(socket.LastErrorText)
    Return
End If

System.DebugLog("Accepted a connection from " + connectedSock.RemoteIpAddress)