(DataFlex) Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method.

Note: This example requires Chilkat v11.0.0 or greater.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoListenSocket
    Variant vConnectedSocket
    Handle hoConnectedSocket
    Integer iPort
    Integer iBacklog
    Boolean iSuccess
    Integer iMaxWaitMs
    String sTemp1

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

    Move 5555 To iPort
    Move 25 To iBacklog
    Get ComBindAndListen Of hoListenSocket iPort iBacklog To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoListenSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Accept next incoming connection
    Move 200000 To iMaxWaitMs
    Get pvComObject of hoConnectedSocket to vConnectedSocket
    Get ComAcceptNext Of hoListenSocket iMaxWaitMs vConnectedSocket To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoListenSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // ...
    // ...

    Move 20000 To iMaxWaitMs
    Get ComClose Of hoConnectedSocket To iSuccess


End_Procedure