Lianja

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method. Lianja

llSuccess = .F.

loListenSocket = createobject("CkSocket")
loConnectedSocket = createobject("CkSocket")

lnPort = 5555
lnBacklog = 25
llSuccess = loListenSocket.BindAndListen(lnPort,lnBacklog)
if (llSuccess = .F.) then
    ? loListenSocket.LastErrorText
    release loListenSocket
    release loConnectedSocket
    return
endif

// Accept next incoming connection
lnMaxWaitMs = 200000
llSuccess = loListenSocket.AcceptNext(lnMaxWaitMs,loConnectedSocket)
if (llSuccess = .F.) then
    ? loListenSocket.LastErrorText
    release loListenSocket
    release loConnectedSocket
    return
endif

// ...
// ...

lnMaxWaitMs = 20000
loConnectedSocket.Close()


release loListenSocket
release loConnectedSocket