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) PKCS11 SessionsSee more PKCS11 ExamplesSample code showing how to open a PKCS11 session and then later close it. Note: This example requires Chilkat v9.5.0.88 or later.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var pkcs11: TChilkatPkcs11; success: Integer; slotID: Integer; readWrite: Integer; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Note: Chilkat's PKCS11 implementation runs on Windows, Linux, Mac OS X, and other supported operating systems. pkcs11 := TChilkatPkcs11.Create(Self); // Set your shared lib path -- either a full path to the DLL, .so, or .dylib, // or just the filename if the driver is in a location that can be automatically found. (Such as in C:\Windows\System32) pkcs11.SharedLibPath := 'ShuttleCsp11_3003.dll'; // Starting in Chilkat v9.5.0.96, there is a shorter way to establish // a PKCS11 session with login. // The QuickSession method was added in v9.5.0.96 and is the equivalent of // calling Initialize, OpenSession, and Login. success := pkcs11.Initialize(); if (success = 0) then begin Memo1.Lines.Add(pkcs11.LastErrorText); Exit; end; // Pass -1 for the slotID to open a session on the first non-empty slot. slotID := -1; // Open a read/write session. readWrite := 1; success := pkcs11.OpenSession(slotID,readWrite); if (success = 0) then begin Memo1.Lines.Add(pkcs11.LastErrorText); Exit; end; // Do whatever is needed... // ... // ... // When finished, close the session. // It is important to close the session (memory leaks will occur if the session is not properly closed). success := pkcs11.CloseSession(); if (success = 0) then begin Memo1.Lines.Add(pkcs11.LastErrorText); Exit; end; Memo1.Lines.Add('PKCS11 session successfully opened and closed.'); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.