(Xojo Plugin) S3 List Buckets using an STS Session Token

This is an example showing how to use an STS session token in an Amazon AWS request. This example will list S3 buckets using a previously obtained session token.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

// See Get AWS STS Session Token for sample code to get the session token XML.
Dim xmlToken As New Chilkat.Xml
Dim success As Boolean
success = xmlToken.LoadXmlFile("qa_data/tokens/aws_session_token.xml")
If (success = False) Then
    System.DebugLog(xmlToken.LastErrorText)
    Return
End If

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)

// Provide AWS credentials for the REST call.
Dim authAws As New Chilkat.AuthAws

// The purpose of this example is to show how to use the temporary AccessKeyId, SecretAccessKey, and SessionToken.
authAws.AccessKey = xmlToken.GetChildContent("GetSessionTokenResult|Credentials|AccessKeyId")
authAws.SecretKey = xmlToken.GetChildContent("GetSessionTokenResult|Credentials|SecretAccessKey")
authAws.ServiceName = "s3"
success = rest.SetAuthAws(authAws)

success = rest.AddQueryParam("X-Amz-Security-Token",xmlToken.GetChildContent("GetSessionTokenResult|Credentials|SessionToken"))

Dim sbResponse As New Chilkat.StringBuilder
success = rest.FullRequestNoBodySb("GET","/",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