Xbase++ Requires Chilkat v11.0.0+

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method. Xbase++

LOCAL nSuccess
LOCAL oListenSocket
LOCAL oConnectedSocket
LOCAL nPort
LOCAL nBacklog
LOCAL nMaxWaitMs

nSuccess := 0

oListenSocket := CreateObject("Chilkat.Socket")
oConnectedSocket := CreateObject("Chilkat.Socket")

nPort := 5555
nBacklog := 25
nSuccess := oListenSocket:BindAndListen(nPort, nBacklog)
IF (nSuccess == 0)
    ? oListenSocket:LastErrorText
    oListenSocket:destroy()
    oConnectedSocket:destroy()
    RETURN
ENDIF

//  Accept next incoming connection
nMaxWaitMs := 200000
nSuccess := oListenSocket:AcceptNext(nMaxWaitMs, oConnectedSocket)
IF (nSuccess == 0)
    ? oListenSocket:LastErrorText
    oListenSocket:destroy()
    oConnectedSocket:destroy()
    RETURN
ENDIF

//  ...
//  ...

nMaxWaitMs := 20000
oConnectedSocket:Close()

oListenSocket:destroy()
oConnectedSocket:destroy()