(PowerBuilder) Initiate Multipart S3 Upload

Initiates an Amazon AWS multipart S3 upload.

The following is quoted from the Amazon Simple Storage Service Documentation:

"The Multipart upload API enables you to upload large objects in parts. You can use this API to upload new large objects or make a copy of an existing object (see Operations on Objects).

Multipart uploading is a three-step process: You initiate the upload, you upload the object parts, and after you have uploaded all the parts, you complete the multipart upload. Upon receiving the complete multipart upload request, Amazon S3 constructs the object from the uploaded parts, and you can then access the object just as you would any other object in your bucket.

You can list of all your in-progress multipart uploads or get a list of the parts that you have uploaded for a specific multipart upload. Each of these operations is explained in this section.

Multipart Upload Initiation

When you send a request to initiate a multipart upload, Amazon S3 returns a response with an upload ID, which is a unique identifier for your multipart upload. You must include this upload ID whenever you upload parts, list the parts, complete an upload, or abort an upload. If you want to provide any metadata describing the object being uploaded, you must provide it in the request to initiate multipart upload."

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
integer li_Success
oleobject loo_AuthAws
string ls_FileToUploadPath
string ls_ResponseXml
oleobject loo_Xml

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

// Other S3 Multipart Upload Examples:
// S3 Upload Parts
// Complete Multipart Upload
// Abort Multipart Upload
// List Parts

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
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.amazonaws.com",li_Port,li_BTls,li_BAutoReconnect)

// ----------------------------------------------------------------------------
// Important: For buckets created in regions outside us-east-1,
// there are three important changes that need to be made.
// See Working with S3 Buckets in Non-us-east-1 Regions for the details.
// ----------------------------------------------------------------------------

// Provide AWS credentials for the REST call.
loo_AuthAws = create oleobject
// Use "Chilkat_9_5_0.AuthAws" for versions of Chilkat < 10.0.0
li_rc = loo_AuthAws.ConnectToNewObject("Chilkat.AuthAws")

loo_AuthAws.AccessKey = "AWS_ACCESS_KEY"
loo_AuthAws.SecretKey = "AWS_SECRET_KEY"
loo_AuthAws.ServiceName = "s3"

li_Success = loo_Rest.SetAuthAws(loo_AuthAws)

// Set the bucket name via the HOST header.
// In this case, the bucket name is "chilkat100".
loo_Rest.Host = "chilkat100.s3.amazonaws.com"

// The local file path (on our local system) to upload.
ls_FileToUploadPath = "s3_multipart_uploads/somethingBig.zip"

// The HTTP request to initiate a multipart upload is a POST with no body content..
// This is the tricky part: We would be tempted to pass "/somethingBig.zip?uploads"
// in the 2nd argument to FullRequestNoBody.  However, we must pass only the path without query
// params.  The "uploads" query param must be added via AddQueryParam.  This allows it to be included
// in the AWS signature calculation for authentication.
loo_Rest.AddQueryParam("uploads","")
ls_ResponseXml = loo_Rest.FullRequestNoBody("POST","/somethingBig.zip")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_AuthAws
    return
end if

// When successful, the S3 Storage service will respond with a 200 response code,
// with an XML body.  
if loo_Rest.ResponseStatusCode <> 200 then
    // Examine the request/response to see what happened.
    Write-Debug "response status code = " + string(loo_Rest.ResponseStatusCode)
    Write-Debug "response status text = " + loo_Rest.ResponseStatusText
    Write-Debug "response header: " + loo_Rest.ResponseHeader
    Write-Debug "response body: " + ls_ResponseXml
    Write-Debug "---"
    Write-Debug "LastRequestStartLine: " + loo_Rest.LastRequestStartLine
    Write-Debug "LastRequestHeader: " + loo_Rest.LastRequestHeader
end if

// See http://docs.aws.amazon.com/AmazonS3/latest/API/mpUploadInitiate.html 
// for a sample of the XML response.
Write-Debug ls_ResponseXml
Write-Debug "----"

// Save the XML response to a file, and show the UploadId..
loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.LoadXml(ls_ResponseXml)
loo_Xml.SaveXml("s3_multipart_uploads/initiate.xml")

Write-Debug "UploadId = " + loo_Xml.GetChildContent("UploadId")
Write-Debug "Multipart upload initiated."


destroy loo_Rest
destroy loo_AuthAws
destroy loo_Xml