Tcl

Gather Smartcard Debug Information for Chilkat

See more ScMinidriver Examples

This example demonstrates how to gather information to send to support@chilkatsoft.com about your smartcard. Tcl

load ./chilkat.dll

set success 0

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

#  First, Chilkat recommends downloading the MGTEK Smartcard Minidriver Tool to get information 
#  about your smartcard. 

#  The tool can be downloaded from https://www.mgtek.com/smartcard

#  --------------------------------------------------------------------------------------------------------
#  1. Select the smartcard as shown below and send Chilkat a screenshot of the basic smartcard information.
#  --------------------------------------------------------------------------------------------------------
#  
#  
#  
#  --------------------------------------------------------------------------------------------------------
#  2. Select the cmapfile (if present) as shown below and send Chilkat a screenshot of the CSP container map
#  --------------------------------------------------------------------------------------------------------
#  
#  
#  

#  ---------------------------------------------------------
#  Chilkat provides functions to get information about the smartcard, and what it contains.
#  Send Chilkat the output of the following source code:

set scmd [new_CkScMinidriver]

#  Reader names (smart card readers or USB tokens) can be discovered
#  via PCSC List Readers or PCSC Find Smart Cards
set readerName "Alcor Micro USB Smart Card Reader 0"
set success [CkScMinidriver_AcquireContext $scmd $readerName]
if {$success == 0} then {
    puts [CkScMinidriver_lastErrorText $scmd]
    delete_CkScMinidriver $scmd
    exit
}

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0

#  ------------------------------------------------------
#  3. Send Chilkat the JSON returned by GetCardProperties
#  ------------------------------------------------------
set success [CkScMinidriver_GetCardProperties $scmd $json]
if {$success == 0} then {
    puts [CkScMinidriver_lastErrorText $scmd]
    delete_CkScMinidriver $scmd
    delete_CkJsonObject $json
    exit
}

puts [CkJsonObject_emit $json]

#  ------------------------------------------------------
#  4. Send Chilkat the JSON returned by GetCspContainerMap
#  ------------------------------------------------------
CkJsonObject_Clear $json
set success [CkScMinidriver_GetCspContainerMap $scmd $json]
if {$success == 0} then {
    puts [CkScMinidriver_lastErrorText $scmd]
    delete_CkScMinidriver $scmd
    delete_CkJsonObject $json
    exit
}

puts [CkJsonObject_emit $json]

delete_CkScMinidriver $scmd
delete_CkJsonObject $json