Xbase++ Requires Chilkat v11.0.0+

S3 Upload with Transfer Acceleration

See more Amazon S3 Examples

Demonstrates how to upload from a pre-signed URL with transfer acceleration. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL cBucketName
LOCAL cObjectName
LOCAL cAwsService
LOCAL cHttpVerb
LOCAL nNumSecondsValid
LOCAL nBUseHttps
LOCAL cPreSignedUrl
LOCAL oResp

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

oHttp:AwsAccessKey := "AWS_ACCESS_KEY"
oHttp:AwsSecretKey := "AWS_SECRET_KEY"

//  Make sure to set your AWS region correctly
oHttp:AwsRegion := "us-east-1"
cBucketName := "chilkat200"
cObjectName := "starfish/starfish.jpg"
cAwsService := "s3"
cHttpVerb := "PUT"

//  To use S3 acceleration, we simply set the AwsEndpoint to "s3-accelerate.amazonaws.com".
//  Note: You must enable transfer acceleration on your bucket.  Acceleration incurs a higher cost.
oHttp:AwsEndpoint := "s3-accelerate.amazonaws.com"

//  The signed URL will be valid for this number of seconds:
nNumSecondsValid := 86400

//  Choose between a URL beginning with "http://" or "https://"...
nBUseHttps := 1

//  Generate the pre-signed URL that will use s3-accelerate.amazonaws.com
cPreSignedUrl := oHttp:S3_GenPresignedUrl(cHttpVerb, nBUseHttps, cBucketName, cObjectName, nNumSecondsValid, cAwsService)
IF (oHttp:LastMethodSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    RETURN
ENDIF

//  The following URL can be copy-and-pasted into a browser..
? "Presigned URL for Upload: " + cPreSignedUrl

//  Here's an example of a pre-signed URL
//  
//  http://chilkat200.s3-accelerate.amazonaws.com/starfish/starfish.jpg?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Credential=AKIAIBJLOVZVXAU2AFUA%2F20200623%2Fus-east-1%2Fs3%2Faws4_request&X-Amz-Date=20200623T234049Z&X-Amz-Expires=86400&X-Amz-SignedHeaders=host&X-Amz-Signature=xxxxxeaea071178d772856c0a4e4c0114a8d9992f0d0812955e490d0exxxxxxx
//  

//  Upload a local file using the pre-signed URL.
//  (Chilkat provides other methods to upload file data directly from binary or text data in memory.)
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpFile("PUT", cPreSignedUrl, "qa_data/jpg/starfish.jpg", "image/jpg", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "response status code = " + Str(oResp:StatusCode)
? "response body size: " + Str(oResp:ContentLength)
IF (oResp:ContentLength > 0)
    ? "response body:"
    ? oResp:BodyStr
ENDIF

oHttp:destroy()
oResp:destroy()