DataFlex
DataFlex
Azure Storage: List Blobs
See more Azure Cloud Storage Examples
Azure Storage Blob Service REST API: Sample code to fetch the list of blobs in the specified container.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoRest
Boolean iBTls
Integer iPort
Boolean iBAutoReconnect
Variant vAzAuth
Handle hoAzAuth
String sResponseStr
Handle hoXml
Handle hoLastMod
Integer iNumBlobs
Integer i
Variant vDt
Handle hoDt
String sLastModStr
String sTemp1
Integer iTemp1
Integer iTemp2
Integer iTemp3
Boolean bTemp1
Move False To iSuccess
// 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.
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// Connect to the Azure Storage Blob Service
Move True To iBTls
Move 443 To iPort
Move True To iBAutoReconnect
// In this example, the storage account name is "chilkat".
Get ComConnect Of hoRest "chilkat.blob.core.windows.net" iPort iBTls iBAutoReconnect To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
// Provide Azure Cloud credentials for the REST call.
Get Create (RefClass(cComChilkatAuthAzureStorage)) To hoAzAuth
If (Not(IsComObjectCreated(hoAzAuth))) Begin
Send CreateComObject of hoAzAuth
End
Set ComAccessKey Of hoAzAuth To "AZURE_ACCESS_KEY"
// The account name used here should match the 1st part of the domain passed in the call to Connect (above).
Set ComAccount Of hoAzAuth To "chilkat"
Set ComScheme Of hoAzAuth To "SharedKey"
Set ComService Of hoAzAuth To "Blob"
// This causes the "x-ms-version: 2021-08-06" header to be automatically added.
Set ComXMsVersion Of hoAzAuth To "2021-08-06"
Get pvComObject of hoAzAuth to vAzAuth
Get ComSetAuthAzureStorage Of hoRest vAzAuth To iSuccess
// 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".
Get ComFullRequestNoBody Of hoRest "GET" "/mycontainer?restype=container&comp=list" To sResponseStr
Get ComLastMethodSuccess Of hoRest To bTemp1
If (bTemp1 = False) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
// When successful, the Azure Storage service will respond with a 200 response status code,
// with an XML response body.
Get ComResponseStatusCode Of hoRest To iTemp1
If (iTemp1 <> 200) Begin
// Examine the request/response to see what happened.
Get ComResponseStatusCode Of hoRest To iTemp1
Showln "response status code = " iTemp1
Get ComResponseStatusText Of hoRest To sTemp1
Showln "response status text = " sTemp1
Get ComResponseHeader Of hoRest To sTemp1
Showln "response header: " sTemp1
Showln "response body (if any): " sResponseStr
Showln "---"
Get ComLastRequestStartLine Of hoRest To sTemp1
Showln "LastRequestStartLine: " sTemp1
Get ComLastRequestHeader Of hoRest To sTemp1
Showln "LastRequestHeader: " sTemp1
Procedure_Return
End
// Load the XML response for parsing.
// An example of the response XML is shown below.
Get Create (RefClass(cComChilkatXml)) To hoXml
If (Not(IsComObjectCreated(hoXml))) Begin
Send CreateComObject of hoXml
End
Get ComLoadXml Of hoXml sResponseStr To iSuccess
Get ComGetXml Of hoXml To sTemp1
Showln sTemp1
// Let's iterate over the blobs...
Get Create (RefClass(cComCkDateTime)) To hoLastMod
If (Not(IsComObjectCreated(hoLastMod))) Begin
Send CreateComObject of hoLastMod
End
Get ComNumChildrenAt Of hoXml "Blobs" To iNumBlobs
Move 0 To i
Get Create (RefClass(cComChilkatDtObj)) To hoDt
If (Not(IsComObjectCreated(hoDt))) Begin
Send CreateComObject of hoDt
End
While (i < iNumBlobs)
Showln "---- Blob " i " ----"
Set ComI Of hoXml To i
Get ComGetChildContent Of hoXml "Blobs|Blob[i]|Name" To sTemp1
Showln "Name: " sTemp1
Get ComGetChildContent Of hoXml "Blobs|Blob[i]|Properties|Content-Length" To sTemp1
Showln "Content-Length: " sTemp1
Get ComGetChildContent Of hoXml "Blobs|Blob[i]|Properties|Content-Type" To sTemp1
Showln "Content-Type: " sTemp1
Get ComGetChildContent Of hoXml "Blobs|Blob[i]|Properties|Content-MD5" To sTemp1
Showln "Content-MD5: " sTemp1
Get ComGetChildContent Of hoXml "Blobs|Blob[i]|Properties|BlobType" To sTemp1
Showln "BlobType: " sTemp1
Get ComGetChildContent Of hoXml "Blobs|Blob[i]|Properties|LeaseStatus" To sTemp1
Showln "LeaseStatus: " sTemp1
Get ComGetChildContent Of hoXml "Blobs|Blob[i]|Properties|Last-Modified" To sTemp1
Get ComSetFromRfc822 Of hoLastMod sTemp1 To iSuccess
Get pvComObject of hoDt to vDt
Send ComToDtObj To hoLastMod True vDt
Get ComYear Of hoDt To iTemp1
Get ComMonth Of hoDt To iTemp2
Get ComDay Of hoDt To iTemp3
Showln "Last-Modified YMD: " iTemp1 "," iTemp2 "," iTemp3
Move (i + 1) To i
Loop
Showln "-------------------------"
// 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"
Get ComChilkatPath Of hoXml "/C/Name,helloWorld.txt|..|Properties|Last-Modified|*" To sLastModStr
Showln "helloWorld.txt Last-Modified: " sLastModStr
Showln "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>
//
End_Procedure