Delphi DLL Requires Chilkat v11.0.0+

DKIM Signature using Windows Current User Certificate Store

See more DKIM / DomainKey Examples

This is a Windows-specific example to load a certificate from the Current User (registry-based) certificate store, and then use the certificate's associated private key for a DKIM signature. Delphi DLL

var
success: Boolean;
cert: HCkCert;
privKey: HCkPrivateKey;
dkim: HCkDkim;

begin
success := False;

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

cert := CkCert_Create();

//  The LoadByCommonName method searches the Windows Local Machine and Current User 
//  registry-based certificate stores for a certificate having the common name specified. 
//  If found, the certificate is loaded and ready for use.
success := CkCert_LoadByCommonName(cert,'My Certificate ABC');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

//  The certificate must have an associated private key installed, and it must be a
//  private key that has been marked "exportable" when it was originally installed.
if (not CkCert_HasPrivateKey(cert)) then
  begin
    Memo1.Lines.Add('This certificate does not have a private key available.');
    Exit;
  end;

privKey := CkPrivateKey_Create();
success := CkCert_GetPrivateKey(cert,privKey);
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

dkim := CkDkim_Create();

//  Load the private key into the DKIM object:
success := CkDkim_SetDkimPrivateKey(dkim,privKey);
if (success = False) then
  begin
    Memo1.Lines.Add(CkDkim__lastErrorText(dkim));
    Exit;
  end;

//  The private key has been loaded into the DKIM object.  See the other DKIM
//  examples for guidance on how to create a DKIM signature...

CkCert_Dispose(cert);
CkPrivateKey_Dispose(privKey);
CkDkim_Dispose(dkim);