(Delphi ActiveX) Load Default Certificate from Smart Card or Token

See more Certificates Examples

Chilkat contains internal logic to examine a connected smart card or USB token, and will make decisions based on make/model to successfully interact with the hardware. When faced with a new smartcard or token, the best starting point is to call LoadFromSmartcard with an empty string argument to see what Chilkat discovers.

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
cert: TChilkatCert;
success: Integer;

begin
cert := TChilkatCert.Create(Self);

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

// To let Chilkat discover what smartcard or token is connected, pass an empty string to LoadFromSmartcard.
// When testing in this way, it's best to have only a single smartcard or token connected to the system.
success := cert.LoadFromSmartcard('');
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Memo1.Lines.Add('Certificate not loaded.');
    Exit;
  end;

// The LastErrorText property on all Chilkat objects will contain 
// information even when the method call is successful.
// You can examine the LastErrorText to see what Chilkat found and
// what decisions were made.
// 
// For example, if a certificate was successfully loaded via LoadFromSmartcard,
// but then signing failed, such as w/ Pdf, XmlDSig, CAdES, etc.,
// then we would want to examine the LastErrorText from the call to
// LoadFromSmartcard to get detailed information about the card.
Memo1.Lines.Add(cert.LastErrorText);

Memo1.Lines.Add('Found: ' + cert.SubjectDN + ' serial=' + cert.SerialNumber);
end;