(PowerBuilder) 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

integer li_rc
oleobject loo_AuthSas
oleobject loo_Dt
string ls_SasToken
oleobject loo_Fac

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

loo_AuthSas = create oleobject
// Use "Chilkat_9_5_0.AuthAzureSAS" for versions of Chilkat < 10.0.0
li_rc = loo_AuthSas.ConnectToNewObject("Chilkat.AuthAzureSAS")
if li_rc < 0 then
    destroy loo_AuthSas
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_AuthSas.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. 
loo_AuthSas.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".
loo_AuthSas.SetNonTokenParam("accountname","chilkat")

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

loo_Dt = create oleobject
// Use "Chilkat_9_5_0.CkDateTime" for versions of Chilkat < 10.0.0
li_rc = loo_Dt.ConnectToNewObject("Chilkat.CkDateTime")

loo_Dt.SetFromCurrentSystemTime()
loo_AuthSas.SetTokenParam("signedstart","st",loo_Dt.GetAsIso8601("YYYY-MM-DDThh:mmTZD",0))

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

loo_AuthSas.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.
loo_AuthSas.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.
ls_SasToken = loo_AuthSas.GenerateToken()
if loo_AuthSas.LastMethodSuccess <> 1 then
    Write-Debug loo_AuthSas.LastErrorText
    destroy loo_AuthSas
    destroy loo_Dt
    return
end if

Write-Debug "SAS token: " + ls_SasToken

// Save the SAS token to a file.
// We can then use this pre-generated token for future Azure Storage Account operations.
loo_Fac = create oleobject
// Use "Chilkat_9_5_0.FileAccess" for versions of Chilkat < 10.0.0
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")

loo_Fac.WriteEntireTextFile("qa_data/tokens/azureStorageAccountSas.txt",ls_SasToken,"utf-8",0)


destroy loo_AuthSas
destroy loo_Dt
destroy loo_Fac