Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Visual Basic 6.0) S3 Complete a Multipart Upload
This operation completes a multipart upload by assembling previously uploaded parts.
Processing of a Complete Multipart Upload request could take several minutes to complete. After Amazon S3 begins processing the request, it sends an HTTP response header that specifies a 200 OK response. While processing is in progress, Amazon S3 periodically sends whitespace characters to keep the connection from timing out. Because a request could fail after the initial 200 OK response has been sent, it is important that you check the response body to determine whether the request succeeded.
This example sends a POST request to complete a multipart upload, which looks like this:
POST /ObjectName?uploadId=UploadId HTTP/1.1 Host: BucketName.s3.amazonaws.com Date: Date Content-Length: Size Authorization: authorization string <CompleteMultipartUpload> <Part> <PartNumber>PartNumber</PartNumber> <ETag>ETag</ETag> </Part> ... </CompleteMultipartUpload>
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' The 1st step in an S3 multipart upload is to initiate it, ' as shown here: Initiate S3 Multipart Upload ' The 2nd step is to upload the parts ' as shown here: S3 Upload Parts ' The 3rd and final step (this example) is to complete the multipart upload. ' Other S3 Multipart Upload Examples: ' Abort Multipart Upload ' List Parts ' When the multipart upload was initiated, an UploadId was provided in the XML response, and it ' was saved to a file. Steps 2 and 3 begin by loading the XML and getting ' the Upload ID. Dim xmlInit As New ChilkatXml Dim success As Long success = xmlInit.LoadXmlFile("s3_multipart_uploads/initiate.xml") If (success <> 1) Then Debug.Print "Did not find the initiate.xml XML file." Exit Sub End If Dim uploadId As String uploadId = xmlInit.GetChildContent("UploadId") Debug.Print "UploadId = " & uploadId ' We'll also need the XML file that contains a record of the parts ' with part numbers and ETags. (This file was produced when parts were being uploaded.) Dim xmlPartsList As New ChilkatXml success = xmlPartsList.LoadXmlFile("s3_multipart_uploads/partsList.xml") If (success <> 1) Then Debug.Print "Did not find the partsList.xml XML file." Exit Sub End If Dim rest As New ChilkatRest ' Connect to the Amazon AWS REST server. Dim bTls As Long bTls = 1 Dim port As Long port = 443 Dim bAutoReconnect As Long bAutoReconnect = 1 success = rest.Connect("s3.amazonaws.com",port,bTls,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. Dim authAws As New ChilkatAuthAws authAws.AccessKey = "AWS_ACCESS_KEY" authAws.SecretKey = "AWS_SECRET_KEY" authAws.ServiceName = "s3" success = rest.SetAuthAws(authAws) ' Set the bucket name via the HOST header. ' In this case, the bucket name is "chilkat100". rest.Host = "chilkat100.s3.amazonaws.com" ' The "uploadId=UploadId" must be added as a query parameter. This allows it to be ' incorporated into the AWS signature calculation, which is a requirement. ' Therefore, we use AddQueryParam: success = rest.AddQueryParam("uploadId",uploadId) ' Our ObjectName in this case is "somethingBig.zip". Dim responseXml As String responseXml = rest.FullRequestString("POST","/somethingBig.zip",xmlPartsList.GetXml()) If (rest.LastMethodSuccess <> 1) Then Debug.Print rest.LastErrorText Exit Sub End If ' When successful, the S3 Storage service will respond with a 200 response code, ' with an XML body. If (rest.ResponseStatusCode <> 200) Then ' Examine the request/response to see what happened. Debug.Print "response status code = " & rest.ResponseStatusCode Debug.Print "response status text = " & rest.ResponseStatusText Debug.Print "response header: " & rest.ResponseHeader Debug.Print "response body: " & responseXml Debug.Print "---" Debug.Print "LastRequestStartLine: " & rest.LastRequestStartLine Debug.Print "LastRequestHeader: " & rest.LastRequestHeader End If ' Load the XML response into Chilkat XMl and emit via GetXml to see the XML in a pretty-printed (indented) readable format. Dim xml As New ChilkatXml success = xml.LoadXml(responseXml) Debug.Print xml.GetXml() Debug.Print "----" Debug.Print "Multipart upload completed."
© 2000-2020 Chilkat Software, Inc. All Rights Reserved.