B4X

Wasabi List Buckets

See more Wasabi Examples

Demonstrates how to list Wasabi buckets. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

'  Insert your access key here:
http.AwsAccessKey = "access-key"

'  Insert your secret key here:
http.AwsSecretKey = "secret-key"

http.AwsEndpoint = "s3.wasabisys.com"

Dim bucketsXml As String = http.S3_ListBuckets

If http.LastMethodSuccess <> True Then
    Log(http.LastErrorText)
    Return
End If


Dim xml As ChilkatXml
xml.Initialize
xml.LoadXml(bucketsXml)
Log(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>1039F31570DBC320E89D391632FCA06FE6D10CBB2ADBD0BF6439BB1DA0C3FAD6</ID>
'          <DisplayName>admin</DisplayName>
'      </Owner>
'      <Buckets>
'          <Bucket>
'              <Name>chilkat</Name>
'              <CreationDate>2021-10-26T12:39:44.000Z</CreationDate>
'          </Bucket>
'          <Bucket>
'              <Name>chilkat-wasabi-testbucket</Name>
'              <CreationDate>2021-10-27T21:07:40.000Z</CreationDate>
'          </Bucket>
'      </Buckets>
'  </ListAllMyBucketsResult>

Dim Name As String
Dim CreationDate As String

Dim ListAllMyBucketsResult_xmlns As String = xml.GetAttrValue("xmlns")
Dim ID As String = xml.GetChildContent("Owner|ID")
Dim DisplayName As String = xml.GetChildContent("Owner|DisplayName")
Dim i As Int = 0
Dim count_i As Int = xml.NumChildrenHavingTag("Buckets|Bucket")
Do While i < count_i
    xml.I = i
    Name = xml.GetChildContent("Buckets|Bucket[i]|Name")
    CreationDate = xml.GetChildContent("Buckets|Bucket[i]|CreationDate")
    i = i + 1
Loop