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 ACLAzure Storage Blob Service REST API: Sample code to set the permissions of a container.
' Azure Blob Service Example: Set Container ACL ' See also: https://msdn.microsoft.com/en-us/library/azure/dd179391.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. ' The XML body of the request will look like this: ' <?xml version="1.0" encoding="utf-8"?> ' <SignedIdentifiers> ' <SignedIdentifier> ' <Id>unique-character-value-of-up-to-64-chars</Id> ' <AccessPolicy> ' <Start>start-time</Start> ' <Expiry>expiry-time</Expiry> ' <Permission>abbreviated-permission-list</Permission> ' </AccessPolicy> ' </SignedIdentifier> ' </SignedIdentifiers> ' Generate a random 32-character string. Dim prng As Chilkat.Prng Set prng = Chilkat.NewPrng randomId = prng.RandomString(32,True,True,True) ' Get the current system date/time in ISO 8061 format Dim dt As Chilkat.CkDateTime Set dt = Chilkat.NewCkDateTime Dim success As Boolean success = dt.SetFromCurrentSystemTime() bLocal = False ' Get the current date/time in ISO 8061 UTC format. curDtStr = dt.GetAsTimestamp(bLocal) ' The expire time will be 365 days in the future. success = dt.AddDays(365) expireDtStr = dt.GetAsTimestamp(bLocal) ' Build the request: Dim xml As Chilkat.Xml Set xml = Chilkat.NewXml xml.Tag = "SignedIdentifiers" Set xSignedId = xml.NewChild("SignedIdentifier","") xSignedId.NewChild2 "Id",randomId Set xAccessPolicy = xSignedId.NewChild("AccessPolicy","") xAccessPolicy.NewChild2 "Start",curDtStr xAccessPolicy.NewChild2 "Expiry",expireDtStr xAccessPolicy.NewChild2 "Permission","rwd" ' Show the XML.. Debug.Print xml.GetXml() ' The expected response is a 200 response status code with no response body. responseStr = rest.FullRequestString("PUT","/mycontainer?restype=container&comp=acl",xml.GetXml()) 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.