(DataFlex) Bind and Listen on a Randomly Selected Unused Port

Demonstrates how to bind and listen on a randomly selected unused port.

Note:The ListenPort property used in this example is available starting in Chilkat v9.5.0.59.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoListenSocket
    Boolean iSuccess
    Integer iListenPort
    String sTemp1

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

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

    // Pass a value of 0 for the port number to randomly select
    // an unused port.
    // (The 2nd argument allows for a backlog of 25 pending connection requests when accepting connections.)
    Get ComBindAndListen Of hoListenSocket 5555 25 To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoListenSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Find out what port was chosen.
    // Note: The ListenPort propety was added in Chilkat v9.5.0.59
    Get ComListenPort Of hoListenSocket To iListenPort
    Showln "Chosen listen port = " iListenPort


End_Procedure