(DataFlex) Wasabi List Bucket Objects

See more Wasabi Examples

Demonstrates how to download and parse XML for the list of objects in a bucket.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sBucketName
    String sStrXml
    Handle hoXml
    Boolean iSuccess
    String sKey
    String sLastModified
    String sETag
    String sSizeDecimalStr
    String sID
    String sDisplayName
    String sStorageClass
    String sListBucketResult_xmlns
    String sName
    Integer iMaxKeys
    String sIsTruncated
    Integer i
    Integer iCount_i
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    // 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

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

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

    // Use the endpoint matching the bucket's region.
    Set ComAwsEndpoint Of hoHttp To "s3.us-west-1.wasabisys.com"

    Move "chilkattest" To sBucketName

    Get ComS3_ListBucketObjects Of hoHttp sBucketName To sStrXml
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComLastStatus Of hoHttp To iTemp1
    Showln "Response status code = " iTemp1

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End
    Get ComLoadXml Of hoXml sStrXml To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoXml To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // If the response status code was not 200, then the XML response is not a 
    // listing of objects, but instead contains error information.
    Get ComLastStatus Of hoHttp To iTemp1
    If (iTemp1 <> 200) Begin
        Get ComGetXml Of hoXml To sTemp1
        Showln sTemp1
        Showln "Failed."
        Procedure_Return
    End

    // A sample response is shown below.
    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1
    Showln "----"

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

    // <?xml version="1.0" encoding="UTF-8"?>
    // <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
    //     <Name>chilkattest</Name>
    //     <Prefix/>
    //     <Marker/>
    //     <MaxKeys>1000</MaxKeys>
    //     <IsTruncated>false</IsTruncated>
    //     <Contents>
    //         <Key>orchard.json</Key>
    //         <LastModified>2021-10-27T22:58:49.000Z</LastModified>
    //         <ETag>&quot;303fb46cf341094fef6274b7789cd6aa&quot;</ETag>
    //         <Size>22</Size>
    //         <Owner>
    //             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
    //             <DisplayName>admin</DisplayName>
    //         </Owner>
    //         <StorageClass>STANDARD</StorageClass>
    //     </Contents>
    //     <Contents>
    //         <Key>seahorse.jpg</Key>
    //         <LastModified>2021-10-27T22:35:29.000Z</LastModified>
    //         <ETag>&quot;a8551f0a5437f43a796fca7623ee9232&quot;</ETag>
    //         <Size>24388</Size>
    //         <Owner>
    //             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
    //             <DisplayName>admin</DisplayName>
    //         </Owner>
    //         <StorageClass>STANDARD</StorageClass>
    //     </Contents>
    //     <Contents>
    //         <Key>seahorse2.jpg</Key>
    //         <LastModified>2021-10-27T22:03:51.000Z</LastModified>
    //         <ETag>&quot;a8551f0a5437f43a796fca7623ee9232&quot;</ETag>
    //         <Size>24388</Size>
    //         <Owner>
    //             <ID>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
    //             <DisplayName>admin</DisplayName>
    //         </Owner>
    //         <StorageClass>STANDARD</StorageClass>
    //     </Contents>
    // </ListBucketResult>

    Get ComGetAttrValue Of hoXml "xmlns" To sListBucketResult_xmlns
    Get ComGetChildContent Of hoXml "Name" To sName
    Get ComGetChildIntValue Of hoXml "MaxKeys" To iMaxKeys
    Get ComGetChildContent Of hoXml "IsTruncated" To sIsTruncated
    Move 0 To i
    Get ComNumChildrenHavingTag Of hoXml "Contents" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoXml To i
        Get ComGetChildContent Of hoXml "Contents[i]|Key" To sKey
        Get ComGetChildContent Of hoXml "Contents[i]|LastModified" To sLastModified
        Get ComGetChildContent Of hoXml "Contents[i]|ETag" To sETag
        Get ComGetChildContent Of hoXml "Contents[i]|Size" To sSizeDecimalStr
        Get ComGetChildContent Of hoXml "Contents[i]|Owner|ID" To sID
        Get ComGetChildContent Of hoXml "Contents[i]|Owner|DisplayName" To sDisplayName
        Get ComGetChildContent Of hoXml "Contents[i]|StorageClass" To sStorageClass
        Showln i ": " sKey
        Move (i + 1) To i
    Loop



End_Procedure