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
(VB.NET) Azure Storage: Create ContainerAzure Storage Blob Service REST API: Sample code to create a new container under a specified account.
' Azure Blob Service Example: Create Container ' See also: https://msdn.microsoft.com/en-us/library/azure/dd179468.aspx ' 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 Azure Storage Blob Service Dim bTls As Boolean = True Dim port As Integer = 443 Dim bAutoReconnect As Boolean = True ' In this example, the storage account name is "chilkat". Dim success As Boolean = rest.Connect("chilkat.blob.core.windows.net",port,bTls,bAutoReconnect) If (success <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' Provide Azure Cloud credentials for the REST call. Dim azAuth As New Chilkat.AuthAzureStorage 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: 2021-08-06" header to be automatically added. azAuth.XMsVersion = "2021-08-06" 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 expected success response is a 201 response status code with no response body. ' In this example, the container to be created is named "mycontainer". Dim responseStr As String = rest.FullRequestNoBody("PUT","/mycontainer?restype=container") If (rest.LastMethodSuccess <> True) Then Debug.WriteLine(rest.LastErrorText) Exit Sub End If ' When successful, the Azure Storage service will respond with a 201 response code, ' with no response body. ' If the container with the same name already exists, then the operation will fail. If (rest.ResponseStatusCode <> 201) Then ' Examine the request/response to see what happened. Debug.WriteLine("response status code = " & rest.ResponseStatusCode) Debug.WriteLine("response status text = " & rest.ResponseStatusText) Debug.WriteLine("response header: " & rest.ResponseHeader) Debug.WriteLine("response body (if any): " & responseStr) Debug.WriteLine("---") Debug.WriteLine("LastRequestStartLine: " & rest.LastRequestStartLine) Debug.WriteLine("LastRequestHeader: " & rest.LastRequestHeader) Exit Sub End If ' If desired, we can examine some of the response headers: Debug.WriteLine("ETag: " & rest.ResponseHdrByName("ETag")) Debug.WriteLine("Last-Modified: " & rest.ResponseHdrByName("Last-Modified")) Debug.WriteLine("Success: Container Created.") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.