Lianja

PC/SC List Smart Card Readers (and USB Tokens)

See more SCard Examples

Demonstrates how to list the smart card readers and USB tokens connected to the computer.

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

Lianja

llSuccess = .F.

// 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
    ? str(i) + ": " + loStReaders.StringAt(i)
    i = i + 1
enddo

// Sample output:
// 0: Alcor Micro USB Smart Card Reader 0
// 1: FS USB Token 0
// 2: FT Java Token 0
// 3: SCM Microsystems Inc. SCR33x USB Smart Card Reader 0
// 4: Yubico YubiKey OTP+FIDO+CCID 0

// Applications should always release the context when finished.
llSuccess = loScard.ReleaseContext()
if (llSuccess = .F.) then
    ? loScard.LastErrorText
endif



release loScard
release loStReaders