Create Binary MIME

Download Chilkat MIME ActiveX

Demonstrates how to create a MIME document using the "binary" content-transfer-encoding.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMIMELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mime: CHILKATMIMELib_TLB.IChilkatMime;
success: Integer;

begin
mime := CoChilkatMime.Create();

success := mime.UnlockComponent('Anything for 30-day trial');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);
    Exit;
  end;

//  Set a custom headerr field:
mime.AddHeaderField('Content-ID','PDFFile');

//  Load a PDF file into the MIME body-part of the message.
//  Note: This automatically sets the content-type and
//  content-transfer-encoding header fields to appropriate values
//  based on the file extension.  If specific values for these
//  header fields are required, set the ContentType and
//  Encoding properties after (as shown here)
success := mime.SetBodyFromFile('test.pdf');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);
    Exit;
  end;

//  Use binary MIME -- the MIME body will not be encoded
//  but will instead consist of the binary data of the file.
mime.Encoding := 'binary';

//  Make sure our content-type is "application/pdf"
//  (It should already be this value...)
mime.ContentType := 'application/pdf';

//  Save the MIME to a file.
success := mime.SaveMime('outMime.txt');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);
    Exit;
  end;

//  Success!
ShowMessage('Success!');
end;