Pascal (Lazarus/Delphi)

Convert CRL PEM to XML

See more PEM Examples

Loads a CRL (Certificate Revocation List) from the PEM file format and converts to XML to allow for visual examination and parsing.

Note: This example requires Chilkat v9.5.0.77 or greater.

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.Asn,
  Chilkat.Xml,
  Chilkat.Pem;

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

procedure RunDemo;
var
  success: Boolean;
  pem: TPem;
  numCrls: Integer;
  i: Integer;
  asn: TAsn;
  xml: TXml;
  crlBase64: string;

begin
  success := False;

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

  //  This example requires Chilkat v9.5.0.77 or greater.
  pem := TPem.Create;

  pem.VerboseLogging := True;
  success := pem.LoadPemFile('qa_data/crl/sampleCrl.pem','password_not_used');
  if (success <> True) then
    begin
      WriteLn(pem.LastErrorText);
      Exit;
    end;

  numCrls := pem.NumCrls;
  i := 0;

  asn := TAsn.Create;
  xml := TXml.Create;
  while i < numCrls do
    begin

      //  Get the CRL as base64 (multi-line)
      crlBase64 := pem.GetEncodedItem('crl','','base64_mime',i);
      if (pem.LastMethodSuccess <> True) then
        begin
          WriteLn(pem.LastErrorText);
          Exit;
        end;

      WriteLn(crlBase64);

      success := asn.LoadEncoded(crlBase64,'base64');
      if (success <> True) then
        begin
          WriteLn(asn.LastErrorText);
          Exit;
        end;

      //  Convert ASN.1 to XML and load into xml and re-emit for pretty printing..
      xml.LoadXml(asn.AsnToXml());
      WriteLn(xml.GetXml());

      //  Use this online tool to generate parsing code from CRL XML: 
      //  Generate Parsing Code from XML

      WriteLn('-------------------------------------');
      i := i + 1;
    end;



  pem.Free;
  asn.Free;
  xml.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.