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
(Visual Basic 6.0) Azure Storage: List BlobsAzure Storage Blob Service REST API: Sample code to fetch the list of blobs in the specified container.
' Azure Blob Service Example: List the blobs in a specified container. ' See also: https://msdn.microsoft.com/en-us/library/azure/dd135734.aspx ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim rest As New ChilkatRest ' Connect to the Azure Storage Blob Service Dim bTls As Long bTls = 1 Dim port As Long port = 443 Dim bAutoReconnect As Long bAutoReconnect = 1 ' In this example, the storage account name is "chilkat". Dim success As Long success = rest.Connect("chilkat.blob.core.windows.net",port,bTls,bAutoReconnect) If (success <> 1) Then Debug.Print rest.LastErrorText Exit Sub End If ' Provide Azure Cloud credentials for the REST call. Dim azAuth As New ChilkatAuthAzureStorage 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 expected success response is a 200 response status code with an XML response body. ' In this example, we are listing the blobs in the container named "mycontainer". Dim responseStr As String responseStr = rest.FullRequestNoBody("GET","/mycontainer?restype=container&comp=list") If (rest.LastMethodSuccess <> 1) Then Debug.Print rest.LastErrorText Exit Sub End If ' When successful, the Azure Storage service will respond with a 200 response status code, ' with an XML 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 ' Load the XML response for parsing. ' An example of the response XML is shown below. Dim xml As New ChilkatXml success = xml.LoadXml(responseStr) Debug.Print xml.GetXml() ' Let's iterate over the blobs... Dim lastMod As New CkDateTime Dim numBlobs As Long numBlobs = xml.NumChildrenAt("Blobs") Dim i As Long i = 0 Do While i < numBlobs Debug.Print "---- Blob " & i & " ----" xml.I = i Debug.Print "Name: " & xml.GetChildContent("Blobs|Blob[i]|Name") Debug.Print "Content-Length: " & xml.GetChildContent("Blobs|Blob[i]|Properties|Content-Length") Debug.Print "Content-Type: " & xml.GetChildContent("Blobs|Blob[i]|Properties|Content-Type") Debug.Print "Content-MD5: " & xml.GetChildContent("Blobs|Blob[i]|Properties|Content-MD5") Debug.Print "BlobType: " & xml.GetChildContent("Blobs|Blob[i]|Properties|BlobType") Debug.Print "LeaseStatus: " & xml.GetChildContent("Blobs|Blob[i]|Properties|LeaseStatus") success = lastMod.SetFromRfc822(xml.GetChildContent("Blobs|Blob[i]|Properties|Last-Modified")) Dim dt As DtObj Set dt = lastMod.GetDtObj(1) Debug.Print "Last-Modified YMD: " & dt.Year & "," & dt.Month & "," & dt.Day i = i + 1 Loop Debug.Print "-------------------------" ' Use the ChilkatPath method to get information for a specific blob: ' For example, let's say we want the Last-Modified date/time for ' the blob named "helloWorld.txt" Dim lastModStr As String lastModStr = xml.ChilkatPath("/C/Name,helloWorld.txt|..|Properties|Last-Modified|*") Debug.Print "helloWorld.txt Last-Modified: " & lastModStr Debug.Print "Success." ' <?xml version="1.0" encoding="utf-8" ?> ' <EnumerationResults ServiceEndpoint="https://chilkat.blob.core.windows.net/" ContainerName="test"> ' <Blobs> ' <Blob> ' <Name>hamletC.xml</Name> ' <Properties> ' <Last-Modified>Mon, 02 May 2016 23:50:30 GMT</Last-Modified> ' <Etag>0x8D372E48B6D323A</Etag> ' <Content-Length>279658</Content-Length> ' <Content-Type>application/octet-stream</Content-Type> ' <Content-Encoding /> ' <Content-Language /> ' <Content-MD5>4E6prI9haw81xadSLeEj3Q==</Content-MD5> ' <Cache-Control /> ' <Content-Disposition>attachment; filename="hamletC.xml"</Content-Disposition> ' <BlobType>BlockBlob</BlobType> ' <LeaseStatus>unlocked</LeaseStatus> ' <LeaseState>available</LeaseState> ' </Properties> ' </Blob> ' <Blob> ' <Name>helloWorld.txt</Name> ' <Properties> ' <Last-Modified>Mon, 02 May 2016 15:21:55 GMT</Last-Modified> ' <Etag>0x8D3729D7EE38299</Etag> ' <Content-Length>12</Content-Length> ' <Content-Type>application/octet-stream</Content-Type> ' <Content-Encoding /> ' <Content-Language /> ' <Content-MD5>7Qdih1MuhjZehB6Sv8UNjA==</Content-MD5> ' <Cache-Control /> ' <Content-Disposition>attachment; filename="helloWorld.txt"</Content-Disposition> ' <BlobType>BlockBlob</BlobType> ' <LeaseStatus>unlocked</LeaseStatus> ' <LeaseState>available</LeaseState> ' </Properties> ' </Blob> ' <Blob> ' <Name>thisIsATest.txt</Name> ' <Properties> ' <Last-Modified>Tue, 03 May 2016 00:22:13 GMT</Last-Modified> ' <Etag>0x8D372E8F9B2A62E</Etag> ' <Content-Length>1600</Content-Length> ' <Content-Type>application/octet-stream</Content-Type> ' <Content-Encoding /> ' <Content-Language /> ' <Content-MD5>FhgUXYfePg2ItsraPmz0Xg==</Content-MD5> ' <Cache-Control /> ' <Content-Disposition>attachment; filename="thisIsATest.txt"</Content-Disposition> ' <BlobType>BlockBlob</BlobType> ' <LeaseStatus>unlocked</LeaseStatus> ' <LeaseState>available</LeaseState> ' </Properties> ' </Blob> ' </Blobs> ' <NextMarker /> ' </EnumerationResults> ' |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.