Visual FoxPro

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method.

Chilkat Visual FoxPro Downloads

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

RELEASE loListenSocket
RELEASE loConnectedSocket