Pascal (Lazarus/Delphi)

MIME SetBody

See more MIME Examples

Set the body text of a MIME message via the SetBody method. 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;

begin
  success := False;

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

  mime := TMime.Create;

  //  Add a few header fields:
  success := mime.AddHeaderField('Content-Type','text/plain');
  success := mime.AddHeaderField('Subject','this is a test');

  //  Set the body text content via SetBody.
  //  (Other methods such as SetBodyFromPlainText, or SetBodyFromFile
  //  will also automatically set the Content-Type header based
  //  on the type of content.  The SetBody method does not
  //  alter the MIME header.)
  mime.SetBody('This is the body text...');

  WriteLn(mime.GetMime());

  //  The MIME should look like this:

  //  Content-Type: text/plain
  //  Subject: this is a test
  //  
  //  This is the body text...


  mime.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.