Pascal (Lazarus/Delphi)

Open Smartcard Certificate Store (or from USB Token)

See more Certificates Examples

Demonstrates how to open the certificate store of the smart card currently in the reader (or the USB token). Iterates over the certs found on the smartcard. 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.CertStore;

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

procedure RunDemo;
var
  success: Boolean;
  certStore: TCertStore;
  cert: TCert;
  i: Integer;
  numCerts: Integer;

begin
  success := False;

  certStore := TCertStore.Create;

  //  Access the certificates on the smart card or USB token via the Chilkat certificate store class.
  //  Note: Always pass the empty string to OpenSmartcard.

  //  ---------------------------------------------------------------------------------------------------------
  //  The following is true only for Chilkat v10.1.1 and earlier:
  //  Also, the Chilkat CertStore class can only use MS CNG or CryptoAPI.
  //  Some smartcard/USB token drivers only support PKCS11 or ScMinidriver.
  //  You may get better results using Chilkat.Cert.LoadFromSmartcard because
  //  Cert.LoadFromSmartcard can automatically detect and utilize PKCS11, ScMinidriver, CNG, and CryptoAPI.
  //  ---------------------------------------------------------------------------------------------------------
  //  Starting in Chilkat versions after v10.1.1, OpenSmartcard also works with
  //  Apple Keychain and PKCS11 drivers on Windows, Linux, and MacOS.
  //  ---------------------------------------------------------------------------------------------------------

  success := certStore.OpenSmartcard('');
  if (success = False) then
    begin
      WriteLn(certStore.LastErrorText);
      Exit;
    end;
  WriteLn(certStore.LastErrorText);

  //  Iterate over certificates on the smartcard.
  cert := TCert.Create;
  i := 0;
  numCerts := certStore.NumCertificates;
  WriteLn('numCerts = ' + numCerts);

  while (i < numCerts) do
    begin
      certStore.GetCert(i,cert);
      WriteLn(cert.SubjectCN);
      WriteLn(cert.SerialNumber);
      if (cert.IsRsa() = True) then
        begin
          WriteLn('key type is RSA');
        end;
      if (cert.IsEcdsa() = True) then
        begin
          WriteLn('key type is ECDSA');
        end;
      WriteLn('has private key: ' + cert.HasPrivateKey());
      WriteLn('----');
      i := i + 1;
    end;



  certStore.Free;
  cert.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.