(DataFlex) S3 Upload String

Demonstrates how to upload an in-memory string 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 sCharset
    String sContentType
    String sObjectContent
    Boolean iSuccess
    String sTemp1

    // This example assumes the Chilkat 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

    // Insert your access key here:
    Set ComAwsAccessKey Of hoHttp To "ABQXXABC83ABCDEFVQXX"

    // Insert your secret key here:
    Set ComAwsSecretKey Of hoHttp To "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"

    Move "chilkattestbucket" To sBucketName

    Move "helloWorld.txt" To sObjectName

    // The charset indicates the character encoding to be used.
    // Internal to the S3_UploadString method, the characters
    // are converted to this encoding prior to uploading.
    Move "utf-8" To sCharset

    Move "text/plain" To sContentType

    Move "Hello World!" To sObjectContent

    // Upload the string.
    // This creates an object named "helloWorld.txt" in the
    // bucket "chilkattestbucket" containing the text "Hello World!"
    Get ComS3_UploadString Of hoHttp sObjectContent sCharset sContentType sBucketName sObjectName To iSuccess

    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "String uploaded."
    End



End_Procedure