(Delphi DLL) 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

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, PrivateKey, Pdf, Cert;

...

procedure TForm1.Button1Click(Sender: TObject);
var
cert: HCkCert;
success: Boolean;
privKey: HCkPrivateKey;
pdf: HCkPdf;

begin
// First load the .cer file.
// The certificate file (.cer) contains only the certificate (does not include the private key)
cert := CkCert_Create();
success := CkCert_LoadFromFile(cert,'qa_data/certs_and_keys/makecert/mycertificate.cer');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    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 := CkPrivateKey_Create();
success := CkPrivateKey_LoadPvkFile(privKey,'qa_data/certs_and_keys/makecert/mycertificate.pvk','secret');
if (success = False) then
  begin
    Memo1.Lines.Add(CkPrivateKey__lastErrorText(privKey));
    Exit;
  end;

// Finally, associate the private key with the certificate.
success := CkCert_SetPrivateKey(cert,privKey);
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

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

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

success := CkPdf_SetSigningCert(pdf,cert);

// ...
// ....

// 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 := CkPdf_SetSigningCert2(pdf,cert,privKey);

// ...
// ....

CkCert_Dispose(cert);
CkPrivateKey_Dispose(privKey);
CkPdf_Dispose(pdf);

end;