(DataFlex) OSS List Bucket Objects (Alibaba Cloud)

See more Alibaba Cloud OSS Examples

Demonstrates how to list the objects in a bucket.

The Chilkat S3 functions in the HTTP class are compatible with Alibaba Cloud's OSS service.

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 sStorageClass
    String sID
    String sDisplayName
    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 AccessKey ID here:
    Set ComAwsAccessKey Of hoHttp To "access-key"

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

    // To list objects in a bucket located in a different region, use the endpoint for that region, such as "oss-cn-hangzhou.aliyuncs.com 	"
    // See Alibaba Object Storage Service Regions and Endpoints
    Set ComAwsEndpoint Of hoHttp To "oss-us-east-1.aliyuncs.com"

    Move "chilkat" 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>chilkat</Name>
    //     <Prefix/>
    //     <Marker/>
    //     <MaxKeys>1000</MaxKeys>
    //     <IsTruncated>false</IsTruncated>
    //     <Contents>
    //         <Key>orchard.json</Key>
    //         <LastModified>2021-10-29T16:58:12.000Z</LastModified>
    //         <ETag>"303FB46CF341094FEF6274B7789CD6AA"</ETag>
    //         <Size>22</Size>
    //         <StorageClass>STANDARD</StorageClass>
    //         <Owner>
    //             <ID>5035535379748121</ID>
    //             <DisplayName>5035535379748121</DisplayName>
    //         </Owner>
    //     </Contents>
    //     <Contents>
    //         <Key>seahorse.jpg</Key>
    //         <LastModified>2021-10-29T16:52:01.000Z</LastModified>
    //         <ETag>"A8551F0A5437F43A796FCA7623EE9232"</ETag>
    //         <Size>24388</Size>
    //         <StorageClass>STANDARD</StorageClass>
    //         <Owner>
    //             <ID>5035535379748121</ID>
    //             <DisplayName>5035535379748121</DisplayName>
    //         </Owner>
    // 
    //     </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]|StorageClass" To sStorageClass
        Get ComGetChildContent Of hoXml "Contents[i]|Owner|ID" To sID
        Get ComGetChildContent Of hoXml "Contents[i]|Owner|DisplayName" To sDisplayName
        Move (i + 1) To i
    Loop



End_Procedure