Delphi DLL

Add a PFX Source to MailMan from BinData

Demonstrates the Chilkat MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store to the MailMan object's internal list of sources used for locating certificates and private keys. The first argument is a BinData containing the PFX bytes and the second is the PFX password. This example loads a PFX into a BinData, registers it, and fetches a message Chilkat can decrypt.

Background: This is the in-memory (BinData) counterpart to AddPfxSourceFile. It is the right choice when the PFX bytes come from somewhere other than a file — a database, a secrets manager, or an HTTPS download — letting you supply the certificate and private key without first writing sensitive key material to disk.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mailman: HCkMailMan;
bdPfx: HCkBinData;
email: HCkEmail;

begin
success := False;

//  Demonstrates the MailMan.AddPfxSourceBd method, which adds a PFX/PKCS#12 certificate store
//  to the MailMan object's internal list of sources used for locating certificates and
//  private keys.  The 1st argument is a BinData containing the PFX bytes and the 2nd is the
//  PFX password.

mailman := CkMailMan_Create();

//  Configure the POP3 server connection.
CkMailMan_putMailHost(mailman,'pop.example.com');
CkMailMan_putMailPort(mailman,995);
CkMailMan_putPopSsl(mailman,True);
CkMailMan_putPopUsername(mailman,'user@example.com');
CkMailMan_putPopPassword(mailman,'myPassword');

//  Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
bdPfx := CkBinData_Create();
success := CkBinData_LoadFile(bdPfx,'qa_data/certs/decryption.pfx');
if (success = False) then
  begin
    Memo1.Lines.Add(CkBinData__lastErrorText(bdPfx));
    Exit;
  end;

//  Add the PFX as a source of certificates and private keys.
success := CkMailMan_AddPfxSourceBd(mailman,bdPfx,'pfx_password');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;

//  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
email := CkEmail_Create();
success := CkMailMan_FetchOne(mailman,False,0,1,email);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMailMan__lastErrorText(mailman));
    Exit;
  end;

Memo1.Lines.Add('Decrypted = ' + IntToStr(Ord(CkEmail_getDecrypted(email))));

//  Note: The path "qa_data/certs/decryption.pfx" is a relative local filesystem path,
//  relative to the current working directory of the running application.

//  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
//  connects and authenticates -- using the property settings above -- whenever a server
//  operation requires it.  Calling the explicit connect/authenticate methods can still be
//  helpful to determine whether a failure occurs while connecting or while authenticating.

CkMailMan_Dispose(mailman);
CkBinData_Dispose(bdPfx);
CkEmail_Dispose(email);