PowerBuilder

Backblaze S3 List Buckets

See more Backblaze S3 Examples

Demonstrates how to list Backblaze buckets.

The Chilkat S3 functions in the HTTP class are compatible with the Backblaze service. However, because of some specific issues, Chilkat v9.5.0.89 or later is needed.

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Http
string ls_BucketsXml
oleobject loo_Xml
string ls_Name
string ls_CreationDate
string ls_ListAllMyBucketsResult_xmlns
string ls_ID
integer i
integer li_Count_i

li_Success = 0

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

loo_Http = create oleobject
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

// keyID = Access Key ID or Access Key
loo_Http.AwsAccessKey = "access-key"

// applicationKey = Secret Access Key or Secret Key
loo_Http.AwsSecretKey = "secret-key"

// Region is the 2nd part of your S3 Endpoint
loo_Http.AwsEndpoint = "s3.us-west-002.backblazeb2.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
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" standalone="yes"?>
// <ListAllMyBucketsResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
//     <Owner>
//         <ID>f2ebbc5f792c</ID>
//         <DisplayName/>
//     </Owner>
//     <Buckets>
//         <Bucket>
//             <Name>chilkat</Name>
//             <CreationDate>2021-10-30T14:17:30.004Z</CreationDate>
//         </Bucket>
//         <Bucket>
//             <Name>chilkat-test</Name>
//             <CreationDate>2021-10-30T14:25:52.556Z</CreationDate>
//         </Bucket>
//     </Buckets>
// </ListAllMyBucketsResult>

ls_ListAllMyBucketsResult_xmlns = loo_Xml.GetAttrValue("xmlns")
ls_ID = loo_Xml.GetChildContent("Owner|ID")
i = 0
li_Count_i = loo_Xml.NumChildrenHavingTag("Buckets|Bucket")
do while i < li_Count_i
    loo_Xml.I = i
    ls_Name = loo_Xml.GetChildContent("Buckets|Bucket[i]|Name")
    ls_CreationDate = loo_Xml.GetChildContent("Buckets|Bucket[i]|CreationDate")
    i = i + 1
loop


destroy loo_Http
destroy loo_Xml