Xbase++

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. Xbase++

LOCAL nSuccess
LOCAL oSocket
LOCAL nMaxWaitMs
LOCAL oTask

nSuccess := 0

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

oSocket := CreateObject("Chilkat.Socket")

//  The Async call simply creates the task.  The "Connect" method has not yet been called.
nMaxWaitMs := 5000
//  Let's intentionally cause this connect to fail by giving it an invalid domain..
oTask := oSocket:ConnectAsync("amazonbladflakjsdflksadjf.com", 443, 1, nMaxWaitMs)
IF (oSocket:LastMethodSuccess == 0)
    ? oSocket:LastErrorText
    oSocket:destroy()
    RETURN
ENDIF

//  Start the background thread to run the task.
nSuccess := oTask:Run()
IF (.NOT. nSuccess)
    ? oTask:LastErrorText
    oTask:destroy()
    oSocket:destroy()
    RETURN
ENDIF

//  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 oTask:Finished != 1
    //  Sleep 1 ms.
    oTask:SleepMs(1)
ENDDO

//  If the task completed, it means the method (in this case the Connect method) was called and returned success or failure.
IF (oTask:StatusInt != 7)
    ? "Task did not complete."
    ? "task status: " + oTask:Status
    oTask:destroy()
    oSocket:destroy()
    RETURN
ENDIF

//  Get the success/failure of the Connect
//  (This is the return value of the Connect method had it been called synchronously)
nSuccess := oTask:GetResultBool()
IF (nSuccess == 0)
    //  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.
    ? oTask:ResultErrorText
ELSE
    ? "Connect succeeded."
ENDIF

oTask:destroy()

oSocket:destroy()