(Perl) 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 Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$socket = chilkat::CkSocket->new();

# The Async call simply creates the task.  The "Connect" method has not yet been called.
$maxWaitMs = 5000;
# Let's intentionally cause this connect to fail by giving it an invalid domain..
# task is a Task
$task = $socket->ConnectAsync("amazonbladflakjsdflksadjf.com",443,1,$maxWaitMs);
if ($socket->get_LastMethodSuccess() == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

# Start the background thread to run the task.
$success = $task->Run();
if (!$success) {
    print $task->lastErrorText() . "\r\n";

    exit;
}

# 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->get_Finished() != 1) {
    # Sleep 1 ms.
    $task->SleepMs(1);
}

# If the task completed, it means the method (in this case the Connect method) was called and returned success or failure.
if ($task->get_StatusInt() != 7) {
    print "Task did not complete." . "\r\n";
    print "task status: " . $task->status() . "\r\n";

    exit;
}

# 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) {
    # 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.
    print $task->resultErrorText() . "\r\n";
}
else {
    print "Connect succeeded." . "\r\n";
}