Delphi ActiveX

Load Certificate (.cer) and Private Key (.pvk) generated from makecert

See more Certificates Examples

Demonstrates how to load a certificate (.cer) and private key (.pvk) from the files produced by makecert, such as in the following command:

makecert -sv mycertificate.pvk -n "CN=My Simple Certificate" mycertificate.cer -sky Exchange

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;
cert: TChilkatCert;
privKey: TPrivateKey;
pdf: TChilkatPdf;

begin
success := 0;

// First load the .cer file.
// The certificate file (.cer) contains only the certificate (does not include the private key)
cert := TChilkatCert.Create(Self);
success := cert.LoadFromFile('qa_data/certs_and_keys/makecert/mycertificate.cer');
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

// Next, load the .pvk file.
// Note: The password "secret" is what you entered when makecert displayed the dialog asking for a password..
privKey := TPrivateKey.Create(Self);
success := privKey.LoadPvkFile('qa_data/certs_and_keys/makecert/mycertificate.pvk','secret');
if (success = 0) then
  begin
    Memo1.Lines.Add(privKey.LastErrorText);
    Exit;
  end;

// Finally, associate the private key with the certificate.
success := cert.SetPrivateKey(privKey.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

// At this point, the certificate can be used for signing.  For example..
pdf := TChilkatPdf.Create(Self);

// ....
// ....

success := pdf.SetSigningCert(cert.ControlInterface);

// ...
// ....

// Some Chilkat classes also provide a method where the cert and private key can be passed separately.
// For example, if SetSigningCert2 is called, then we don't need to explicitly associate the private key with the cert.
success := pdf.SetSigningCert2(cert.ControlInterface,privKey.ControlInterface);

// ...
// ....
end;