Delphi ActiveX

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 ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
mailman: TChilkatMailMan;
bdPfx: TChilkatBinData;
email: TChilkatEmail;

begin
success := 0;

//  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 := TChilkatMailMan.Create(Self);

//  Configure the POP3 server connection.
mailman.MailHost := 'pop.example.com';
mailman.MailPort := 995;
mailman.PopSsl := 1;
mailman.PopUsername := 'user@example.com';
mailman.PopPassword := 'myPassword';

//  Load the PFX bytes into a BinData (they could come from a file, database, or secrets store).
bdPfx := TChilkatBinData.Create(Self);
success := bdPfx.LoadFile('qa_data/certs/decryption.pfx');
if (success = 0) then
  begin
    Memo1.Lines.Add(bdPfx.LastErrorText);
    Exit;
  end;

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

//  Fetch a message; if it is encrypted, Chilkat can decrypt it using the PFX source.
email := TChilkatEmail.Create(Self);
success := mailman.FetchOne(0,0,1,email.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

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

//  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.