Pascal (Lazarus/Delphi)

Save a Public Key as a PEM File

Demonstrates the Chilkat PublicKey.SavePemFile method, which saves the public key in PEM format. The first argument selects the representation and PEM label, and the second is the destination path.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: PEM is the most widely accepted public-key file format, so this is the usual way to write a key for distribution or for tools that expect a .pem. Choose false for the modern PUBLIC KEY (SubjectPublicKeyInfo) label in most cases, or true for the legacy RSA-specific label when required.

Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)

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

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

procedure RunDemo;
var
  success: Boolean;
  pubKey: TPublicKey;
  preferPkcs1: Boolean;

begin
  success := False;

  //  Load a public key to export.  LoadFromFile inspects the content, so it accepts DER, PEM, XML,
  //  JWK, and other supported representations.
  pubKey := TPublicKey.Create;
  success := pubKey.LoadFromFile('qa_data/public.pem');
  if (success = False) then
    begin
      WriteLn(pubKey.LastErrorText);
      Exit;
    end;

  //  Save the public key in PEM format.  The 1st argument selects the representation and PEM label,
  //  and the 2nd is the destination path.
  preferPkcs1 := False;
  success := pubKey.SavePemFile(preferPkcs1,'qa_output/public.pem');
  if (success = False) then
    begin
      WriteLn(pubKey.LastErrorText);
      Exit;
    end;
  WriteLn('Saved.');


  pubKey.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.