(Delphi ActiveX) ScMinidriver - Acquire Context with Smart Card or USB Token

See more ScMinidriver Examples

Initializes communication with the card inserted in the given reader (or a USB token). Reader names can be discovered via the SCard.ListReaders or SCard.FindSmartcards methods. If successful, the Atr and CardName properties will be set.

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
scmd: TChilkatScMinidriver;
readerName: WideString;
success: Integer;
cardName: WideString;

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

scmd := TChilkatScMinidriver.Create(Self);

// Reader names (smart card readers or USB tokens) can be discovered
// via List Readers or Find Smart Cards
readerName := 'Alcor Micro USB Smart Card Reader 0';
success := scmd.AcquireContext(readerName);
if (success = 0) then
  begin
    Memo1.Lines.Add(scmd.LastErrorText);
    Exit;
  end;

// If we are successful, the name of the currently inserted smart card is available:
cardName := scmd.CardName;
Memo1.Lines.Add('Card name: ' + cardName);

// Also, the ATR of the inserted card is available (you will likely not need the ATR).
Memo1.Lines.Add('ATR: ' + scmd.Atr);

// Also, the maximum number of key containers is readily available:
Memo1.Lines.Add('Max number of key containers = ' + IntToStr(scmd.MaxContainers));

// Delete the context when finished with the card.
success := scmd.DeleteContext();
if (success = 0) then
  begin
    Memo1.Lines.Add(scmd.LastErrorText);
  end;

// Sample output:

// Card name: IDPrime MD T=0
// ATR: 3B7F96000080318065B0855956FB120FFE829000
// Max number of key containers = 20
end;