Embed PDF, MS-WORD, XML, and GIF in Multipart/Mixed MIME

Create MIME containing a PDF, MS-WORD document, XML document, and GIF image.

The MIME produced by this example (scroll down to see code) looks like this:

Content-Type: multipart/mixed;
	boundary="-----_chilkat_497_6119_39274c1d.69931ed1_.MIX"

This is a multi-part message in MIME format.

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="dude.gif"
content-transfer-encoding: base64
Content-Type: image/gif;
	name="dude.gif"

R0lGODlhZABkAPf/AP////f39+fn7+/v9/f3/+fn99bW597e79bW78bG3s7O57291rW1zsbG
57293rW11q2tzqWlxq2t1qWlzpycxpSUvYyMtYSErZyczpSUxoyMvYSEtXt7rYSEvXt7tXNz
...
wxAGcf2vMwE08FYXMvmrAuSR4E84VAhILTAsJDIijyQim9P1jVQpglWrG0ADLOABJYG5GjBs
ClERHqH/GBUQADs=

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="dude.gif"
content-transfer-encoding: base64
Content-Type: image/gif;
	name="dude.gif"

R0lGODlhZABkAPf/AP////f39+fn7+/v9/f3/+fn99bW597e79bW78bG3s7O57291rW1zsbG
57293rW11q2tzqWlxq2t1qWlzpycxpSUvYyMtYSErZyczpSUxoyMvYSEtXt7rYSEvXt7tXNz
...
wxAGcf2vMwE08FYXMvmrAuSR4E84VAhILTAsJDIijyQim9P1jVQpglWrG0ADLOABJYG5GjBs
ClERHqH/GBUQADs=

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="halfMarathonWaiver.pdf"
content-transfer-encoding: base64
Content-Type: application/pdf;
	name="halfMarathonWaiver.pdf"

JVBERi0xLjMKJcfsj6IKNSAwIG9iago8PC9MZW5ndGggNiAwIFIvRmlsdGVyIC9GbGF0ZURl
Y29kZT4+CnN0cmVhbQp4nO1bbW/cuBH+vr9CRfthdcgqJEVRYoAidV7uLkWS3qUGgiJXFM7G
...
Ci9JRCBbKHsfO+TdPLVEgU+Ir7qbh10pKHsfO+TdPLVEgU+Ir7qbh10pXQo+PgpzdGFydHhy
ZWYKMzMzMjEKJSVFT0YK

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="sample.doc"
content-transfer-encoding: base64
Content-Type: application/msword;
	name="sample.doc"

0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAACAAAAzwAAAAAA
AAAAEAAA0QAAAAEAAAD+////AAAAAM0AAADOAAAA////////////////////////////////
...
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAA==

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX
content-disposition: attachment;
	 filename="pigs.xml"
content-transfer-encoding: 7bit
Content-Type: text/xml;
	name="pigs.xml"

<pig-rescue>
	<image-base>images</image-base>
    <animal>
    	<species>pot belly pig</species>
    	<type>Cathy's Herd</type>
        <name>Molly II</name>
        <birth>February, 1998</birth>
...
</pig-rescue>          
                            

-------_chilkat_497_6119_39274c1d.69931ed1_.MIX--

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('Failed to unlock component');

  end;

//  Initialize this MIME object as a multipart/mixed:
success := mime.NewMultipartMixed();

//  Now insert some files:
success := mime.AppendPartFromFile('dude.gif');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);

  end;

//  Insert a GIF Image into the MIME:
success := mime.AppendPartFromFile('dude.gif');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);

  end;
//  Add a PDF to the MIME:
success := mime.AppendPartFromFile('halfMarathonWaiver.pdf');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);

  end;
//  Add a MS-Word file to the MIME
success := mime.AppendPartFromFile('sample.doc');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);

  end;
//  Add an XML document to the MIME:
success := mime.AppendPartFromFile('pigs.xml');
if (success = 0) then
  begin
    ShowMessage(mime.LastErrorText);

  end;

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

  end;

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

end;