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) Adding x-ms-range header to Azure Blob DownloadSee more Azure Cloud Storage ExamplesDemonstrates how to add an x-ms-range header to an Azure blob download. For more information, see https://docs.microsoft.com/en-us/rest/api/storageservices/get-blob
' 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: Content-Length, x-ms-date, Authorization. These headers ' are automatically set by Chilkat. ' Add the x-ms-range header. ' See x-ms-range Header Format ' The file we're downloading contains "Hello World!", so we'll download just the "World!" part.. Dim success As Boolean success = rest.AddHeader("x-ms-range","bytes=6-") ' The Azure blob container is "test", the file is "helloWorld.txt" Dim sb As Chilkat.StringBuilder Set sb = Chilkat.NewStringBuilder success = rest.FullRequestNoBodySb("GET","/test/helloWorld.txt",sb) If (success = False) 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 "---" Debug.Print "LastRequestStartLine: "; rest.LastRequestStartLine Debug.Print "LastRequestHeader: "; rest.LastRequestHeader Exit Sub End If Debug.Print sb.GetAsString() Debug.Print "Success." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.