Bind and Listen on an Available Port in a Range

See more Socket/SSL/TLS Examples

Demonstrates Socket.BindAndListenPortRange, which searches an inclusive port range for an available TCP port, binds it, and begins listening. It returns the selected port, or -1 on failure.

IncludeFile "CkSocket.pb"

Procedure ChilkatExample()

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

    ;  Search the inclusive port range for an available TCP port, bind it, and begin listening.  The
    ;  method returns the selected port, or -1 when no port can be bound.
    boundPort.i = CkSocket::ckBindAndListenPortRange(socket,5000,5100,25)
    If boundPort < 0
        Debug CkSocket::ckLastErrorText(socket)
        CkSocket::ckDispose(socket)
        ProcedureReturn
    EndIf

    Debug "Listening on port " + Str(boundPort)


    CkSocket::ckDispose(socket)


    ProcedureReturn
EndProcedure