(Visual FoxPro) S3 List Buckets

Demonstrates how to retrieve the XML listing the buckets for an Amazon S3 account.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL lcXmlStr

* 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 = "AWS_ACCESS_KEY"

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

lcXmlStr = loHttp.S3_ListBuckets()

IF (loHttp.LastMethodSuccess <> 1) THEN
    * Failed
    ? loHttp.LastErrorText
ELSE
    * Success.  Show the XML response.  (Use the online tool at the link below to generate parsing code.)
    ? lcXmlStr
ENDIF

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

RELEASE loHttp