Visual FoxPro

Accept the Next Incoming Connection

Demonstrates Socket.AcceptNext, which waits for and accepts the next incoming connection on a listening socket, delivering it as a new connected Socket.

Background. A maxWaitMs of 0 waits indefinitely; a positive value waits up to that many milliseconds. For a TLS listener, acceptance includes the server-side TLS handshake.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSocket
LOCAL loConnectedSock

lnSuccess = 0

loSocket = CreateObject('Chilkat.Socket')

lnSuccess = loSocket.BindAndListen(5000,25)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    CANCEL
ENDIF

*  Wait for and accept the next incoming connection on the listening socket.  maxWaitMs = 0 waits
*  indefinitely; a positive value waits up to that many milliseconds.  For a TLS listener, acceptance
*  includes the server-side TLS handshake.
loConnectedSock = CreateObject('Chilkat.Socket')
lnSuccess = loSocket.AcceptNext(20000,loConnectedSock)
IF (lnSuccess = 0) THEN
    ? loSocket.LastErrorText
    RELEASE loSocket
    RELEASE loConnectedSock
    CANCEL
ENDIF

? "Accepted a connection from " + loConnectedSock.RemoteIpAddress

RELEASE loSocket
RELEASE loConnectedSock