B4X

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. 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 rest As ChilkatRest
rest.Initialize("rest")

'  Connect to the Amazon AWS REST server.
Dim bTls As Boolean = True
Dim port As Int = 443
Dim bAutoReconnect As Boolean = 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 ChilkatAuthAws
authAws.Initialize
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
authAws.ServiceName = "s3"
success = rest.SetAuthAws(authAws)

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

Dim sbResponse As ChilkatStringBuilder
sbResponse.Initialize
success = rest.FullRequestNoBodySb("GET", "/", sbResponse)
If success = False Then
    Log(rest.LastErrorText)
    Return
End If



Dim statusCode As Int = rest.ResponseStatusCode
Log("Response status code = " & statusCode)

Dim xml As ChilkatXml
xml.Initialize
xml.LoadSb(sbResponse, True)
Log(xml.GetXml)

If statusCode <> 200 Then
    Log("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 = xml.GetChildContent("Name")
Dim MaxKeys As Int = xml.GetChildIntValue("MaxKeys")
Dim IsTruncated As String = xml.GetChildContent("IsTruncated")
Dim i As Int = 0
Dim count_i As Int = xml.NumChildrenHavingTag("Contents")
Do 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
Loop