AutoIt

Async Task Chain (another example)

See more Async Examples

Demonstrates using a task chain to run a sequence of FTP tasks asynchronously. AutoIt

Local $bSuccess = False

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

$bSuccess = False

$oFtp = ObjCreate("Chilkat.Ftp2")

$oFtp.Hostname = "ftp.example.com"
$oFtp.Username = "login"
$oFtp.Password = "password"

; Connect and login to the FTP server.
$bSuccess = $oFtp.Connect()
If ($bSuccess <> True) Then
    ConsoleWrite($oFtp.LastErrorText & @CRLF)
    Exit
EndIf

$oTaskChain = ObjCreate("Chilkat.TaskChain")

; Create a task to change to the remote directory where the file will be uploaded.
Local $oTask = $oFtp.ChangeRemoteDirAsync("junk")
If ($oFtp.LastMethodSuccess = False) Then
    ConsoleWrite($oFtp.LastErrorText & @CRLF)
    Exit
EndIf

; Add this task to the task chain.
$bSuccess = $oTaskChain.Append($oTask)

; Create a task to upload a file.
Local $sLocalFilename = "c:/temp/hamlet.xml"
Local $sRemoteFilename = "hamlet.xml"

$oTask = $oFtp.PutFileAsync($sLocalFilename,$sRemoteFilename)
If ($oFtp.LastMethodSuccess = False) Then
    ConsoleWrite($oFtp.LastErrorText & @CRLF)
    Exit
EndIf

; Add this task to the task chain.
$bSuccess = $oTaskChain.Append($oTask)

; Start the task chain running in a background thread.
; Each task is run one after the other (on the same background thread) until all tasks have completed.
; The task chain will stop at the first task that fails.
$oTaskChain.StopOnFailedTask = True
$bSuccess = $oTaskChain.Run()
If (Not $bSuccess) Then
    ConsoleWrite($oTaskChain.LastErrorText & @CRLF)
    Exit
EndIf

; The application is now free to do anything else
; while the FTP commands are being run...

; For this example, we'll simply sleep and periodically
; check to see if the taskchain if finished. 
While $oTaskChain.Finished <> True

    ; Sleep 100 ms.
    $oTaskChain.SleepMs 100

Wend

; A finished task chain could be one that was canceled, aborted, or truly finished.  

; If the task chain "completed", then it ran to completion.  A "completed" task will
; have a StatusInt equal to 7.   If the task finished, but was not completed, then it must've
; been aborted or canceled:
If ($oTaskChain.StatusInt <> 7) Then
    ConsoleWrite("Task did not complete." & @CRLF)
    ConsoleWrite("task chain status: " & $oTaskChain.Status & @CRLF)
    Exit
EndIf

; If we got to this point, the ChangeRemoteDir and PutFile were successful.
; We can visually verify by examining the LastErrorText that was recorded for each
; of these method calls..
Local $iNumTasks = $oTaskChain.NumTasks
Local $iTaskIdx = 0

While ($iTaskIdx < $iNumTasks)

    $oTask = $oTaskChain.GetTask($iTaskIdx)

    ; Examine the status of this task, and the ResultErrorText
    ; (the ResultErrorText is the ftp.LastErrorText captured for FTP method called by the task).
    ; Everything should indicate success.
    ConsoleWrite("task status: " & $oTask.Status & @CRLF)
    ConsoleWrite("task log: " & $oTask.ResultErrorText & @CRLF)

    $iTaskIdx = $iTaskIdx + 1
Wend

$bSuccess = $oFtp.Disconnect()