B4X Requires Chilkat v11.0.0+

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method. B4X

Dim success As Boolean = False

Dim listenSocket As ChilkatSocket
listenSocket.Initialize("listenSocket")
Dim connectedSocket As ChilkatSocket
connectedSocket.Initialize("connectedSocket")

Dim port As Int = 5555
Dim backlog As Int = 25
success = listenSocket.BindAndListen(port, backlog)
If success = False Then
    Log(listenSocket.LastErrorText)
    Return
End If


'  Accept next incoming connection
Dim maxWaitMs As Int = 200000
success = listenSocket.AcceptNext(maxWaitMs, connectedSocket)
If success = False Then
    Log(listenSocket.LastErrorText)
    Return
End If


'  ...
'  ...

maxWaitMs = 20000
connectedSocket.Close