(DataFlex) Demonstrate S3_UploadBytes

Demonstrates how to upload a file to the Amazon S3 service.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sBucketName
    String sObjectName
    String sLocalFilePath
    String sContentType
    Handle hoJpgData
    Boolean iSuccess
    Variant hoJpgBytes
    String sTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    Set ComAwsAccessKey Of hoHttp To "AWS_ACCESS_KEY"
    Set ComAwsSecretKey Of hoHttp To "AWS_SECRET_KEY"

    Move "chilkat.qa" To sBucketName
    Move "images/sea_creatures/starfish.jpg" To sObjectName
    Move "qa_data/jpg/starfish.jpg" To sLocalFilePath
    Move "image/jpg" To sContentType

    Get Create (RefClass(cComChilkatBinData)) To hoJpgData
    If (Not(IsComObjectCreated(hoJpgData))) Begin
        Send CreateComObject of hoJpgData
    End
    Get ComLoadFile Of hoJpgData sLocalFilePath To iSuccess
    If (Not iSuccess) Begin
        Showln "Failed to load " sLocalFilePath
        Procedure_Return
    End

    Get ComGetBinary Of hoJpgData To hoJpgBytes

    Get ComS3_UploadBytes Of hoHttp vJpgBytes sContentType sBucketName sObjectName To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Success. File uploaded."


End_Procedure