Delphi DLL

Example: Crypt2.SetSigningCert method

Demonstrates how to call the SetSigningCert method. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Cert, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
cryptA: HCkCrypt2;
certA: HCkCert;
cryptB: HCkCrypt2;
certB: HCkCert;
cryptC: HCkCrypt2;
certC: HCkCert;

begin
success := False;

// Signing certificates can be obtained from many different sources..

// Load from a PFX
cryptA := CkCrypt2_Create();
certA := CkCert_Create();
success := CkCert_LoadPfxFile(certA,'c:/someDir/pfx_files/a.pfx','pfx_file_password');
success := CkCrypt2_SetSigningCert(cryptA,certA);
// ...

// Load from a smart card or USB token.
cryptB := CkCrypt2_Create();
certB := CkCert_Create();
CkCert_putSmartCardPin(certB,'123456');
success := CkCert_LoadFromSmartcard(certB,'');
success := CkCrypt2_SetSigningCert(cryptB,certB);
// ...

// Load from a the Windows certificate store or macOS keychain
cryptC := CkCrypt2_Create();
certC := CkCert_Create();
success := CkCert_LoadByCommonName(certC,'Xyz 123');
success := CkCrypt2_SetSigningCert(cryptC,certC);
// ...

CkCrypt2_Dispose(cryptA);
CkCert_Dispose(certA);
CkCrypt2_Dispose(cryptB);
CkCert_Dispose(certB);
CkCrypt2_Dispose(cryptC);
CkCert_Dispose(certC);

end;