(Visual FoxPro) Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loListenSocket
LOCAL loConnectedSocket
LOCAL lnPort
LOCAL lnBacklog
LOCAL lnSuccess
LOCAL lnMaxWaitMs

loListenSocket = CreateObject('Chilkat.Socket')
loConnectedSocket = CreateObject('Chilkat.Socket')

lnPort = 5555
lnBacklog = 25
lnSuccess = loListenSocket.BindAndListen(lnPort,lnBacklog)
IF (lnSuccess = 0) THEN
    ? loListenSocket.LastErrorText
    RELEASE loListenSocket
    RELEASE loConnectedSocket
    CANCEL
ENDIF

* Accept next incoming connection
lnMaxWaitMs = 200000
lnSuccess = loListenSocket.AcceptNext(lnMaxWaitMs,loConnectedSocket)
IF (lnSuccess = 0) THEN
    ? loListenSocket.LastErrorText
    RELEASE loListenSocket
    RELEASE loConnectedSocket
    CANCEL
ENDIF

* ...
* ...

lnMaxWaitMs = 20000
loConnectedSocket.Close()

RELEASE loListenSocket
RELEASE loConnectedSocket