Lianja

PC/SC Get Card UID

See more SCard Examples

Sends the APDU command to get a card's UID. 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

// Use your own smart card reader name here.
llSuccess = loScard.Connect("ACS ACR122 0","shared","no_preference")
if (llSuccess = .F.) then
    ? loScard.LastErrorText
    release loScard
    return
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("CkBinData")
llSuccess = loScard.TransmitHex(loScard.ActiveProtocol,"FFCA000000",loBdRecv,32)
if (llSuccess = .T.) 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.
llSuccess = loScard.Disconnect("leave")
if (llSuccess = .F.) then
    ? loScard.LastErrorText
endif

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



release loScard
release loBdRecv