Pascal (Lazarus/Delphi)

How to Generate an Azure Service Bus Shared Access Signature (SAS)

See more Azure Service Bus Examples

Demonstrates generating and using an Azure Service Bus Shared Access Signature (SAS).

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

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.FileAccess,
  Chilkat.StringBuilder,
  Chilkat.AuthAzureSAS,
  Chilkat.CkDateTime;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  authSas: TAuthAzureSAS;
  dtExpiry: TCkDateTime;
  sbResourceUri: TStringBuilder;
  sasToken: string;
  fac: TFileAccess;

begin
  //  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 Azure Service Bus.
  //  -------------------------------------------------------------------

  authSas := TAuthAzureSAS.Create;
  authSas.AccessKey := 'AzureServiceBus_PrimaryKey';

  //  The SAS token for Service Bus will look like this:
  //  (The order of params will be different.  The order does not matter.)
  //  sig=<signature-string>&se=<expiry>&skn=<keyName>&sr=<URL-encoded-resourceURI>

  //  Specify the format of the string to sign.
  authSas.StringToSign := 'resourceURI,expiry';

  //  Create an expiry to 30 days in the future.
  dtExpiry := TCkDateTime.Create;
  dtExpiry.SetFromCurrentSystemTime();
  dtExpiry.AddDays(30);
  authSas.SetTokenParam('expiry','se',dtExpiry.GetAsUnixTimeStr(True));

  //  Set the skn (keyname)
  //  This example uses the key "RootManageSharedAccessKey".  This give full access.
  //  In a typical scenario, you would create a new Azure key (for the service bus)
  //  in the Azure portal, such that the key has limited permissions.  This would
  //  allow you to give the SAS token to others for specific access for some period of time.
  authSas.SetTokenParam('keyName','skn','RootManageSharedAccessKey');

  //  Set the URL-encoded-resourceURI
  sbResourceUri := TStringBuilder.Create;
  sbResourceUri.Append('https://<yournamespace>.servicebus.windows.net/');
  sbResourceUri.Encode('url','utf-8');
  authSas.SetTokenParam('resourceURI','sr',sbResourceUri.GetAsString());

  //  Generate the SAS token.
  sasToken := authSas.GenerateToken();
  if (authSas.LastMethodSuccess <> True) then
    begin
      WriteLn(authSas.LastErrorText);
      Exit;
    end;

  WriteLn('SAS token: ' + sasToken);

  //  Save the SAS token to a file.
  //  We can then use this pre-generated token for future Service Bus operations.
  fac := TFileAccess.Create;
  fac.WriteEntireTextFile('qa_data/tokens/serviceBusSas.txt',sasToken,'utf-8',False);


  authSas.Free;
  dtExpiry.Free;
  sbResourceUri.Free;
  fac.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.