(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set socket [new_CkSocket]

# The Async call simply creates the task.  The "Connect" method has not yet been called.
set maxWaitMs 5000
# Let's intentionally cause this connect to fail by giving it an invalid domain..
# task is a CkTask
set task [CkSocket_ConnectAsync $socket "amazonbladflakjsdflksadjf.com" 443 1 $maxWaitMs]
if {[CkSocket_get_LastMethodSuccess $socket] == 0} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    exit
}

# Start the background thread to run the task.
set success [CkTask_Run $task]
if {!$success} then {
    puts [CkTask_lastErrorText $task]
    delete_CkTask $task

    delete_CkSocket $socket
    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 {[CkTask_get_Finished $task] != 1} {
    # Sleep 1 ms.
    CkTask_SleepMs $task 1
}

# If the task completed, it means the method (in this case the Connect method) was called and returned success or failure.
if {[CkTask_get_StatusInt $task] != 7} then {
    puts "Task did not complete."
    puts "task status: [CkTask_status $task]"
    delete_CkTask $task

    delete_CkSocket $socket
    exit
}

# Get the success/failure of the Connect
# (This is the return value of the Connect method had it been called synchronously)
set success [CkTask_GetResultBool $task]
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.
    puts [CkTask_resultErrorText $task]
} else {
    puts "Connect succeeded."
}

delete_CkTask $task


delete_CkSocket $socket