PowerBuilder

S3 - Working with Buckets in a Region

See more Amazon S3 (new) Examples

Demonstrates how to work with S3 buckets located in a particular region. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
oleobject loo_AuthAws
oleobject loo_FileData
oleobject loo_ResponseBody
integer li_StatusCode

li_Success = 0

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

// When usig the REST class to access an S3 bucket that has been created in a particular region,
// there are three important things to remember:
// 
// 1) Connect to the domain that includes the region.  For example, instead of connecting to
//    "s3.amazonaws.com", connect to "s3.eu-central-1.amazonaws.com" if your bucket is in the EU Frankfurt region.
//    See http://docs.aws.amazon.com/general/latest/gr/rande.html#s3_region   for a list of S3 region domains (endpoints)
// 
// 2) Set the AuthAws.Region property equal to the region, such as "eu-central-1".
// 
// 3) Include the region in request's Host header.
// 

// This example will upload to a bucket in the eu-central-1 region.
// 
loo_Rest = create oleobject
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Connect to the Amazon AWS REST server.
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("s3.eu-central-1.amazonaws.com",li_Port,li_BTls,li_BAutoReconnect)

// Provide AWS credentials for the REST call.
loo_AuthAws = create oleobject
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat.AuthAws")

loo_AuthAws.AccessKey = "AWS_ACCESS_KEY"
loo_AuthAws.SecretKey = "AWS_SECRET_KEY"
loo_AuthAws.ServiceName = "s3"
loo_AuthAws.Region = "eu-central-1"
li_Success = loo_Rest.SetAuthAws(loo_AuthAws)

// Set the bucket name via the HOST header.
// In this case, the bucket name is "chilkateufrankfurt" (which was created in the eu-central-1 region)
loo_Rest.Host = "chilkateufrankfurt.s3.eu-central-1.amazonaws.com"

loo_FileData = create oleobject
li_rc = loo_FileData.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_FileData.LoadFile("qa_data/jpg/starfish.jpg")

// Upload the file to Amazon S3.
loo_ResponseBody = create oleobject
li_rc = loo_ResponseBody.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Rest.FullRequestBd("PUT","/starfish.jpg",loo_FileData,loo_ResponseBody)
if li_Success <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_AuthAws
    destroy loo_FileData
    destroy loo_ResponseBody
    return
end if

// Did we get a 200 response indicating success?
li_StatusCode = loo_Rest.ResponseStatusCode
if li_StatusCode <> 200 then
    Write-Debug "Error response: " + loo_ResponseBody.GetAsString()
    Write-Debug "Status code: " + string(li_StatusCode) + ", Status text: " + loo_Rest.ResponseStatusText
    destroy loo_Rest
    destroy loo_AuthAws
    destroy loo_FileData
    destroy loo_ResponseBody
    return
end if

Write-Debug "File successfully uploaded."


destroy loo_Rest
destroy loo_AuthAws
destroy loo_FileData
destroy loo_ResponseBody