(Delphi ActiveX) Generate ULID

See more ULID/UUID Examples

Generate a ULID using a specified timestamp or the current system date timestamp.

Important: Chilkat's ULID functionality was introduced in v9.5.0.94.

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
dt: TCkDateTime;
utc: Integer;
ulid: WideString;
dt2: TCkDateTime;

begin
dt := TCkDateTime.Create(Self);

// Set dt to the current system date/time.
dt.SetFromCurrentSystemTime();

// Generate a ULID for the current UTC date/time.
// (i.e. the current UTC UNIX-time)
utc := 1;
ulid := dt.UlidGenerate(utc);
Memo1.Lines.Add(ulid);

// example result: 01GRGCH4J88RECEN4D4VK4F629

// Generate a ULID using the local timezone's current time.
utc := 0;
ulid := dt.UlidGenerate(utc);
Memo1.Lines.Add(ulid);

// example result: 01GRH14AA82EY9A7S99YYF2QDY

// -----------------------------------------------
// To generate a ULID using a specific UNIX timestamp

// For example, the Unix timestamp for Sun, 05 Feb 2023 14:57:46 GMT
// is 1675609066

// For more information about the Epoch Unix Timestamp, see Epoch Unix Timestamp

// To generate a ULID from a specified date/time, set the CkDateTime and then generate the ULID.
dt2 := TCkDateTime.Create(Self);
utc := 1;
dt2.SetFromUnixTime(utc,1675609066);
ulid := dt2.UlidGenerate(utc);
Memo1.Lines.Add(ulid);

// example result: 01GRH1AJGG3P5K04DJHN3QJCX3
end;