(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
dt: HCkDateTime;
utc: Boolean;
ulid: PWideChar;
dt2: HCkDateTime;

begin
dt := CkDateTime_Create();

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

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

// example result: 01GRGCH4J88RECEN4D4VK4F629

// Generate a ULID using the local timezone's current time.
utc := False;
ulid := CkDateTime__ulidGenerate(dt,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 := CkDateTime_Create();
utc := True;
CkDateTime_SetFromUnixTime(dt2,utc,1675609066);
ulid := CkDateTime__ulidGenerate(dt2,utc);
Memo1.Lines.Add(ulid);

// example result: 01GRH1AJGG3P5K04DJHN3QJCX3

CkDateTime_Dispose(dt);
CkDateTime_Dispose(dt2);

end;