Sample code for 30+ languages & platforms
Xojo Plugin

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.

Background. The backlog argument bounds the queue of pending connections. When ClientIpAddress is empty, the listener binds to all interfaces. After listening, call AcceptNext to accept connections.

Chilkat Xojo Plugin Downloads

Xojo Plugin
Dim success As Boolean
success = False

Dim socket As New Chilkat.Socket

//  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 = False) Then
    System.DebugLog(socket.LastErrorText)
    Return
End If

//  After the listener is established, accept the next incoming connection into a new Socket.
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.")