(DataFlex) Using an S3 Compatible Storage Provider

Demonstrates how to use a compatible S3 storage provider. This example retrieves the XML listing the buckets for an Amazon S3 account.

In all cases, follow the Amazon S3 examples, except specify the AwsEndpoint for your S3 compatible storage provider.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sXmlStr
    String sTemp1
    Boolean bTemp1

    // This example requires 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 "AWS_ACCESS_KEY"

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

    // Set the AwsEndpoint to your S3 compatible storage provider
    // This example uses basefarm.net
    Set ComAwsEndpoint Of hoHttp To "basefarm.bf.object.osl.basefarm.net"

    Get ComS3_ListBuckets Of hoHttp To sXmlStr

    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        // Failed
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
    End
    Else Begin
        // Success.  Show the XML response.  (Use the online tool at the link below to generate parsing code.)
        Showln sXmlStr
    End

    // Use this online tool to generate parsing code from sample XML: 
    // Generate Parsing Code from XML


End_Procedure