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 = False

Dim rest As New Chilkat.Rest
Dim bTls As Boolean = True
Dim bAutoReconnect As Boolean = True
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = False) Then
    Debug.WriteLine(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 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
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


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

Debug.WriteLine(responseText)