(Visual FoxPro) How to Generate an Azure Storage Account Shared Access Signature (SAS)

Shows how to generate a Shared Access Signature (SAS) for an Azure Storage Account.

Note: This example requires Chilkat v9.5.0.65 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loAuthSas
LOCAL loDt
LOCAL lcSasToken
LOCAL loFac

* Note: Requires Chilkat v9.5.0.65 or greater.

* This requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* --------------------------------------------------------------------------
* Create a Shared Access Signature (SAS) token for an Azure Storage Account.
* --------------------------------------------------------------------------

* See https://docs.microsoft.com/en-us/rest/api/storageservices/fileservices/constructing-an-account-sas 
* for details regarding the Azure Storage Account SAS fields.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthAzureSAS')
loAuthSas = CreateObject('Chilkat.AuthAzureSAS')
loAuthSas.AccessKey = "AZURE_ACCESS_KEY"

* Specify the format of the string to sign.
* Each comma character in the following string represents a LF ("\n") character.
* The names specified in the StringToSign are replaced with the values specified
* in the subsequent calls to SetTokenParam and SetNonTokenParam,.

* Note: The trailing comma in the StringToSign is intentional and important. This indicates that the 
* string to sign will end with a "\n".

* Also note: The names in the StringToSign are case sensitive.  The names
* specified in the 1st argument in the calls to SetNonTokenParam and SetTokenParam should
* match a name listed in StringToSign. 
loAuthSas.StringToSign = "accountname,signedpermissions,signedservice,signedresourcetype,signedstart,signedexpiry,signedIP,signedProtocol,signedversion,"

*  The account name is "chilkat".  Use your own account name instead of "chilkat".
*  Also use your own container name instead of "mycontainer".
loAuthSas.SetNonTokenParam("accountname","chilkat")

loAuthSas.SetTokenParam("signedpermissions","sp","rwdlacup")
loAuthSas.SetTokenParam("signedservice","ss","bfqt")
loAuthSas.SetTokenParam("signedresourcetype","srt","sco")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime')
loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()
loAuthSas.SetTokenParam("signedstart","st",loDt.GetAsIso8601("YYYY-MM-DDThh:mmTZD",0))

* This SAS token will be valid for 30 days.
loDt.AddDays(30)
loAuthSas.SetTokenParam("signedexpiry","se",loDt.GetAsIso8601("YYYY-MM-DDThh:mmTZD",0))

loAuthSas.SetTokenParam("signedProtocol","spr","https")

*  Specifiy values and query param names for each field.
*  If a field is not specified, then an empty string will be used for its value.
loAuthSas.SetTokenParam("signedversion","sv","2015-04-05")

* Note that we did not call SetTokenParam for "signedIP".  For any omitted fields
* the value will default to the empty string.

* Generate the SAS token.
lcSasToken = loAuthSas.GenerateToken()
IF (loAuthSas.LastMethodSuccess <> 1) THEN
    ? loAuthSas.LastErrorText
    RELEASE loAuthSas
    RELEASE loDt
    CANCEL
ENDIF

? "SAS token: " + lcSasToken

* Save the SAS token to a file.
* We can then use this pre-generated token for future Azure Storage Account operations.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')
loFac.WriteEntireTextFile("qa_data/tokens/azureStorageAccountSas.txt",lcSasToken,"utf-8",0)

RELEASE loAuthSas
RELEASE loDt
RELEASE loFac