(DataFlex) Gather Smartcard Debug Information for Chilkat

See more ScMinidriver Examples

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

Use ChilkatAx-win32.pkg

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

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