Pascal (Lazarus/Delphi)

Load Certificate from Smart Card by Serial Number

See more Certificates Examples

This example requires Chilkat v9.5.0.87 or greater. It uses a Windows-only function named LoadFromSmartcard.

This example loads a certificate specified by its hexidecimal serial number. The LoadFromSmartcard method will examine the connected smart cards and USB tokens and will find and load the certificate having the specified serial number.

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;

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

procedure RunDemo;
var
  success: Boolean;
  cert: TCert;
  cert2: TCert;

begin
  success := False;

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

  cert := TCert.Create;

  //  If you know the smart card PIN, set it prior to loading from the smartcard/USB token.
  cert.SmartCardPin := '12345678';

  //  To load the certificate specified by its hexidecimal serial number, pass the string "serial=<hexSerialNumber>".  For example:
  success := cert.LoadFromSmartcard('serial=4A1E6ADCF59DB1EFBAAE438D2C52664E40D16A87');
  if (success = False) then
    begin
      WriteLn(cert.LastErrorText);
      WriteLn('Certificate not loaded.');
      Exit;
    end;

  WriteLn('Found: ' + cert.SubjectDN + ' serial=' + cert.SerialNumber);

  //  Here's another example.
  //  Note: serial numbers can be of different lengths.  The length of the serial number depends on the certificate.
  cert2 := TCert.Create;
  success := cert2.LoadFromSmartcard('serial=66BE58138D761E92BC594A722932657BE26D421F');
  if (success = False) then
    begin
      WriteLn(cert2.LastErrorText);
      WriteLn('Certificate not loaded.');
      Exit;
    end;

  WriteLn('Found: ' + cert2.SubjectDN + ' serial=' + cert2.SerialNumber);


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