Visual FoxPro

Configure Azure SAS Authentication for REST

Demonstrates Rest.SetAuthAzureSas, which associates an AuthAzureSAS provider so requests are authorized with an Azure Shared Access Signature token.

Background. A SAS token grants time-limited, permission-scoped access to Azure Storage resources without exposing the account key on the wire. Use SAS authorization when a query-token approach is preferred over Shared Key headers.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnBAutoReconnect
LOCAL loAzSas
LOCAL lcResponseText

lnSuccess = 0

loRest = CreateObject('Chilkat.Rest')
lnBTls = 1
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("example.com",443,lnBTls,lnBAutoReconnect)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

*  Configure Azure Shared Access Signature (SAS) authentication.  Provide the account access key
*  and the SAS token query parameters; Chilkat adds the SAS token to each request.
loAzSas = CreateObject('Chilkat.AuthAzureSAS')
*  Normally you would not hard-code secrets in source.  You should instead obtain them from an
*  interactive prompt, environment variable, or a secrets vault.
loAzSas.AccessKey = "BASE64_ACCOUNT_ACCESS_KEY"

*  Associate the provider with the REST object.
lnSuccess = loRest.SetAuthAzureSas(loAzSas)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAzSas
    CANCEL
ENDIF

lcResponseText = loRest.FullRequestNoBody("GET","/mycontainer/myblob.txt")
IF (loRest.LastMethodSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAzSas
    CANCEL
ENDIF

? lcResponseText

RELEASE loRest
RELEASE loAzSas