(Visual FoxPro) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loScard
LOCAL lnSuccess
LOCAL loStReaders
LOCAL lnNumReaders
LOCAL i

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.SCard')
loScard = CreateObject('Chilkat.SCard')

* First establish a context to the PC/SC Resource Manager
lnSuccess = loScard.EstablishContext("user")
IF (lnSuccess = 0) THEN
    ? loScard.LastErrorText
    RELEASE loScard
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringTable')
loStReaders = CreateObject('Chilkat.StringTable')
lnSuccess = loScard.ListReaders(loStReaders)
IF (lnSuccess = 0) THEN
    ? loScard.LastErrorText
    RELEASE loScard
    RELEASE loStReaders
    CANCEL
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.
lnSuccess = loScard.ReleaseContext()
IF (lnSuccess = 0) THEN
    ? loScard.LastErrorText
ENDIF

RELEASE loScard
RELEASE loStReaders