Xbase++

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

See more Azure Cloud Storage Examples

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.

Xbase++

LOCAL oAuthSas
LOCAL oDt
LOCAL cSasToken
LOCAL oFac

//  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.

oAuthSas := CreateObject("Chilkat.AuthAzureSAS")
oAuthSas: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. 
oAuthSas: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".
oAuthSas:SetNonTokenParam("accountname", "chilkat")

oAuthSas:SetTokenParam("signedpermissions", "sp", "rwdlacup")
oAuthSas:SetTokenParam("signedservice", "ss", "bfqt")
oAuthSas:SetTokenParam("signedresourcetype", "srt", "sco")

oDt := CreateObject("Chilkat.CkDateTime")
oDt:SetFromCurrentSystemTime()
oAuthSas:SetTokenParam("signedstart", "st", oDt:GetAsIso8601("YYYY-MM-DDThh:mmTZD", 0))

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

oAuthSas: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.
oAuthSas: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.
cSasToken := oAuthSas:GenerateToken()
IF (oAuthSas:LastMethodSuccess != 1)
    ? oAuthSas:LastErrorText
    oAuthSas:destroy()
    oDt:destroy()
    RETURN
ENDIF

? "SAS token: " + cSasToken

//  Save the SAS token to a file.
//  We can then use this pre-generated token for future Azure Storage Account operations.
oFac := CreateObject("Chilkat.FileAccess")
oFac:WriteEntireTextFile("qa_data/tokens/azureStorageAccountSas.txt", cSasToken, "utf-8", 0)

oAuthSas:destroy()
oDt:destroy()
oFac:destroy()