(Delphi DLL) Load Signed and/or Encrypted Email and Unwrap Security Layers

The LoadEml method loads an email (.eml file containing the MIME of an email) and automatically unwraps the digital signature and encryption security layers. A program can then examine the properties of the email object to see what was unwrapped.

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, Email;

...

procedure TForm1.Button1Click(Sender: TObject);
var
email: HCkEmail;
success: Boolean;

begin
email := CkEmail_Create();

//  Provide PFX/.p12 files for any certs+keys needed for decryption.
//  Signature verification does not need anything extra.
//  (Also, Chilkat will automatically find and use pre-installed certs + private keys needed for decryption
//  on a Windows system.)
success := CkEmail_AddPfxSourceFile(email,'/pfxFiles/certs_and_keys_1.pfx','pfxPassword1');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;
success := CkEmail_AddPfxSourceFile(email,'/pfxFiles/certs_and_keys_2.pfx','pfxPassword2');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;
//  ...

//  Load a potentially signed and/or encrypted email.
success := CkEmail_LoadEml(email,'someDir/someEmail.eml');

//  If the email was signed and/or encrypted, it was "unwrapped", i.e.
//  the email is already decrypted and in a state as if it were never signed or encrypted.

//  You may check to see if the email was received encrypted or signed, and if so,
//  whether it was successfully unwrapped and who signed or encrypted it:
if (CkEmail_getReceivedEncrypted(email) = True) then
  begin

    Memo1.Lines.Add('This email was encrypted.');
    if (CkEmail_getDecrypted(email) = True) then
      begin
        Memo1.Lines.Add('This email was successfully decrypted.  It was encrypted by:');
        Memo1.Lines.Add(CkEmail__encryptedBy(email));
      end
    else
      begin
        Memo1.Lines.Add('This email was not decrypted.');
      end;
  end;
if (CkEmail_getReceivedSigned(email) = True) then
  begin

    Memo1.Lines.Add('This email was signed.');
    if (CkEmail_getSignaturesValid(email) = True) then
      begin
        Memo1.Lines.Add('The signature was verified.  It was signed by:');
        Memo1.Lines.Add(CkEmail__signedBy(email));
      end
    else
      begin
        Memo1.Lines.Add('The signature verification failed.');
      end;
  end;

//  At this point, the contents of the email, including attachments, can be accessed normally..

CkEmail_Dispose(email);

end;