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
(DataFlex) Azure Key Vault - Create or Update a Binary SecretSee more Secrets ExamplesDemonstrates how to create or update a binary secret stored in the Azure Key Vault. Note: This example requires Chilkat v10.1.0 or later. For more information, see https://cknotes.com/chilkat-secrets-class-added-in-version-10-1-0/
Use ChilkatAx-win32.pkg Procedure Test Variant vBootstrap Handle hoBootstrap Variant vBsId Handle hoBsId Boolean iSuccess Handle hoSecrets Boolean iSuccess Variant vJson Handle hoJson String sUrl Handle hoHttp Variant vBd Handle hoBd String sTemp1 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // The bootstrap secret will contain the following information: // Azure Tenant ID // Azure Client ID // Azure Client Secret // See following examples for setting up a bootstrap secret in memory, // or in the local manager (Windows Credentials Manager or Apple Keychain) // Setup Bootstrap Secret in Local Manager // Setup Bootstrap Secret in Memory Get Create (RefClass(cComChilkatSecrets)) To hoBootstrap If (Not(IsComObjectCreated(hoBootstrap))) Begin Send CreateComObject of hoBootstrap End // Set the location of the bootstrap secret. // Can be "local_manager" or "memory", depending on how you setup the bootstrap secret. // --------------------------------------------------------------------------------------------- // If your operating system is NOT Windows or MacOS/iOS, then change "local_manager" to "memory" // You can also, if desired, use "memory" on Windows and MacOS/iOS if your bootstrap secret was previously setup in memory. // --------------------------------------------------------------------------------------------- Set ComLocation Of hoBootstrap To "local_manager" // Specify the bootstrap secret to be used. Get Create (RefClass(cComChilkatJsonObject)) To hoBsId If (Not(IsComObjectCreated(hoBsId))) Begin Send CreateComObject of hoBsId End Get ComUpdateString Of hoBsId "appName" "azure_bs" To iSuccess Get ComUpdateString Of hoBsId "service" "Example" To iSuccess Get ComUpdateString Of hoBsId "username" "Joe" To iSuccess // ---------------------------------------------------- Get Create (RefClass(cComChilkatSecrets)) To hoSecrets If (Not(IsComObjectCreated(hoSecrets))) Begin Send CreateComObject of hoSecrets End Set ComLocation Of hoSecrets To "azure_key_vault" Get pvComObject of hoBsId to vBsId Get pvComObject of hoBootstrap to vBootstrap Get ComSetBootstrapSecret Of hoSecrets vBsId vBootstrap To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoSecrets To sTemp1 Showln sTemp1 Procedure_Return End // Specify the name of the secret to be created or updated. // service and username are required. // appName and domain are optional. // Note: The values are arbitrary and can be anything you want. Get Create (RefClass(cComChilkatJsonObject)) To hoJson If (Not(IsComObjectCreated(hoJson))) Begin Send CreateComObject of hoJson End Get ComUpdateString Of hoJson "appName" "Test2" To iSuccess Get ComUpdateString Of hoJson "service" "Custom" To iSuccess Get ComUpdateString Of hoJson "domain" "Ocean" To iSuccess Get ComUpdateString Of hoJson "username" "Starfish" To iSuccess // For Azure Key Vault, we also need to specify the name of the vault where the secret is to be stored. // Replace "kvChilkat" with the name of your key vault. Get ComUpdateString Of hoJson "vaultName" "kvChilkat" To iSuccess // The purpose of this example is to show how arbitrary binary data // can be stored as a secret. // We'll use a small JPG image that is approximately 6KB in size. // You can test using this same JPG at this URL: Move "https://chilkatdownload.com/sample_data/starfish.jpg" To sUrl Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End Get Create (RefClass(cComChilkatBinData)) To hoBd If (Not(IsComObjectCreated(hoBd))) Begin Send CreateComObject of hoBd End Get pvComObject of hoBd to vBd Get ComDownloadBd Of hoHttp sUrl vBd To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End // Create or update the binary secret. Get pvComObject of hoJson to vJson Get pvComObject of hoBd to vBd Get ComUpdateSecretBd Of hoSecrets vJson vBd To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoSecrets To sTemp1 Showln sTemp1 Procedure_Return End Showln "Success." // Here you can see the secret that was created in the Azure Key Vault: // End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.