Pascal (Lazarus/Delphi)
Create multipart/alternative MIME

Demonstrates how to create a multipart/alternative MIME structure using the NewMultipartAlternative method.
Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Mime;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  mime: TMime;
  ptMime: TMime;
  htmlMime: TMime;

begin
  success := False;

  //  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 := TMime.Create;

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

  //  Create a text/plain part.
  ptMime := TMime.Create;
  ptMime.SetBodyFromPlainText('This is the plain text body.');
  WriteLn(ptMime.GetMime());
  WriteLn('****');

  //  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 := TMime.Create;
  htmlMime.SetBodyFromHtml('<html><body><p>This is the <b>HTML body</b></p></body></html>');
  WriteLn(htmlMime.GetMime());
  WriteLn('****');

  //  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
  mime.AppendPart(ptMime);
  mime.AppendPart(htmlMime);
  WriteLn(mime.GetMime());

  //  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--


  mime.Free;
  ptMime.Free;
  htmlMime.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.