Pascal (Lazarus/Delphi)

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.

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.CkDateTime;

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

procedure RunDemo;
var
  dt: TCkDateTime;
  utc: Boolean;
  ulid: string;
  dt2: TCkDateTime;

begin
  dt := TCkDateTime.Create;

  //  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 := True;
  ulid := dt.UlidGenerate(utc);
  WriteLn(ulid);

  //  example result: 01GRGCH4J88RECEN4D4VK4F629

  //  Generate a ULID using the local timezone's current time.
  utc := False;
  ulid := dt.UlidGenerate(utc);
  WriteLn(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;
  utc := True;
  dt2.SetFromUnixTime(utc,1675609066);
  ulid := dt2.UlidGenerate(utc);
  WriteLn(ulid);

  //  example result: 01GRH1AJGG3P5K04DJHN3QJCX3


  dt.Free;
  dt2.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.