DataFlex

Load Default Certificate from Smart Card or Token

See more Certificates Examples

Chilkat contains internal logic to examine a connected smart card or USB token, and will make decisions based on make/model to successfully interact with the hardware. When faced with a new smartcard or token, the best starting point is to call LoadFromSmartcard with an empty string argument to see what Chilkat discovers. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoCert
    String sTemp1
    String sTemp2

    Move False To iSuccess

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End

    // If you know the smart card PIN, it's good to set it prior to loading from the smartcard/USB token.
    Set ComSmartCardPin Of hoCert To "12345678"

    // To let Chilkat discover what smartcard or token is connected, pass an empty string to LoadFromSmartcard.
    // When testing in this way, it's best to have only a single smartcard or token connected to the system.
    Get ComLoadFromSmartcard Of hoCert "" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Showln "Certificate not loaded."
        Procedure_Return
    End

    // The LastErrorText property on all Chilkat objects will contain 
    // information even when the method call is successful.
    // You can examine the LastErrorText to see what Chilkat found and
    // what decisions were made.
    // 
    // For example, if a certificate was successfully loaded via LoadFromSmartcard,
    // but then signing failed, such as w/ Pdf, XmlDSig, CAdES, etc.,
    // then we would want to examine the LastErrorText from the call to
    // LoadFromSmartcard to get detailed information about the card.
    Get ComLastErrorText Of hoCert To sTemp1
    Showln sTemp1

    Get ComSubjectDN Of hoCert To sTemp1
    Get ComSerialNumber Of hoCert To sTemp2
    Showln "Found: " sTemp1 " serial=" sTemp2


End_Procedure