DataFlex

ScMinidriver - Acquire Context with Smart Card or USB Token

See more ScMinidriver Examples

Initializes communication with the card inserted in the given reader (or a USB token). Reader names can be discovered via the SCard.ListReaders or SCard.FindSmartcards methods. If successful, the Atr and CardName properties will be set. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoScmd
    String sReaderName
    String sCardName
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

    // This example requires the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample 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 List Readers or 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

    // If we are successful, the name of the currently inserted smart card is available:
    Get ComCardName Of hoScmd To sCardName
    Showln "Card name: " sCardName

    // Also, the ATR of the inserted card is available (you will likely not need the ATR).
    Get ComAtr Of hoScmd To sTemp1
    Showln "ATR: " sTemp1

    // Also, the maximum number of key containers is readily available:
    Get ComMaxContainers Of hoScmd To iTemp1
    Showln "Max number of key containers = " iTemp1

    // Delete the context when finished with the card.
    Get ComDeleteContext Of hoScmd To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoScmd To sTemp1
        Showln sTemp1
    End

    // Sample output:

    // Card name: IDPrime MD T=0
    // ATR: 3B7F96000080318065B0855956FB120FFE829000
    // Max number of key containers = 20


End_Procedure