(Delphi ActiveX) ChartURL - Create a Signed URL

Demonstrates how to create a signed URL for ChartURL.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
crypt: TChilkatCrypt2;
key: WideString;
token: WideString;
slug: WideString;
data: WideString;
json: TChilkatJsonObject;
sig: WideString;
sbUrl: TChilkatStringBuilder;

begin
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

crypt := TChilkatCrypt2.Create(Self);

// Example key: "dek-d7a46236eda961a6c3c18ffcc6b077ba87d27e9ae85f7842c6d427c265dd5f69d5131308d93332353d4a55a4b1160fcf516515a4a9f0aa50fbf2d7a2e7d0f1c5"
key := 'charturl-sign-encrypt-key';
// Example token: "dt-RwYN"
token := 'charturl-token';

slug := 'weekly-activity';
data := '{ "options": {"data": {"columns": [["This Week",10,13],["Last Week",9,5]]}}}';

crypt.HashAlgorithm := 'SHA256';
crypt.MacAlgorithm := 'HMAC';
crypt.SetMacKeyString(key);
crypt.EncodingMode := 'base64';

json := TChilkatJsonObject.Create(Self);
json.Load(data);
Memo1.Lines.Add('json = ' + json.Emit());

sig := crypt.MacStringENC(json.Emit());

sbUrl := TChilkatStringBuilder.Create(Self);
sbUrl.Append('https://charturl.com/i/');
sbUrl.Append(token);
sbUrl.Append('/');
sbUrl.Append(slug);
sbUrl.Append('?d=');
sbUrl.Append(crypt.EncodeString(json.Emit(),'utf-8','url'));
sbUrl.Append('&s=');
sbUrl.Append(crypt.EncodeString(sig,'utf-8','url'));

Memo1.Lines.Add('Signed URL: ' + sbUrl.GetAsString());
end;