(Lianja) S3 - Upload to Bucket in a Region

Demonstrates how to upload a file to an S3 bucket that was created in a particular region.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// 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.
// 
loRest = createobject("CkRest")

// Connect to the Amazon AWS REST server.
llBTls = .T.
lnPort = 443
llBAutoReconnect = .T.
llSuccess = loRest.Connect("s3.eu-central-1.amazonaws.com",lnPort,llBTls,llBAutoReconnect)

// Provide AWS credentials for the REST call.
loAuthAws = createobject("CkAuthAws")
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
loAuthAws.ServiceName = "s3"
loAuthAws.Region = "eu-central-1"
llSuccess = loRest.SetAuthAws(loAuthAws)

// 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)
loRest.Host = "chilkateufrankfurt.s3.eu-central-1.amazonaws.com"

loFileData = createobject("CkBinData")
llSuccess = loFileData.LoadFile("qa_data/jpg/penguins.jpg")

// Upload the file to Amazon S3.
loResponseBody = createobject("CkStringBuilder")
llSuccess = loRest.FullRequestBd("PUT","/penguins.jpg",loFileData,loResponseBody)
if (llSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    release loAuthAws
    release loFileData
    release loResponseBody
    return
endif

// Did we get a 200 response indicating success?
lnStatusCode = loRest.ResponseStatusCode
if (lnStatusCode <> 200) then
    ? "Error response: " + loResponseBody.GetAsString()
    ? "Status code: " + str(lnStatusCode) + ", Status text: " + loRest.ResponseStatusText
    release loRest
    release loAuthAws
    release loFileData
    release loResponseBody
    return
endif

? "File successfully uploaded."


release loRest
release loAuthAws
release loFileData
release loResponseBody