Visual FoxPro

PC/SC Get Card UID

See more SCard Examples

Sends the APDU command to get a card's UID. Visual FoxPro

LOCAL lnSuccess
LOCAL loScard
LOCAL loBdRecv
LOCAL lnNumBytes

lnSuccess = 0

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

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

* Use your own smart card reader name here.
lnSuccess = loScard.Connect("ACS ACR122 0","shared","no_preference")
IF (lnSuccess = 0) THEN
    ? loScard.LastErrorText
    RELEASE loScard
    CANCEL
ENDIF

? "Connected reader: " + loScard.ConnectedReader
? "Active protocol: " + loScard.ActiveProtocol
? "ATR: " + loScard.CardAtr
? "Reader Status: " + loScard.ReaderStatus

*  Send the APDU command 0xFF, 0xCA, 0x00, 0x00, 0x00
loBdRecv = CreateObject('Chilkat.BinData')
lnSuccess = loScard.TransmitHex(loScard.ActiveProtocol,"FFCA000000",loBdRecv,32)
IF (lnSuccess = 1) THEN

    ? "Received: " + loBdRecv.GetEncoded("hex")

    * The UID is the returned data without the final 2 bytes.
    lnNumBytes = loBdRecv.NumBytes
    IF (lnNumBytes > 2) THEN
        ? "UID: " + loBdRecv.GetEncodedChunk(0,lnNumBytes - 2,"hex")
    ENDIF

ELSE
    ? loScard.LastErrorText
ENDIF

* Disconnect from this reader.
lnSuccess = loScard.Disconnect("leave")
IF (lnSuccess = 0) THEN
    ? loScard.LastErrorText
ENDIF

* Applications should always release the context when finished.
lnSuccess = loScard.ReleaseContext()
IF (lnSuccess = 0) THEN
    ? loScard.LastErrorText
ENDIF

RELEASE loScard
RELEASE loBdRecv