Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Lianja) Amazon Glacier Upload Archive from In-Memory DataDemonstrates how to add an archive to a vault from data in memory. Note: This example requires Chilkat v9.5.0.78 or greater.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loRest = createobject("CkRest") // Connect to the Amazon AWS REST server in the desired region. llBTls = .T. lnPort = 443 llBAutoReconnect = .T. llSuccess = loRest.Connect("glacier.us-west-2.amazonaws.com",lnPort,llBTls,llBAutoReconnect) // Provide AWS credentials. loAuthAws = createobject("CkAuthAws") loAuthAws.AccessKey = "AWS_ACCESS_KEY" loAuthAws.SecretKey = "AWS_SECRET_KEY" loAuthAws.ServiceName = "glacier" loAuthAws.Region = "us-west-2" llSuccess = loRest.SetAuthAws(loAuthAws) // -------------------------------------------------------------------------- // Note: The above REST connection and setup of the AWS credentials // can be done once. After connecting, any number of REST calls can be made. // The "auto reconnect" property passed to rest.Connect indicates that if // the connection is lost, a REST method call will automatically reconnect // if needed. // -------------------------------------------------------------------------- // Load the data to be uploaded. loBd = createobject("CkBinData") llSuccess = loBd.LoadFile("qa_data/jpg/penguins.jpg") // (The point here is that the contents of the bd don't necessarily have to come from a file.) // // For more information, see Glacier Upload Archive Reference Documentation // loRest.AddHeader("x-amz-glacier-version","2012-06-01") // We'll need to pre-compute the SHA256 tree hash and the SHA256 linear hash. // The hashes are added in the following request headers: // x-amz-sha256-tree-hash: SHA256 tree hash // x-amz-content-sha256: SHA256 linear hash loCrypt = createobject("CkCrypt2") loCrypt.HashAlgorithm = "sha256-tree-hash" loCrypt.EncodingMode = "hexlower" lcTreeHashHex = loCrypt.HashBdENC(loBd) loRest.AddHeader("x-amz-sha256-tree-hash",lcTreeHashHex) loCrypt.HashAlgorithm = "sha256" lcLinearHashHex = loCrypt.HashBdENC(loBd) loAuthAws.PrecomputedSha256 = lcLinearHashHex // We can optionally add a description loRest.AddHeader("x-amz-archive-description","Penguins JPG") loSbResponseBody = createobject("CkStringBuilder") llSuccess = loRest.FullRequestBd("POST","/AWS_ACCOUNT_ID/vaults/chilkat/archives",loBd,loSbResponseBody) if (llSuccess <> .T.) then ? loRest.LastErrorText release loRest release loAuthAws release loBd release loCrypt release loSbResponseBody return endif lnRespStatusCode = loRest.ResponseStatusCode if (lnRespStatusCode >= 400) then ? "Response Status Code = " + str(lnRespStatusCode) ? "Response Header:" ? loRest.ResponseHeader ? "Response Body:" ? loSbResponseBody.GetAsString() release loRest release loAuthAws release loBd release loCrypt release loSbResponseBody return endif // Success is indicated by a 201 response status with an empty response body. ? "response status code = " + str(lnRespStatusCode) // If successful, the response header looks like this. // The Location and x-amz-archive-id are two items of information we may wish to save.. // HTTP/1.1 201 Created // x-amzn-RequestId: AAABZpJrTyioDC_HsOmHae8EZp_uBSJr6cnGOLKp_XJCl-Q // Date: Wed, 10 Feb 2017 12:00:00 GMT // x-amz-sha256-tree-hash: beb0fe31a1c7ca8c6c04d574ea906e3f97b31fdca7571defb5b44dca89b5af60 // Location: /111122223333/vaults/examplevault/archives/NkbByEejwEggmBz2fTH ... GlqrEXAMPLEArchiveId // x-amz-archive-id: NkbByEejwEggmBz2fTHgJrg0XBoDfjP4q6iu87-TjhqG6eGoOY9Z8i1_AUyUsu ... BfGlqrEXAMPLEArchiveId // lcArchiveId = loRest.ResponseHdrByName("x-amz-archive-id") ? "x-amz-archive-id = " + lcArchiveId lcLocation = loRest.ResponseHdrByName("Location") ? "Location = " + lcLocation release loRest release loAuthAws release loBd release loCrypt release loSbResponseBody |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.