(PureBasic) Restart/Resume FTP Upload

Demonstrates how to restart / resume an FTP upload.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkFtp2.pb"

Procedure ChilkatExample()

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

    ftp.i = CkFtp2::ckCreate()
    If ftp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkFtp2::setCkHostname(ftp, "ftp.example.com")
    CkFtp2::setCkUsername(ftp, "login")
    CkFtp2::setCkPassword(ftp, "password")

    ; Connect and login to the FTP server.
    success.i = CkFtp2::ckConnect(ftp)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    ; Change to the remote directory where the file will be uploaded.
    success = CkFtp2::ckChangeRemoteDir(ftp,"temp")
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    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.
    CkFtp2::setCkRestartNext(ftp, 1)

    ; Upload a file with restart.
    localFilename.s = "bigFile.zip"
    remoteFilename.s = "bigFile.zip"

    success = CkFtp2::ckPutFile(ftp,localFilename,remoteFilename)
    If success <> 1
        Debug CkFtp2::ckLastErrorText(ftp)
        CkFtp2::ckDispose(ftp)
        ProcedureReturn
    EndIf

    success = CkFtp2::ckDisconnect(ftp)

    Debug "File Uploaded!"


    CkFtp2::ckDispose(ftp)


    ProcedureReturn
EndProcedure