(Delphi ActiveX) Find Certificate on Smartcard Currenty in Reader

Finds the certificates on smartcards currently in readers.

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

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
csp: TChilkatCsp;
st: TChilkatStringTable;
success: Integer;
i: Integer;
numProviders: Integer;
certStore: TChilkatCertStore;
numContainers: Integer;
keyContainerName: WideString;
cert: IChilkatCert;

begin
// This newer example is a much better way to get the certificate on a smartcard or USB token

// This example requires that we already know the name of the CSP (Cryptographic Service Provider) for the smartcard.
// It is often the "Microsoft Base Smart Card Crypto Provider".  You can see what CSP's are registered on your system with this code:

csp := TChilkatCsp.Create(Self);
st := TChilkatStringTable.Create(Self);

success := csp.GetProviders(st.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(csp.LastErrorText);
    Exit;
  end;

// Iterate over the CSP names..
i := 0;
numProviders := st.Count;
while i < numProviders do
  begin
    Memo1.Lines.Add(IntToStr(i) + ': ' + st.StringAt(i));
    i := i + 1;
  end;

// --------------------------
// This newer example is a much better way to get the certificate on a smartcard or USB token

// We'll assume our smartcard is accessed through the "Microsoft Base Smart Card Crypto Provider"
// Also, we'll assume that the certificate has been installed into the default current user Windows
// certificate store by following the instructions provided by the smartcard vendor.
// (The certificate does not contain the private key.  The certificate should be installed in the
// Windows current user certificate store.  It will also be on the smartcard, and the associated private
// key is only on the smartcard.)
// 

// First open the Current User Certificate Store.  We'll need it soon..
certStore := TChilkatCertStore.Create(Self);
success := certStore.OpenCurrentUserStore(1);
if (success = 0) then
  begin
    Memo1.Lines.Add(certStore.LastErrorText);
    Exit;
  end;

// Create a Csp object and set the ProviderName equal to our desired CSP name.
// (setting the ProviderName selects the desired CSP.)
csp.ProviderName := 'Microsoft Base Smart Card Crypto Provider';

// Iterate over the key containers managed by this CSP.
// These will be the key containers for the cards currently inserted into the reader(s).
// If only one smartcard reader exists, and a smartcard is inserted, there should be one
// key container.
numContainers := csp.NumKeyContainers;

Memo1.Lines.Add('numContainers = ' + IntToStr(numContainers));

i := 0;
while i < numContainers do
  begin
    // For each key container, get the key container name and then find the certificate
    // in the Current User Certicate Store with the matching key container name.
    keyContainerName := csp.NthKeyContainerName(i);

    cert := certStore.FindCertByKeyContainer(keyContainerName);
    if (certStore.LastMethodSuccess = 1) then
      begin
        Memo1.Lines.Add('Certificate in reader: ' + cert.SubjectCN);

      end;
    i := i + 1;
  end;
end;