Lianja

Restart/Resume FTP Upload

See more FTP Examples

Demonstrates how to restart / resume an FTP upload. Lianja

llSuccess = .F.

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

loFtp = createobject("CkFtp2")

loFtp.Hostname = "ftp.example.com"
loFtp.Username = "login"
loFtp.Password = "password"

// Connect and login to the FTP server.
llSuccess = loFtp.Connect()
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// Change to the remote directory where the file will be uploaded.
llSuccess = loFtp.ChangeRemoteDir("temp")
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

// 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.
loFtp.RestartNext = .T.

// Upload a file with restart.
lcLocalFilename = "bigFile.zip"
lcRemoteFilename = "bigFile.zip"

llSuccess = loFtp.PutFile(lcLocalFilename,lcRemoteFilename)
if (llSuccess <> .T.) then
    ? loFtp.LastErrorText
    release loFtp
    return
endif

llSuccess = loFtp.Disconnect()

? "File Uploaded!"


release loFtp