Lazarus Pascal

Check if a MIME Part is Plain Text

Demonstrates the Chilkat Mime.IsPlainText method, which returns whether the Content-Type is exactly text/plain. It takes no arguments and applies to the current part.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: Inside a multipart/alternative, this is how you pick out the plain-text rendering — the fallback to show when HTML cannot be displayed, or the version to index for search. It is the specific counterpart to IsHtml.

Chilkat Lazarus Pascal Downloads

Download Chilkat for Lazarus Pascal

Lazarus Pascal

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;
  n: Integer;
  part: TMime;
  i: Integer;

begin
  success := False;

  //  Demonstrates the Mime.IsPlainText method, which returns whether the Content-Type is text/plain.  It takes no arguments and applies to the current
  //  part.  This example iterates the parts of a multipart message and reports which ones match.

  mime := TMime.Create;
  success := mime.LoadMimeFile('qa_data/multipart_message.eml');
  if (success = False) then
    begin
      WriteLn(mime.LastErrorText);
      Exit;
    end;

  n := mime.NumParts;
  part := TMime.Create;

  for i := 0 to n - 1 do
    begin
      success := mime.PartAt(i,part);
      if (success = False) then
        begin
          WriteLn(mime.LastErrorText);
          Exit;
        end;
      if (part.IsPlainText()) then
        begin
          WriteLn('Part ' + i + ' (' + part.ContentType + ') is plain text.');
        end;
    end;



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