Visual FoxPro Requires Chilkat v11.0.0+

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method. Visual FoxPro

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

lnSuccess = 0

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(lnMaxWaitMs)

RELEASE loListenSocket
RELEASE loConnectedSocket