Bind and Listen for Incoming Connections

See more Socket/SSL/TLS Examples

Demonstrates Socket.BindAndListen, which binds a TCP listener to a port and places it into listening mode, then accepts an incoming connection.

Dim success As Long
success = 0

Dim socket As New ChilkatSocket

'  Bind a TCP listener to a port and place it into listening mode.  The 2nd argument is the backlog,
'  the maximum number of pending connections allowed to queue.
success = socket.BindAndListen(5000,25)
If (success = 0) Then
    Debug.Print socket.LastErrorText
    Exit Sub
End If

'  After the listener is established, accept the next incoming connection into a new Socket.
Dim connectedSock As New ChilkatSocket
success = socket.AcceptNext(20000,connectedSock)
If (success = 0) Then
    Debug.Print socket.LastErrorText
    Exit Sub
End If

Debug.Print "Accepted a connection."