PureBasic

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method. PureBasic

IncludeFile "CkSocket.pb"

Procedure ChilkatExample()

    success.i = 0

    listenSocket.i = CkSocket::ckCreate()
    If listenSocket.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    connectedSocket.i = CkSocket::ckCreate()
    If connectedSocket.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    port.i = 5555
    backlog.i = 25
    success = CkSocket::ckBindAndListen(listenSocket,port,backlog)
    If success = 0
        Debug CkSocket::ckLastErrorText(listenSocket)
        CkSocket::ckDispose(listenSocket)
        CkSocket::ckDispose(connectedSocket)
        ProcedureReturn
    EndIf

    ; Accept next incoming connection
    maxWaitMs.i = 200000
    success = CkSocket::ckAcceptNext(listenSocket,maxWaitMs,connectedSocket)
    If success = 0
        Debug CkSocket::ckLastErrorText(listenSocket)
        CkSocket::ckDispose(listenSocket)
        CkSocket::ckDispose(connectedSocket)
        ProcedureReturn
    EndIf

    ; ...
    ; ...

    maxWaitMs = 20000
    CkSocket::ckClose(connectedSocket)


    CkSocket::ckDispose(listenSocket)
    CkSocket::ckDispose(connectedSocket)


    ProcedureReturn
EndProcedure