Load PFX (PKCS#12) and List Certificates

Loads a PFX file (.pfx, .p12) and iterates over the certificates found within.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
certStore: CHILKATCERTIFICATELib_TLB.IChilkatCertStore;
success: Integer;
pfxPath: String;
pfxPassword: String;
i: Integer;
numCerts: Integer;
cert: IChilkatCert;

begin
certStore := CoChilkatCertStore.Create();

pfxPath := '/Users/chilkat/testData/pfx/chilkat_ssl.pfx';
pfxPassword := 'test';
success := certStore.LoadPfxFile(pfxPath,pfxPassword);
if (success <> 1) then
  begin
    Memo1.Lines.Add(certStore.LastErrorText);
    Exit;
  end;

numCerts := certStore.NumCertificates;

Memo1.Lines.Add('PFX contains ' + IntToStr(numCerts)
     + ' certificates');

if (numCerts = 0) then
  begin
    Exit;
  end;

for i := 0 to (numCerts - 1) do
  begin

    cert := certStore.GetCertificate(i) As IChilkatCert;
    if (not (cert = nil )) then
      begin
        Memo1.Lines.Add(IntToStr(i) + ': (Common Name) '
             + cert.SubjectCN);
        Memo1.Lines.Add(IntToStr(i) + ': (Serial Number) '
             + cert.SerialNumber);
        Memo1.Lines.Add(IntToStr(i) + ': (Distinguished Name) '
             + cert.SubjectDN);

      end;

  end;

end;