(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkSCard.pb"
IncludeFile "CkStringTable.pb"

Procedure ChilkatExample()

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

    scard.i = CkSCard::ckCreate()
    If scard.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; First establish a context to the PC/SC Resource Manager
    success.i = CkSCard::ckEstablishContext(scard,"user")
    If success = 0
        Debug CkSCard::ckLastErrorText(scard)
        CkSCard::ckDispose(scard)
        ProcedureReturn
    EndIf

    stReaders.i = CkStringTable::ckCreate()
    If stReaders.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkSCard::ckListReaders(scard,stReaders)
    If success = 0
        Debug CkSCard::ckLastErrorText(scard)
        CkSCard::ckDispose(scard)
        CkStringTable::ckDispose(stReaders)
        ProcedureReturn
    EndIf

    numReaders.i = CkStringTable::ckCount(stReaders)
    i.i = 0
    While i < numReaders
        reader.s = CkStringTable::ckStringAt(stReaders,i)

        Debug Str(i) + ": " + reader

        ; Connect to this reader.
        If CkSCard::ckConnect(scard,reader,"shared","no_preference") = 1

            ; Check the status to get the reader state, active protocol, and card ATR (if a card is inserted).
            If CkSCard::ckCheckStatus(scard) = 1
                Debug "ReaderStatus: " + CkSCard::ckReaderStatus(scard)
                Debug "CardAtr: " + CkSCard::ckCardAtr(scard)
                Debug "ActiveProtocol: " + CkSCard::ckActiveProtocol(scard)
            Else
                Debug CkSCard::ckLastErrorText(scard)
                Debug "CheckStatus failed."
            EndIf

            ; Disconnect from this reader.
            success = CkSCard::ckDisconnect(scard,"leave")
        Else
            Debug CkSCard::ckLastErrorText(scard)
            Debug "Connect failed."
        EndIf

        Debug "---------------------------------------"
        i = i + 1
    Wend

    ; 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::ckReleaseContext(scard)
    If success = 0
        Debug CkSCard::ckLastErrorText(scard)
    EndIf



    CkSCard::ckDispose(scard)
    CkStringTable::ckDispose(stReaders)


    ProcedureReturn
EndProcedure