Delphi ActiveX

Example: Crypt2.ClearSigningCerts method

Demonstrates how to call the ClearSigningCerts method. Delphi ActiveX

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
success: Integer;
crypt: TChilkatCrypt2;
cert1: TChilkatCert;
cert2: TChilkatCert;
cert3: TChilkatCert;
bd: TChilkatBinData;
cert4: TChilkatCert;
cert5: TChilkatCert;

begin
success := 0;

crypt := TChilkatCrypt2.Create(Self);
success := 0;

// Tell the crypt object to use 3 certificates.
// Do this by calling AddSigningCert for each certificate.

cert1 := TChilkatCert.Create(Self);
// ...
// Load the cert from a source such as a .pfx/.p12 file, smart card, USB token, Apple keychain, Windows certificate store, etc.
// ...
crypt.AddSigningCert(cert1.ControlInterface);

cert2 := TChilkatCert.Create(Self);
// ...
crypt.AddSigningCert(cert2.ControlInterface);

cert3 := TChilkatCert.Create(Self);
// ...
crypt.AddSigningCert(cert3.ControlInterface);

bd := TChilkatBinData.Create(Self);
// ...

success := crypt.OpaqueSignBd(bd.ControlInterface);

// Let's say we now want to sign something else with different certs..
// First clear the signing certs.
crypt.ClearSigningCerts();

cert4 := TChilkatCert.Create(Self);
// ...
crypt.AddSigningCert(cert4.ControlInterface);

cert5 := TChilkatCert.Create(Self);
// ...
crypt.AddSigningCert(cert5.ControlInterface);

// ...
// ...

// Sign using cert4 and cert5.
success := crypt.OpaqueSignBd(bd.ControlInterface);
end;