(Visual FoxPro) 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.

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

LOCAL loCert
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert')
loCert = CreateObject('Chilkat.Cert')

* If you know the smart card PIN, it's good to set it prior to loading from the smartcard/USB token.
loCert.SmartCardPin = "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.
lnSuccess = loCert.LoadFromSmartcard("")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    ? "Certificate not loaded."
    RELEASE loCert
    CANCEL
ENDIF

* 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.
? loCert.LastErrorText

? "Found: " + loCert.SubjectDN + " serial=" + loCert.SerialNumber

RELEASE loCert