Configure Azure Storage Shared Key Authentication

See more REST Examples

Demonstrates Rest.SetAuthAzureStorage, which associates an AuthAzureStorage provider so Chilkat automatically adds a Shared Key Authorization header. The provider supplies the account name, base64 account key, service, and scheme.

Dim success As Boolean
success = False

Dim rest As New Chilkat.Rest
Dim bTls As Boolean
bTls = True
Dim bAutoReconnect As Boolean
bAutoReconnect = True
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

//  Configure Azure Storage Shared Key authentication.  Provide the account name, base64 account
//  access key, service, and (optionally) the x-ms-version.
Dim azAuth As New Chilkat.AuthAzureStorage
azAuth.Account = "myStorageAccount"
//  Normally you would not hard-code secrets in source.  You should instead obtain them from an
//  interactive prompt, environment variable, or a secrets vault.
azAuth.AccessKey = "BASE64_ACCOUNT_ACCESS_KEY"
azAuth.Scheme = "SharedKey"
azAuth.Service = "Blob"
azAuth.XMsVersion = "2021-08-06"

//  Associate the provider so Chilkat automatically adds the Shared Key Authorization header.
success = rest.SetAuthAzureStorage(azAuth)
If (success = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim responseText As String
responseText = rest.FullRequestNoBody("GET","/mycontainer?restype=container&comp=list")
If (rest.LastMethodSuccess = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

System.DebugLog(responseText)