Pascal (Lazarus/Delphi)

Load P7B and Iterate Certificates

See more PEM Examples

Demonstrates how to load a .p7b containing one or more certificates access each of them. 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.Cert,
  Chilkat.Pem;

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

procedure RunDemo;
var
  success: Boolean;
  pem: TPem;
  numCerts: Integer;
  i: Integer;
  cert: TCert;

begin
  success := False;

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

  success := False;

  //  The Chilkat PEM class was introduced in v9.5.0.49.  
  //  It requires the bundle to be unlocked, as shown above.
  pem := TPem.Create;

  //  Load the .p7b from a file.
  success := pem.LoadP7bFile('../myCertFiles/myP7b.p7b');
  if (success <> True) then
    begin
      WriteLn(pem.LastErrorText);
      Exit;
    end;

  //  Note: If the app already has the p7b loaded in memory, the LoadP7b method
  //  may be called instead.  (see the online reference documentation)

  //  Iterate over the certificates.
  numCerts := pem.NumCerts;
  i := 0;

  while i < numCerts do
    begin

      cert := pem.GetCert(i);
      WriteLn('Certificate ' + i + ' : ' + cert.SubjectDN);
      cert.Free;

      i := i + 1;
    end;



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