Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi ActiveX) Use CSP to Load Certificate from Smartcard in Reader (or from USB Token)Demonstrates how to load the certificate that is on the smartcard currently inserted into the smartcard reader. (Also can load the smartcard on a USB token.) Note: This example requires Chilkat v9.5.0.77 or later.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_v9_5_0_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var csp: TChilkatCsp; st: TChilkatStringTable; success: Integer; i: Integer; numProviders: Integer; cert: TChilkatCert; begin // This example requires that we already know the name of the CSP (Cryptographic Service Provider) for the smartcard. // It is often the "Microsoft Base Smart Card Crypto Provider". You can see what CSP's are registered on your system with this code: csp := TChilkatCsp.Create(Self); st := TChilkatStringTable.Create(Self); success := csp.GetProviders(st.ControlInterface); if (success = 0) then begin Memo1.Lines.Add(csp.LastErrorText); Exit; end; // Iterate over the CSP names.. i := 0; numProviders := st.Count; while i < numProviders do begin Memo1.Lines.Add(IntToStr(i) + ': ' + st.StringAt(i)); i := i + 1; end; // Some common CSP names are: // Microsoft Base Smart Card Crypto Provider // Bit4id Universal Middleware Provider // eToken Base Cryptographic Provider // FTSafe ePass1000 RSA Cryptographic Service Provider // EnterSafe ePass2003 CSP v2.0 // Gemalto Classic Card CSP // PROXKey CSP India V1.0 // PROXKey CSP India V2.0 // TRUST KEY CSP V1.0 // Watchdata Brazil CSP V1.0 // Luna Cryptographic Services for Microsoft Windows // Luna SChannel Cryptographic Services for Microsoft Windows // Safenet RSA Full Cryptographic Provider // nCipher Enhanced Cryptographic Provider // SafeSign Standard Cryptographic Service Provider // SafeSign Standard RSA and AES Cryptographic Service Provider</li> // MySmartLogon NFC CSP</li> // NFC Connector Enterprise</li> // ActivClient Cryptographic Service Provider</li> // EnterSafe ePass2003 CSP v1.0</li> // Athena ASECard Crypto CSP" // Create a Csp object and set the ProviderName equal to our desired CSP name. // (setting the ProviderName selects the desired CSP.) csp.ProviderName := 'Microsoft Base Smart Card Crypto Provider'; // Load the certificate on this CSP.. cert := TChilkatCert.Create(Self); success := csp.LoadSmartcardCert(cert.ControlInterface); if (success = 0) then begin Memo1.Lines.Add(csp.LastErrorText); Exit; end; Memo1.Lines.Add('Cert loaded from smartcard or USB token: ' + cert.SubjectCN); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.