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
(PureBasic) Amazon Glacier List Tags for VaultLists all the tags attached to a vault. The operation returns an empty map if there are no tags.
IncludeFile "CkStringBuilder.pb" IncludeFile "CkAuthAws.pb" IncludeFile "CkJsonObject.pb" IncludeFile "CkRest.pb" Procedure ChilkatExample() ; This example requires the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. rest.i = CkRest::ckCreate() If rest.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Connect to the Amazon AWS REST server in the desired region. bTls.i = 1 port.i = 443 bAutoReconnect.i = 1 success.i = CkRest::ckConnect(rest,"glacier.us-west-2.amazonaws.com",port,bTls,bAutoReconnect) ; Provide AWS credentials. authAws.i = CkAuthAws::ckCreate() If authAws.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkAuthAws::setCkAccessKey(authAws, "AWS_ACCESS_KEY") CkAuthAws::setCkSecretKey(authAws, "AWS_SECRET_KEY") CkAuthAws::setCkServiceName(authAws, "glacier") CkAuthAws::setCkRegion(authAws, "us-west-2") success = CkRest::ckSetAuthAws(rest,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 ; CkRest::ckAddHeader(rest,"x-amz-glacier-version","2012-06-01") ; Get the tags for the "chilkat" vault. sbResponseBody.i = CkStringBuilder::ckCreate() If sbResponseBody.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkRest::ckFullRequestNoBodySb(rest,"GET","/AWS_ACCOUNT_ID/vaults/chilkat/tags",sbResponseBody) If success <> 1 Debug CkRest::ckLastErrorText(rest) CkRest::ckDispose(rest) CkAuthAws::ckDispose(authAws) CkStringBuilder::ckDispose(sbResponseBody) ProcedureReturn EndIf respStatusCode.i = CkRest::ckResponseStatusCode(rest) If respStatusCode >= 400 Debug "Response Status Code = " + Str(respStatusCode) Debug "Response Header:" Debug CkRest::ckResponseHeader(rest) Debug "Response Body:" Debug CkStringBuilder::ckGetAsString(sbResponseBody) CkRest::ckDispose(rest) CkAuthAws::ckDispose(authAws) CkStringBuilder::ckDispose(sbResponseBody) ProcedureReturn EndIf ; Success is indicated by a 200 response status with an empty response body. Debug "response status code = " + Str(respStatusCode) json.i = CkJsonObject::ckCreate() If json.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkJsonObject::ckLoadSb(json,sbResponseBody) CkJsonObject::setCkEmitCompact(json, 0) Debug CkJsonObject::ckEmit(json) Debug "----" jTags.i = CkJsonObject::ckObjectOf(json,"Tags") numTags.i = CkJsonObject::ckSize(jTags) i.i = 0 While i < numTags Debug CkJsonObject::ckNameAt(jTags,i) + ": " + CkJsonObject::ckStringAt(jTags,i) i = i + 1 Wend CkJsonObject::ckDispose(jTags) ; Sample response ; ; { ; "Tags": { ; "tagName1": "tagValue1", ; "tagName2": "tagValue2" ; } ; } CkRest::ckDispose(rest) CkAuthAws::ckDispose(authAws) CkStringBuilder::ckDispose(sbResponseBody) CkJsonObject::ckDispose(json) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.