(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Csp, StringTable, Cert, CertStore;

...

procedure TForm1.Button1Click(Sender: TObject);
var
csp: HCkCsp;
st: HCkStringTable;
success: Boolean;
i: Integer;
numProviders: Integer;
certStore: HCkCertStore;
numContainers: Integer;
keyContainerName: PWideChar;
cert: HCkCert;

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 := CkCsp_Create();
st := CkStringTable_Create();

success := CkCsp_GetProviders(csp,st);
if (success = False) then
  begin
    Memo1.Lines.Add(CkCsp__lastErrorText(csp));
    Exit;
  end;

// Iterate over the CSP names..
i := 0;
numProviders := CkStringTable_getCount(st);
while i < numProviders do
  begin
    Memo1.Lines.Add(IntToStr(i) + ': ' + CkStringTable__stringAt(st,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 := CkCertStore_Create();
success := CkCertStore_OpenCurrentUserStore(certStore,True);
if (success = False) then
  begin
    Memo1.Lines.Add(CkCertStore__lastErrorText(certStore));
    Exit;
  end;

// Create a Csp object and set the ProviderName equal to our desired CSP name.
// (setting the ProviderName selects the desired CSP.)
CkCsp_putProviderName(csp,'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 := CkCsp_getNumKeyContainers(csp);

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 := CkCsp__nthKeyContainerName(csp,i);

    cert := CkCertStore_FindCertByKeyContainer(certStore,keyContainerName);
    if (CkCertStore_getLastMethodSuccess(certStore) = True) then
      begin
        Memo1.Lines.Add('Certificate in reader: ' + CkCert__subjectCN(cert));
        CkCert_Dispose(cert);
      end;
    i := i + 1;
  end;

CkCsp_Dispose(csp);
CkStringTable_Dispose(st);
CkCertStore_Dispose(certStore);

end;