(DataFlex) Wasabi FTP Upload

See more Wasabi Examples

Demonstrates how to upload a file to Wasabi using FTP.

Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoFtp
    Boolean iSuccess
    String sLocalFilePath
    String sRemoteBucketPath
    String sTemp1

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

    Get Create (RefClass(cComChilkatFtp2)) To hoFtp
    If (Not(IsComObjectCreated(hoFtp))) Begin
        Send CreateComObject of hoFtp
    End

    // Use the domain for the bucket you'll be managing.
    Set ComHostname Of hoFtp To "s3.s3.us-west-1.wasabisys.com"

    // Use your root account username (email address) and root account password
    Set ComUsername Of hoFtp To "root_account_username"
    Set ComPassword Of hoFtp To "root_account_password"
    Set ComSsl Of hoFtp To True
    Set ComPort Of hoFtp To 990

    // Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.
    Get ComConnect Of hoFtp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Upload a file (starfish.jpg) to the bucket named "chilkat"
    Move "qa_data/jpg/starfish.jpg" To sLocalFilePath
    Move "/chilkat/starfish.jpg" To sRemoteBucketPath
    Get ComPutFile Of hoFtp sLocalFilePath sRemoteBucketPath To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoFtp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "File uploaded."


End_Procedure