(Delphi DLL) Encrypt MIME using PEM Certificate

Encrypt MIME using a PEM certificate.

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, Cert, Mime;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mime: HCkMime;
success: Boolean;
cert: HCkCert;

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

mime := CkMime_Create();

// Create a simple MIME message to be encrypted:
success := CkMime_AddHeaderField(mime,'Content-Type','text/plain');
success := CkMime_AddHeaderField(mime,'abc','123');
CkMime_SetBody(mime,'This is a test');

cert := CkCert_Create();
success := CkCert_LoadFromFile(cert,'qa_data/pem/mf_public_rsa.pem');
if (success = False) then
  begin
    Memo1.Lines.Add(CkCert__lastErrorText(cert));
    Exit;
  end;

// Encrypt the MIME.
success := CkMime_Encrypt(mime,cert);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

// Display the MIME:
Memo1.Lines.Add(CkMime__getMime(mime));

// The resulting S/MIME looks like this:

// Content-Type: application/x-pkcs7-mime; name="smime.p7m"; smime-type="enveloped-data"
// abc: 123
// Content-Disposition: attachment; filename="smime.p7m"
// Content-Transfer-Encoding: base64
// 
// MIICMAYJKoZIhvcNAQcDoIICITCCAh0CAQAxggGoMIIBpAIBADCBizB3MQswCQYDVQQGEwJQTDEi
// MCAGA1UEChMZVW5pemV0byBUZWNobm9sb2dpZXMgUy5BLjEnMCUGA1UECxMeQ2VydHVtIENlcnRp
// ZmljYXRpb24gQXV0aG9yaXR5MRswGQYDVQQDExJDZXJ0dW0gTGV2ZWwgSVYgQ0ECEDVuXbie8bb5
// sHeajm5k3ZYwDQYJKoZIhvcNAQEBBQAEggEADNac7gEUOvTWfyqwe0cS+m65Lte7ZmDGRElvqeo7
// C2+JZJfuxl2Roy+4vTovnn+9U2Yf5Kqc1m2ZPCE5Q8ExvOV4M0cTocLNLK6sfCR7cvo1xgf220qf
// XYqWF1/ePuP9j1FrkFvBOoS4BREAnXsEa4zvuhvNPsMfjInK8wWnMftbLUiriAZBq391D+dxxX8M
// kB1EHCWaS3H8WQI/caTnkRS6YdOCOrctJHtotkcU+4gcIxfTcq6yeloceURbesAYAvdRbIGszKCQ
// FA2sC1x8SkDQCHfNUvmyS/fmkq5waFpmq1ksOspInb4ZM7SOjEUu+22vkAgbTmOS3MUdieuRcTBs
// BgkqhkiG9w0BBwEwHQYJYIZIAWUDBAECBBClRoHLQZyzdHwoZA6pZjLYgEChuMzbQRXOjNF3RpnI
// ZjNTKFDuhaUqk0rRTTn3D89F7ZMUBtoCP0bw+bH5UE9zpDaAgCF9s3W3/D5YNgAuw4AZ

CkMime_Dispose(mime);
CkCert_Dispose(cert);

end;