(Visual Basic 6.0) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim socket As New ChilkatSocket

' The Async call simply creates the task.  The "Connect" method has not yet been called.
Dim maxWaitMs As Long
maxWaitMs = 5000
' Let's intentionally cause this connect to fail by giving it an invalid domain..
Dim task As ChilkatTask
Set task = socket.ConnectAsync("amazonbladflakjsdflksadjf.com",443,1,maxWaitMs)
If (socket.LastMethodSuccess = 0) Then
    Debug.Print socket.LastErrorText
    Exit Sub
End If

' Start the background thread to run the task.
Dim success As Long
success = task.Run()
If (Not success) Then
    Debug.Print task.LastErrorText

    Exit Sub
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.
Do While task.Finished <> 1
    ' Sleep 1 ms.
    task.SleepMs 1
Loop

' 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
    Debug.Print "Task did not complete."
    Debug.Print "task status: " & task.Status

    Exit Sub
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 = 0) 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.
    Debug.Print task.ResultErrorText
Else
    Debug.Print "Connect succeeded."
End If