(Delphi DLL) PC/SC Check the Status of each Smart Card Reader (and USB token)

See more SCard Examples

Demonstrates how to list the smart card readers and USB tokens connected to the computer, and check the status of each.

Note: This functionality was introduced in Chilkat v9.5.0.87.

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, StringTable, SCard;

...

procedure TForm1.Button1Click(Sender: TObject);
var
scard: HCkSCard;
success: Boolean;
stReaders: HCkStringTable;
numReaders: Integer;
i: Integer;
reader: PWideChar;

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

scard := CkSCard_Create();

// First establish a context to the PC/SC Resource Manager
success := CkSCard_EstablishContext(scard,'user');
if (success = False) then
  begin
    Memo1.Lines.Add(CkSCard__lastErrorText(scard));
    Exit;
  end;

stReaders := CkStringTable_Create();
success := CkSCard_ListReaders(scard,stReaders);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSCard__lastErrorText(scard));
    Exit;
  end;

numReaders := CkStringTable_getCount(stReaders);
i := 0;
while i < numReaders do
  begin
    reader := CkStringTable__stringAt(stReaders,i);

    Memo1.Lines.Add(IntToStr(i) + ': ' + reader);

    // Connect to this reader.
    if (CkSCard_Connect(scard,reader,'shared','no_preference') = True) then
      begin

        // Check the status to get the reader state, active protocol, and card ATR (if a card is inserted).
        if (CkSCard_CheckStatus(scard) = True) then
          begin
            Memo1.Lines.Add('ReaderStatus: ' + CkSCard__readerStatus(scard));
            Memo1.Lines.Add('CardAtr: ' + CkSCard__cardAtr(scard));
            Memo1.Lines.Add('ActiveProtocol: ' + CkSCard__activeProtocol(scard));
          end
        else
          begin
            Memo1.Lines.Add(CkSCard__lastErrorText(scard));
            Memo1.Lines.Add('CheckStatus failed.');
          end;

        // Disconnect from this reader.
        success := CkSCard_Disconnect(scard,'leave');
      end
    else
      begin
        Memo1.Lines.Add(CkSCard__lastErrorText(scard));
        Memo1.Lines.Add('Connect failed.');
      end;
    Memo1.Lines.Add('---------------------------------------');
    i := i + 1;
  end;

// Sample output:

// 0: Alcor Micro USB Smart Card Reader 0
// ReaderStatus: specific
// CardAtr: 3B7F96000080318065B0855956FB120FFE829000
// ActiveProtocol: T0
// ---------------------------------------
// 1: Generic Smart Card Reader Interface 0
// ReaderStatus: specific
// CardAtr: 3BFC180000813180459067464A00641606F2727E00E0
// ActiveProtocol: T1
// ---------------------------------------
// 2: SCM Microsystems Inc. SCR33x USB Smart Card Reader 0
// ReaderStatus: specific
// CardAtr: 3BDF96FF8131FE455A018048494443313158587300011B09
// ActiveProtocol: T1
// ---------------------------------------

// Applications should always release the context when finished.
success := CkSCard_ReleaseContext(scard);
if (success = False) then
  begin
    Memo1.Lines.Add(CkSCard__lastErrorText(scard));
  end;

CkSCard_Dispose(scard);
CkStringTable_Dispose(stReaders);

end;