PowerBuilder

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. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Socket
integer li_MaxWaitMs
oleobject loo_Task

li_Success = 0

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

loo_Socket = create oleobject
li_rc = loo_Socket.ConnectToNewObject("Chilkat.Socket")
if li_rc < 0 then
    destroy loo_Socket
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// The Async call simply creates the task.  The "Connect" method has not yet been called.
li_MaxWaitMs = 5000
// Let's intentionally cause this connect to fail by giving it an invalid domain..
loo_Task = loo_Socket.ConnectAsync("amazonbladflakjsdflksadjf.com",443,1,li_MaxWaitMs)
if loo_Socket.LastMethodSuccess = 0 then
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Socket
    return
end if

// Start the background thread to run the task.
li_Success = loo_Task.Run()
if not li_Success then
    Write-Debug loo_Task.LastErrorText
    destroy loo_Task
    destroy loo_Socket
    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.
do while loo_Task.Finished <> 1
    // Sleep 1 ms.
    loo_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 loo_Task.StatusInt <> 7 then
    Write-Debug "Task did not complete."
    Write-Debug "task status: " + loo_Task.Status
    destroy loo_Task
    destroy loo_Socket
    return
end if

// Get the success/failure of the Connect
// (This is the return value of the Connect method had it been called synchronously)
li_Success = loo_Task.GetResultBool()
if li_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.
    Write-Debug loo_Task.ResultErrorText
else
    Write-Debug "Connect succeeded."
end if

destroy loo_Task


destroy loo_Socket