DataFlex

Get the LastErrorText for an Asynchronous Method Call

See more Async Examples

Demonstrates how to get the LastErrorText information for a Chilkat method called asynchronously. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoSocket
    Integer iMaxWaitMs
    Variant vTask
    Handle hoTask
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    Move False To iSuccess

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

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

    // The Async call simply creates the task.  The "Connect" method has not yet been called.
    Move 5000 To iMaxWaitMs
    // Let's intentionally cause this connect to fail by giving it an invalid domain..
    Get ComConnectAsync Of hoSocket "amazonbladflakjsdflksadjf.com" 443 True iMaxWaitMs To vTask
    If (IsComObject(vTask)) Begin
        Get Create (RefClass(cComChilkatTask)) To hoTask
        Set pvComObject Of hoTask To vTask
    End
    Get ComLastMethodSuccess Of hoSocket To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoSocket To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Start the background thread to run the task.
    Get ComRun Of hoTask To iSuccess
    If (Not iSuccess) Begin
        Get ComLastErrorText Of hoTask To sTemp1
        Showln sTemp1
        Send Destroy of hoTask
        Procedure_Return
    End

    // The application is now free to do anything else

    // For this example, we'll simply sleep and periodically
    // check to see if the Socket Connect if finished.
    While ((ComFinished(hoTask)) <> True)
        // Sleep 1 ms.
        Send ComSleepMs To hoTask 1
    Loop

    // If the task completed, it means the method (in this case the Connect method) was called and returned success or failure.
    Get ComStatusInt Of hoTask To iTemp1
    If (iTemp1 <> 7) Begin
        Showln "Task did not complete."
        Get ComStatus Of hoTask To sTemp1
        Showln "task status: " sTemp1
        Send Destroy of hoTask
        Procedure_Return
    End

    // Get the success/failure of the Connect
    // (This is the return value of the Connect method had it been called synchronously)
    Get ComGetResultBool Of hoTask To iSuccess
    If (iSuccess = False) Begin
        // Get the LastErrorText for the Connect method call.
        // Had we called Connect synchronously, we would've simply accessed the socket object's LastErrorText property.
        // Instead, we get the task object's ResultErrorText.
        Get ComResultErrorText Of hoTask To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Connect succeeded."
    End

    Send Destroy of hoTask


End_Procedure