(Visual FoxPro) Wasabi List Buckets

See more Wasabi Examples

Demonstrates how to list Wasabi buckets.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcBucketsXml
LOCAL loXml
LOCAL lcName
LOCAL lcCreationDate
LOCAL lcListAllMyBucketsResult_xmlns
LOCAL lcID
LOCAL lcDisplayName
LOCAL i
LOCAL lnCount_i

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* Insert your access key here:
loHttp.AwsAccessKey = "access-key"

* Insert your secret key here:
loHttp.AwsSecretKey = "secret-key"

loHttp.AwsEndpoint = "s3.wasabisys.com"

lcBucketsXml = loHttp.S3_ListBuckets()

IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.LoadXml(lcBucketsXml)
? loXml.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>

lcListAllMyBucketsResult_xmlns = loXml.GetAttrValue("xmlns")
lcID = loXml.GetChildContent("Owner|ID")
lcDisplayName = loXml.GetChildContent("Owner|DisplayName")
i = 0
lnCount_i = loXml.NumChildrenHavingTag("Buckets|Bucket")
DO WHILE i < lnCount_i
    loXml.I = i
    lcName = loXml.GetChildContent("Buckets|Bucket[i]|Name")
    lcCreationDate = loXml.GetChildContent("Buckets|Bucket[i]|CreationDate")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loXml