Pascal (Lazarus/Delphi)

Create a multipart/alternative MIME Entity

Demonstrates the Chilkat Mime.NewMultipartAlternative method, which initializes the object as an empty multipart/alternative entity. It takes no arguments; the alternative representations are then appended.

Background: multipart/alternative holds several renderings of the same content and lets the client pick the best one it can display — the standard way to send an email as both plain text and HTML. Order matters: parts go from least to most preferred, so the plain-text version comes first and the HTML last, and a client shows the last one it understands.

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;
  textPart: TMime;
  htmlPart: TMime;

begin
  success := False;

  //  Demonstrates the Mime.NewMultipartAlternative method, which initializes the object as an empty
  //  multipart/alternative entity, clearing any existing content.  It takes no arguments.

  mime := TMime.Create;

  success := mime.NewMultipartAlternative();
  if (success = False) then
    begin
      WriteLn(mime.LastErrorText);
      Exit;
    end;

  //  multipart/alternative holds two representations of the SAME content; the client displays the
  //  last one it can render.  Add a plain-text part, then an HTML part.
  textPart := TMime.Create;
  success := textPart.SetBodyFromPlainText('Hello (plain text version).');
  if (success = False) then
    begin
      WriteLn(textPart.LastErrorText);
      Exit;
    end;
  success := mime.AppendPart(textPart);
  if (success = False) then
    begin
      WriteLn(mime.LastErrorText);
      Exit;
    end;

  htmlPart := TMime.Create;
  success := htmlPart.SetBodyFromHtml('<html><body><b>Hello</b> (HTML version).</body></html>');
  if (success = False) then
    begin
      WriteLn(htmlPart.LastErrorText);
      Exit;
    end;
  success := mime.AppendPart(htmlPart);
  if (success = False) then
    begin
      WriteLn(mime.LastErrorText);
      Exit;
    end;

  WriteLn('Number of alternatives: ' + mime.NumParts);


  mime.Free;
  textPart.Free;
  htmlPart.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.