(PowerBuilder) OSS List Buckets (Alibaba Cloud)

See more Alibaba Cloud OSS Examples

Demonstrates how to list AliCloud OSS buckets.

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

integer li_rc
oleobject loo_Http
integer li_Success
string ls_BucketsXml
oleobject loo_Xml
string ls_CreationDate
string ls_ExtranetEndpoint
string ls_IntranetEndpoint
string ls_Location
string ls_Name
string ls_Region
string ls_StorageClass
string ls_ListAllMyBucketsResult_xmlns
string ls_ID
string ls_DisplayName
integer i
integer li_Count_i

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

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

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

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

ls_BucketsXml = loo_Http.S3_ListBuckets()

if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    return
end if

loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.LoadXml(ls_BucketsXml)
Write-Debug loo_Xml.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>

ls_ListAllMyBucketsResult_xmlns = loo_Xml.GetAttrValue("xmlns")
ls_ID = loo_Xml.GetChildContent("Owner|ID")
ls_DisplayName = loo_Xml.GetChildContent("Owner|DisplayName")
i = 0
li_Count_i = loo_Xml.NumChildrenHavingTag("Buckets|Bucket")
do while i < li_Count_i
    loo_Xml.I = i
    ls_CreationDate = loo_Xml.GetChildContent("Buckets|Bucket[i]|CreationDate")
    ls_ExtranetEndpoint = loo_Xml.GetChildContent("Buckets|Bucket[i]|ExtranetEndpoint")
    ls_IntranetEndpoint = loo_Xml.GetChildContent("Buckets|Bucket[i]|IntranetEndpoint")
    ls_Location = loo_Xml.GetChildContent("Buckets|Bucket[i]|Location")
    ls_Name = loo_Xml.GetChildContent("Buckets|Bucket[i]|Name")
    ls_Region = loo_Xml.GetChildContent("Buckets|Bucket[i]|Region")
    ls_StorageClass = loo_Xml.GetChildContent("Buckets|Bucket[i]|StorageClass")
    i = i + 1
loop


destroy loo_Http
destroy loo_Xml