Xojo Plugin

S3 Upload Binary File from BinData

See more Amazon S3 (new) Examples

Upload a binary file contained in a BinData object to Amazon S3. 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
// Make sure to connect to the region where the bucket is located..
success = rest.Connect("s3-us-west-2.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"
// Use the correct region..
authAws.Region = "us-west-2"
authAws.ServiceName = "s3"

success = rest.SetAuthAws(authAws)

// Set the bucket name via the HOST header.
// In this case, the bucket name is "chilkat.qa".
// (Also make sure to use the correct region.)
rest.Host = "chilkat.qa.s3-us-west-2.amazonaws.com"

// Load a text file into memory.
Dim pngData As New Chilkat.BinData
success = pngData.LoadFile("qa_data/png/anemone.png")
If (success <> True) Then
    System.DebugLog("Failed to load file from local filesystem.")
    Return
End If

// Indicate the Content-Type of our upload.  (This is optional)
success = rest.AddHeader("Content-Type","image/png")

// Upload the file to Amazon S3.
Dim sbResponse As New Chilkat.StringBuilder
success = rest.FullRequestBd("PUT","/images/sea_creatures/anemone.png",pngData,sbResponse)
If (success <> True) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

// Did we get a 200 response indicating success?
Dim statusCode As Int32
statusCode = rest.ResponseStatusCode
If (statusCode <> 200) Then
    System.DebugLog("Error response: " + sbResponse.GetAsString())
    System.DebugLog("Status code: " + Str(statusCode) + ", Status text: " + rest.ResponseStatusText)
    Return
End If

System.DebugLog("File successfully uploaded.")