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

See more SCard Examples

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loScard = createobject("CkSCard")

// First establish a context to the PC/SC Resource Manager
llSuccess = loScard.EstablishContext("user")
if (llSuccess = .F.) then
    ? loScard.LastErrorText
    release loScard
    return
endif

loStReaders = createobject("CkStringTable")
llSuccess = loScard.ListReaders(loStReaders)
if (llSuccess = .F.) then
    ? loScard.LastErrorText
    release loScard
    release loStReaders
    return
endif

lnNumReaders = loStReaders.Count
i = 0
do while i < lnNumReaders
    lcReader = loStReaders.StringAt(i)

    ? str(i) + ": " + lcReader

    // Connect to this reader.
    if (loScard.Connect(lcReader,"shared","no_preference") = .T.) then

        // Check the status to get the reader state, active protocol, and card ATR (if a card is inserted).
        if (loScard.CheckStatus() = .T.) then
            ? "ReaderStatus: " + loScard.ReaderStatus
            ? "CardAtr: " + loScard.CardAtr
            ? "ActiveProtocol: " + loScard.ActiveProtocol
        else
            ? loScard.LastErrorText
            ? "CheckStatus failed."
        endif

        // Disconnect from this reader.
        llSuccess = loScard.Disconnect("leave")
    else
        ? loScard.LastErrorText
        ? "Connect failed."
    endif

    ? "---------------------------------------"
    i = i + 1
enddo

// 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.
llSuccess = loScard.ReleaseContext()
if (llSuccess = .F.) then
    ? loScard.LastErrorText
endif



release loScard
release loStReaders