Visual FoxPro

Move a Connection into Another Socket

Demonstrates Socket.TakeConnection, which moves the active connection from one Socket into another. The receiving object first releases any connection it previously held.

Background. Unlike TakeSocket, TakeConnection does not add a member to a socket set. After success, the source socket holds no connection. This is useful for handing an accepted connection to a dedicated handler object.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loListenSock
LOCAL loConnectedSock
LOCAL loHandlerSock

lnSuccess = 0

loListenSock = CreateObject('Chilkat.Socket')

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

loConnectedSock = CreateObject('Chilkat.Socket')
lnSuccess = loListenSock.AcceptNext(20000,loConnectedSock)
IF (lnSuccess = 0) THEN
    ? loListenSock.LastErrorText
    RELEASE loListenSock
    RELEASE loConnectedSock
    CANCEL
ENDIF

*  Move the active connection out of connectedSock and into another Socket object.  Unlike
*  TakeSocket, this does not add a member to a socket set.  After success, connectedSock holds no
*  connection.
loHandlerSock = CreateObject('Chilkat.Socket')
lnSuccess = loHandlerSock.TakeConnection(loConnectedSock)
IF (lnSuccess = 0) THEN
    ? loHandlerSock.LastErrorText
    RELEASE loListenSock
    RELEASE loConnectedSock
    RELEASE loHandlerSock
    CANCEL
ENDIF

? "Connection moved to the handler socket."

RELEASE loListenSock
RELEASE loConnectedSock
RELEASE loHandlerSock