![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest') loRest = CreateObject('Chilkat.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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthAws') loAuthAws = CreateObject('Chilkat.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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbResponseBody = CreateObject('Chilkat.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) * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJson = CreateObject('Chilkat.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-2025 Chilkat Software, Inc. All Rights Reserved.