Sample code for 30+ languages & platforms
Xojo Plugin

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.

Chilkat Xojo Plugin Downloads

Xojo Plugin
Dim success As Boolean
success = False

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

Dim socket As New Chilkat.Socket

// The Async call simply creates the task.  The "Connect" method has not yet been called.
Dim maxWaitMs As Int32
maxWaitMs = 5000
// Let's intentionally cause this connect to fail by giving it an invalid domain..
Dim task As Chilkat.Task
task = socket.ConnectAsync("amazonbladflakjsdflksadjf.com",443,True,maxWaitMs)
If (socket.LastMethodSuccess = False) Then
    System.DebugLog(socket.LastErrorText)
    Return
End If

// Start the background thread to run the task.
success = task.Run()
If (Not success) Then
    System.DebugLog(task.LastErrorText)

    Return
End If

// 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 task.Finished <> True
    // Sleep 1 ms.
    task.SleepMs 1
Wend

// If the task completed, it means the method (in this case the Connect method) was called and returned success or failure.
If (task.StatusInt <> 7) Then
    System.DebugLog("Task did not complete.")
    System.DebugLog("task status: " + task.Status)

    Return
End If

// Get the success/failure of the Connect
// (This is the return value of the Connect method had it been called synchronously)
success = task.GetResultBool()
If (success = False) Then
    // 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.
    System.DebugLog(task.ResultErrorText)
Else
    System.DebugLog("Connect succeeded.")
End If