Xojo Plugin

S3 List Bucket Objects (Bucket-in-Path)

See more Amazon S3 (new) Examples

Demonstrates how to fetch a list of objects in an S3 bucket, but using the bucket-in-path request format instead of putting the bucket name in the HOST header. Xojo Plugin

Dim success As Boolean
success = False

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

Dim rest As New Chilkat.Rest

// Connect to the Amazon AWS REST server.
Dim bTls As Boolean
bTls = True
Dim port As Int32
port = 443
Dim bAutoReconnect As Boolean
bAutoReconnect = True
success = rest.Connect("s3.amazonaws.com",port,bTls,bAutoReconnect)

// ----------------------------------------------------------------------------
// 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.
Dim authAws As New Chilkat.AuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
authAws.ServiceName = "s3"
success = rest.SetAuthAws(authAws)

// The bucket name is "chilkat100"
Dim sbResponse As New Chilkat.StringBuilder
success = rest.FullRequestNoBodySb("GET","/chilkat100",sbResponse)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim statusCode As Int32
statusCode = rest.ResponseStatusCode
System.DebugLog("Response status code = " + Str(statusCode))

Dim xml As New Chilkat.Xml
success = xml.LoadSb(sbResponse,True)
System.DebugLog(xml.GetXml())

If (statusCode <> 200) Then
    System.DebugLog("Failed.  See error information in the XML.")
    Return
End If

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

Dim Key As String
Dim LastModified As String
Dim ETag As String
Dim SizeDecimalStr As String
Dim ID As String
Dim DisplayName As String
Dim StorageClass As String

Dim Name As String
Name = xml.GetChildContent("Name")
Dim MaxKeys As Int32
MaxKeys = xml.GetChildIntValue("MaxKeys")
Dim IsTruncated As String
IsTruncated = xml.GetChildContent("IsTruncated")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = xml.NumChildrenHavingTag("Contents")
While i < count_i
    xml.I = i
    Key = xml.GetChildContent("Contents[i]|Key")
    LastModified = xml.GetChildContent("Contents[i]|LastModified")
    ETag = xml.GetChildContent("Contents[i]|ETag")
    SizeDecimalStr = xml.GetChildContent("Contents[i]|Size")
    ID = xml.GetChildContent("Contents[i]|Owner|ID")
    DisplayName = xml.GetChildContent("Contents[i]|Owner|DisplayName")
    StorageClass = xml.GetChildContent("Contents[i]|StorageClass")
    i = i + 1
Wend

System.DebugLog("Success.")