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 Long
success = 0

Dim rest As New ChilkatRest
Dim bTls As Long
bTls = 1
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
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 ChilkatAuthAzureStorage
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 = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim responseText As String
responseText = rest.FullRequestNoBody("GET","/mycontainer?restype=container&comp=list")
If (rest.LastMethodSuccess = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Debug.Print responseText