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
(Visual FoxPro) Amazon Glacier List Tags for VaultLists all the tags attached to a vault. The operation returns an empty map if there are no tags.
LOCAL loRest LOCAL lnBTls LOCAL lnPort LOCAL lnBAutoReconnect LOCAL lnSuccess LOCAL loAuthAws LOCAL loSbResponseBody LOCAL lnRespStatusCode LOCAL loJson LOCAL loJTags LOCAL lnNumTags LOCAL i * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loRest = CreateObject('Chilkat_9_5_0.Rest') * Connect to the Amazon AWS REST server in the desired region. lnBTls = 1 lnPort = 443 lnBAutoReconnect = 1 lnSuccess = loRest.Connect("glacier.us-west-2.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect) * Provide AWS credentials. loAuthAws = CreateObject('Chilkat_9_5_0.AuthAws') loAuthAws.AccessKey = "AWS_ACCESS_KEY" loAuthAws.SecretKey = "AWS_SECRET_KEY" loAuthAws.ServiceName = "glacier" loAuthAws.Region = "us-west-2" lnSuccess = 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. * -------------------------------------------------------------------------- * * For more information, see Glacier List Tags for Vault Reference Documentation * loRest.AddHeader("x-amz-glacier-version","2012-06-01") * Get the tags for the "chilkat" vault. loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder') lnSuccess = loRest.FullRequestNoBodySb("GET","/AWS_ACCOUNT_ID/vaults/chilkat/tags",loSbResponseBody) IF (lnSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loRest RELEASE loAuthAws RELEASE loSbResponseBody CANCEL 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 loSbResponseBody CANCEL ENDIF * Success is indicated by a 200 response status with an empty response body. ? "response status code = " + STR(lnRespStatusCode) loJson = CreateObject('Chilkat_9_5_0.JsonObject') loJson.LoadSb(loSbResponseBody) loJson.EmitCompact = 0 ? loJson.Emit() ? "----" loJTags = loJson.ObjectOf("Tags") lnNumTags = loJTags.Size i = 0 DO WHILE i < lnNumTags ? loJTags.NameAt(i) + ": " + loJTags.StringAt(i) i = i + 1 ENDDO RELEASE loJTags * Sample response * * { * "Tags": { * "tagName1": "tagValue1", * "tagName2": "tagValue2" * } * } RELEASE loRest RELEASE loAuthAws RELEASE loSbResponseBody RELEASE loJson |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.