DataFlex

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. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoScmd
    String sReaderName
    Variant vJson
    Handle hoJson
    String sTemp1

    Move False To iSuccess

    //  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:

    Get Create (RefClass(cComChilkatScMinidriver)) To hoScmd
    If (Not(IsComObjectCreated(hoScmd))) Begin
        Send CreateComObject of hoScmd
    End

    //  Reader names (smart card readers or USB tokens) can be discovered
    //  via PCSC List Readers or PCSC Find Smart Cards
    Move "Alcor Micro USB Smart Card Reader 0" To sReaderName
    Get ComAcquireContext Of hoScmd sReaderName To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Set ComEmitCompact Of hoJson To False

    //  ------------------------------------------------------
    //  3. Send Chilkat the JSON returned by GetCardProperties
    //  ------------------------------------------------------
    Get pvComObject of hoJson to vJson
    Get ComGetCardProperties Of hoScmd vJson To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    //  ------------------------------------------------------
    //  4. Send Chilkat the JSON returned by GetCspContainerMap
    //  ------------------------------------------------------
    Send ComClear To hoJson
    Get pvComObject of hoJson to vJson
    Get ComGetCspContainerMap Of hoScmd vJson To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1


End_Procedure