Xbase++

Restart/Resume FTP Upload

See more FTP Examples

Demonstrates how to restart / resume an FTP upload. Xbase++

LOCAL nSuccess
LOCAL oFtp
LOCAL cLocalFilename
LOCAL cRemoteFilename

nSuccess := 0

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

oFtp := CreateObject("Chilkat.Ftp2")

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

//  Connect and login to the FTP server.
nSuccess := oFtp:Connect()
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

//  Change to the remote directory where the file will be uploaded.
nSuccess := oFtp:ChangeRemoteDir("temp")
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    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.
oFtp:RestartNext := 1

//  Upload a file with restart.
cLocalFilename := "bigFile.zip"
cRemoteFilename := "bigFile.zip"

nSuccess := oFtp:PutFile(cLocalFilename, cRemoteFilename)
IF (nSuccess != 1)
    ? oFtp:LastErrorText
    oFtp:destroy()
    RETURN
ENDIF

nSuccess := oFtp:Disconnect()

? "File Uploaded!"

oFtp:destroy()