Delphi ActiveX

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 Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
mime: TChilkatMime;
n: Integer;
part: TChilkatMime;
i: Integer;

begin
success := 0;

//  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 := TChilkatMime.Create(Self);
success := mime.LoadMimeFile('qa_data/multipart_message.eml');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

n := mime.NumParts;
part := TChilkatMime.Create(Self);

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