Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Set Container MetadataAzure Storage Blob Service REST API: Sample code to set the user-defined metadata of a container.
' Azure Blob Service Example: Set Container User-Defined Metadata ' See also: https://msdn.microsoft.com/en-us/library/azure/dd179362.aspx ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim rest As Chilkat.Rest Set rest = Chilkat.NewRest ' Connect to the Azure Storage Blob Service bTls = True port = 443 bAutoReconnect = True ' In this example, the storage account name is "chilkat". success = rest.Connect("chilkat.blob.core.windows.net",port,bTls,bAutoReconnect) If (success <> True) Then Debug.Print rest.LastErrorText Exit Sub End If ' Provide Azure Cloud credentials for the REST call. Dim azAuth As Chilkat.AuthAzureStorage Set azAuth = Chilkat.NewAuthAzureStorage azAuth.AccessKey = "AZURE_ACCESS_KEY" ' The account name used here should match the 1st part of the domain passed in the call to Connect (above). azAuth.Account = "chilkat" azAuth.Scheme = "SharedKey" azAuth.Service = "Blob" ' This causes the "x-ms-version: 2020-08-04" header to be automatically added. azAuth.XMsVersion = "2020-08-04" success = rest.SetAuthAzureStorage(azAuth) ' Note: The application does not need to explicitly set the following ' headers: x-ms-date, Authorization. These headers ' are automatically set by Chilkat. ' Add each name-value pair of metadata to associate with the container. ' To remove all metadata from the container, simply don't add any x-ms-meta- headers. success = rest.AddHeader("x-ms-meta-Category","Images") success = rest.AddHeader("x-ms-meta-Resolution","High") ' The expected success response is a 200 response status code with no response body. ' In this example, we are setting the metadata of the container named "mycontainer". responseStr = rest.FullRequestNoBody("PUT","/mycontainer?restype=container&comp=metadata") If (rest.LastMethodSuccess <> True) Then Debug.Print rest.LastErrorText Exit Sub End If ' When successful, the Azure Storage service will respond with a 200 response status code, ' with no response body. If (rest.ResponseStatusCode <> 200) Then ' Examine the request/response to see what happened. Debug.Print "response status code = "; rest.ResponseStatusCode Debug.Print "response status text = "; rest.ResponseStatusText Debug.Print "response header: "; rest.ResponseHeader Debug.Print "response body (if any): "; responseStr Debug.Print "---" Debug.Print "LastRequestStartLine: "; rest.LastRequestStartLine Debug.Print "LastRequestHeader: "; rest.LastRequestHeader Exit Sub End If Debug.Print "Success." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.