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.

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoSocket
    Integer iBoundPort
    String sTemp1

    Get Create (RefClass(cComChilkatSocket)) To hoSocket
    If (Not(IsComObjectCreated(hoSocket))) Begin
        Send CreateComObject of hoSocket
    End

    //  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.
    Get ComBindAndListenPortRange Of hoSocket 5000 5100 25 To iBoundPort
    If (iBoundPort < 0) Begin
        Get ComLastErrorText Of hoSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Listening on port " iBoundPort


End_Procedure