Xbase++

Configure Azure Storage Shared Key Authentication

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.

Background. Azure Storage Shared Key authorization signs each request with the account access key. The provider also manages the x-ms-version header required by the storage REST API.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nBAutoReconnect
LOCAL oAzAuth
LOCAL cResponseText

nSuccess := 0

oRest := CreateObject("Chilkat.Rest")
nBTls := 1
nBAutoReconnect := 1
nSuccess := oRest:Connect("example.com", 443, nBTls, nBAutoReconnect)
IF (nSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

//  Configure Azure Storage Shared Key authentication.  Provide the account name, base64 account
//  access key, service, and (optionally) the x-ms-version.
oAzAuth := CreateObject("Chilkat.AuthAzureStorage")
oAzAuth: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.
oAzAuth:AccessKey := "BASE64_ACCOUNT_ACCESS_KEY"
oAzAuth:Scheme := "SharedKey"
oAzAuth:Service := "Blob"
oAzAuth:XMsVersion := "2021-08-06"

//  Associate the provider so Chilkat automatically adds the Shared Key Authorization header.
nSuccess := oRest:SetAuthAzureStorage(oAzAuth)
IF (nSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    oAzAuth:destroy()
    RETURN
ENDIF

cResponseText := oRest:FullRequestNoBody("GET", "/mycontainer?restype=container&comp=list")
IF (oRest:LastMethodSuccess == 0)
    ? oRest:LastErrorText
    oRest:destroy()
    oAzAuth:destroy()
    RETURN
ENDIF

? cResponseText

oRest:destroy()
oAzAuth:destroy()