Visual FoxPro

S3 List Bucket Objects (using Chilkat REST)

See more Amazon S3 (new) Examples

Demonstrates how to fetch a list of objects in an S3 bucket. Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loAuthAws
LOCAL loSbResponse
LOCAL lnStatusCode
LOCAL loXml
LOCAL lcKey
LOCAL lcLastModified
LOCAL lcETag
LOCAL lcSizeDecimalStr
LOCAL lcID
LOCAL lcDisplayName
LOCAL lcStorageClass
LOCAL lcName
LOCAL lnMaxKeys
LOCAL lcIsTruncated
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loRest = CreateObject('Chilkat.Rest')

* Connect to the Amazon AWS REST server.
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("s3.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect)

* ----------------------------------------------------------------------------
* Important: For buckets created in regions outside us-east-1,
* there are three important changes that need to be made.
* See Working with S3 Buckets in Non-us-east-1 Regions for the details.
* ----------------------------------------------------------------------------

* Provide AWS credentials for the REST call.
loAuthAws = CreateObject('Chilkat.AuthAws')
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
loAuthAws.ServiceName = "s3"
lnSuccess = loRest.SetAuthAws(loAuthAws)

*  Set the bucket name via the HOST header.
*  In this case, the bucket name is "chilkat100".
loRest.Host = "chilkat100.s3.amazonaws.com"

loSbResponse = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("GET","/",loSbResponse)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAuthAws
    RELEASE loSbResponse
    CANCEL
ENDIF

lnStatusCode = loRest.ResponseStatusCode
? "Response status code = " + STR(lnStatusCode)

loXml = CreateObject('Chilkat.Xml')
loXml.LoadSb(loSbResponse,1)
? loXml.GetXml()

IF (lnStatusCode <> 200) THEN
    ? "Failed.  See error information in the XML."
    RELEASE loRest
    RELEASE loAuthAws
    RELEASE loSbResponse
    RELEASE loXml
    CANCEL
ENDIF

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

lcName = loXml.GetChildContent("Name")
lnMaxKeys = loXml.GetChildIntValue("MaxKeys")
lcIsTruncated = loXml.GetChildContent("IsTruncated")
i = 0
lnCount_i = loXml.NumChildrenHavingTag("Contents")
DO WHILE i < lnCount_i
    loXml.I = i
    lcKey = loXml.GetChildContent("Contents[i]|Key")
    lcLastModified = loXml.GetChildContent("Contents[i]|LastModified")
    lcETag = loXml.GetChildContent("Contents[i]|ETag")
    lcSizeDecimalStr = loXml.GetChildContent("Contents[i]|Size")
    lcID = loXml.GetChildContent("Contents[i]|Owner|ID")
    lcDisplayName = loXml.GetChildContent("Contents[i]|Owner|DisplayName")
    lcStorageClass = loXml.GetChildContent("Contents[i]|StorageClass")
    i = i + 1
ENDDO

RELEASE loRest
RELEASE loAuthAws
RELEASE loSbResponse
RELEASE loXml