(Xojo Plugin) S3 Find Bucket Region

Demonstrates how to find out the region of an S3 bucket.

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

// This 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 using the correct region (in this example, "us-west-2")
Dim bTls As Boolean
bTls = True
Dim port As Int32
port = 443
Dim bAutoReconnect As Boolean
bAutoReconnect = True
Dim success As Boolean
success = rest.Connect("s3.amazonaws.com",port,bTls,bAutoReconnect)

// 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 we want to know about is set in the HOST header.
// In this example, we want to find the region for the "chilkat.qa" bucket.
rest.Host = "chilkat.qa.s3.amazonaws.com"

// Send the GET request to query the bucket location.
Dim strResult As String
strResult = rest.FullRequestNoBody("GET","/?location")
If (rest.LastMethodSuccess <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim responseStatusCode As Int32
responseStatusCode = rest.ResponseStatusCode
System.DebugLog("Response status code = " + Str(responseStatusCode))
If (responseStatusCode <> 200) Then
    System.DebugLog(rest.ResponseHeader)
    System.DebugLog(strResult)
    System.DebugLog("Failed.")
    Return
End If

System.DebugLog(strResult)

// The result contains XML like this:
// <?xml version="1.0" encoding="UTF-8"?>
// <LocationConstraint xmlns="http://s3.amazonaws.com/doc/2006-03-01/">us-west-2</LocationConstraint>

// Get the "us-west-2" from the XML
Dim xml As New Chilkat.Xml
success = xml.LoadXml(strResult)
System.DebugLog("region = " + xml.Content)