(Tcl) Restart/Resume FTP Upload

Demonstrates how to restart / resume an FTP upload.

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 ftp [new_CkFtp2]

CkFtp2_put_Hostname $ftp "ftp.example.com"
CkFtp2_put_Username $ftp "login"
CkFtp2_put_Password $ftp "password"

# Connect and login to the FTP server.
set success [CkFtp2_Connect $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Change to the remote directory where the file will be uploaded.
set success [CkFtp2_ChangeRemoteDir $ftp "temp"]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# In this example, assume that a previous FTP upload failed,
# and the incomplete file (bigFile.zip) exists on the FTP server.
# You only need to set the RestartNext property to resume
# the upload.  When RestartNext is set, the next call
# to PutFile (or PutFileFromBinaryData, PutFileFromTextData)
# will automatically resume the upload from the point of failure.
# (The way it works is that the FTP component sends a "SIZE"
# command to the FTP server to find out how many bytes of
# the file already exist on the server.  It then begins
# uploading from that point.

# Note: After PutFile is called, the RestartNext property
# is automatically set to false.
CkFtp2_put_RestartNext $ftp 1

# Upload a file with restart.
set localFilename "bigFile.zip"
set remoteFilename "bigFile.zip"

set success [CkFtp2_PutFile $ftp $localFilename $remoteFilename]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

set success [CkFtp2_Disconnect $ftp]

puts "File Uploaded!"

delete_CkFtp2 $ftp