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
(Xojo Plugin) Amazon Glacier List Tags for VaultLists all the tags attached to a vault. The operation returns an empty map if there are no tags.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim rest As New Chilkat.Rest // Connect to the Amazon AWS REST server in the desired region. Dim bTls As Boolean bTls = True Dim port As Int32 port = 443 Dim bAutoReconnect As Boolean bAutoReconnect = True Dim success As Boolean success = rest.Connect("glacier.us-west-2.amazonaws.com",port,bTls,bAutoReconnect) // Provide AWS credentials. Dim authAws As New Chilkat.AuthAws authAws.AccessKey = "AWS_ACCESS_KEY" authAws.SecretKey = "AWS_SECRET_KEY" authAws.ServiceName = "glacier" authAws.Region = "us-west-2" success = rest.SetAuthAws(authAws) // -------------------------------------------------------------------------- // 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 // success = rest.AddHeader("x-amz-glacier-version","2012-06-01") // Get the tags for the "chilkat" vault. Dim sbResponseBody As New Chilkat.StringBuilder success = rest.FullRequestNoBodySb("GET","/AWS_ACCOUNT_ID/vaults/chilkat/tags",sbResponseBody) If (success <> True) Then System.DebugLog(rest.LastErrorText) Return End If Dim respStatusCode As Int32 respStatusCode = rest.ResponseStatusCode If (respStatusCode >= 400) Then System.DebugLog("Response Status Code = " + Str(respStatusCode)) System.DebugLog("Response Header:") System.DebugLog(rest.ResponseHeader) System.DebugLog("Response Body:") System.DebugLog(sbResponseBody.GetAsString()) Return End If // Success is indicated by a 200 response status with an empty response body. System.DebugLog("response status code = " + Str(respStatusCode)) Dim json As New Chilkat.JsonObject success = json.LoadSb(sbResponseBody) json.EmitCompact = False System.DebugLog(json.Emit()) System.DebugLog("----") Dim jTags As Chilkat.JsonObject jTags = json.ObjectOf("Tags") Dim numTags As Int32 numTags = jTags.Size Dim i As Int32 i = 0 While i < numTags System.DebugLog(jTags.NameAt(i) + ": " + jTags.StringAt(i)) i = i + 1 Wend // Sample response // // { // "Tags": { // "tagName1": "tagValue1", // "tagName2": "tagValue2" // } // } |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.