Xbase++
OSS List Buckets (Alibaba Cloud)

Demonstrates how to list AliCloud OSS buckets.
The Chilkat S3 functions in the HTTP class are compatible with Alibaba Cloud's OSS service.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oHttp
LOCAL cBucketsXml
LOCAL oXml
LOCAL cCreationDate
LOCAL cExtranetEndpoint
LOCAL cIntranetEndpoint
LOCAL cLocation
LOCAL cName
LOCAL cRegion
LOCAL cStorageClass
LOCAL cListAllMyBucketsResult_xmlns
LOCAL cID
LOCAL cDisplayName
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Insert your AccessKey ID here:
oHttp:AwsAccessKey := "access-key"

//  Insert your AccessKey Secret here:
oHttp:AwsSecretKey := "secret-key"

//  See Alibaba Object Storage Service Regions and Endpoints
oHttp:AwsEndpoint := "oss-us-west-1.aliyuncs.com"

cBucketsXml := oHttp:S3_ListBuckets()

IF (oHttp:LastMethodSuccess != 1)
    ? oHttp:LastErrorText
    oHttp:destroy()
    RETURN
ENDIF

oXml := CreateObject("Chilkat.Xml")
oXml:LoadXml(cBucketsXml)
? oXml:GetXml()

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

//  Sample output:

//  <?xml version="1.0" encoding="UTF-8"?>
//  <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
//      <Owner>
//          <ID>5035535379748121</ID>
//          <DisplayName>5035535379748121</DisplayName>
//      </Owner>
//      <Buckets>
//          <Bucket>
//              <Comment/>
//              <CreationDate>2021-10-28T21:30:56.000Z</CreationDate>
//              <ExtranetEndpoint>oss-us-east-1.aliyuncs.com</ExtranetEndpoint>
//              <IntranetEndpoint>oss-us-east-1-internal.aliyuncs.com</IntranetEndpoint>
//              <Location>oss-us-east-1</Location>
//              <Name>chilkat</Name>
//              <Region>us-east-1</Region>
//              <StorageClass>STANDARD</StorageClass>
//          </Bucket>
//          <Bucket>
//              <Comment/>
//              <CreationDate>2021-10-29T00:12:54.000Z</CreationDate>
//              <ExtranetEndpoint>oss-us-west-1.aliyuncs.com</ExtranetEndpoint>
//              <IntranetEndpoint>oss-us-west-1-internal.aliyuncs.com</IntranetEndpoint>
//              <Location>oss-us-west-1</Location>
//              <Name>chilkat-testbucket</Name>
//              <Region>us-west-1</Region>
//              <StorageClass>STANDARD</StorageClass>
//          </Bucket>
//          <Bucket>
//              <Comment/>
//              <CreationDate>2021-10-28T23:52:10.000Z</CreationDate>
//              <ExtranetEndpoint>oss-us-west-1.aliyuncs.com</ExtranetEndpoint>
//              <IntranetEndpoint>oss-us-west-1-internal.aliyuncs.com</IntranetEndpoint>
//              <Location>oss-us-west-1</Location>
//              <Name>chilkat2</Name>
//              <Region>us-west-1</Region>
//              <StorageClass>STANDARD</StorageClass>
//          </Bucket>
//      </Buckets>
//  </ListAllMyBucketsResult>

cListAllMyBucketsResult_xmlns := oXml:GetAttrValue("xmlns")
cID := oXml:GetChildContent("Owner|ID")
cDisplayName := oXml:GetChildContent("Owner|DisplayName")
i := 0
nCount_i := oXml:NumChildrenHavingTag("Buckets|Bucket")
DO WHILE i < nCount_i
    oXml:I := i
    cCreationDate := oXml:GetChildContent("Buckets|Bucket[i]|CreationDate")
    cExtranetEndpoint := oXml:GetChildContent("Buckets|Bucket[i]|ExtranetEndpoint")
    cIntranetEndpoint := oXml:GetChildContent("Buckets|Bucket[i]|IntranetEndpoint")
    cLocation := oXml:GetChildContent("Buckets|Bucket[i]|Location")
    cName := oXml:GetChildContent("Buckets|Bucket[i]|Name")
    cRegion := oXml:GetChildContent("Buckets|Bucket[i]|Region")
    cStorageClass := oXml:GetChildContent("Buckets|Bucket[i]|StorageClass")
    i := i + 1
ENDDO

oHttp:destroy()
oXml:destroy()