(Delphi DLL) Example: Crypt2.SetSigningCert method

Demonstrates how to call the SetSigningCert method.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX 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
cryptA: HCkCrypt2;
certA: HCkCert;
success: Boolean;
cryptB: HCkCrypt2;
certB: HCkCert;
cryptC: HCkCrypt2;
certC: HCkCert;

begin
// 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;