(Delphi DLL) Create multipart/alternative MIME

Demonstrates how to create a multipart/alternative MIME structure using the NewMultipartAlternative method.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
mime: HCkMime;
ptMime: HCkMime;
htmlMime: HCkMime;

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

// Start with an empty MIME object...
mime := CkMime_Create();

// Initialize it as multipart/alternative.
CkMime_NewMultipartAlternative(mime);

// Create a text/plain part.
ptMime := CkMime_Create();
CkMime_SetBodyFromPlainText(ptMime,'This is the plain text body.');
Memo1.Lines.Add(CkMime__getMime(ptMime));
Memo1.Lines.Add('****');

// The text/plain part looks like this:

// 	Content-Type: text/plain
// 	Content-Transfer-Encoding: 7bit
// 
// 	This is the plain text body.

// Create a text/HTML part.
htmlMime := CkMime_Create();
CkMime_SetBodyFromHtml(htmlMime,'<html><body><p>This is the <b>HTML body</b></p></body></html>');
Memo1.Lines.Add(CkMime__getMime(htmlMime));
Memo1.Lines.Add('****');

// The text/html part looks like this:

// 	Content-Type: text/html
// 	Content-Transfer-Encoding: 7bit
// 
// 	<html><body><p>This is the <b>HTML body</b></p></body></html>

// Add both parts as children of the multipart/alternative
CkMime_AppendPart(mime,ptMime);
CkMime_AppendPart(mime,htmlMime);
Memo1.Lines.Add(CkMime__getMime(mime));

// This the result.  The boundary string was automatically generaetd.

// 	Content-Type: multipart/alternative; boundary="------------080803090906030708030908"
// 
// 	--------------080803090906030708030908
// 	Content-Type: text/plain
// 	Content-Transfer-Encoding: 7bit
// 
// 	This is the plain text body.
// 	--------------080803090906030708030908
// 	Content-Type: text/html
// 	Content-Transfer-Encoding: 7bit
// 
// 	<html><body><p>This is the <b>HTML body</b></p></body></html>
// 	--------------080803090906030708030908--

CkMime_Dispose(mime);
CkMime_Dispose(ptMime);
CkMime_Dispose(htmlMime);

end;