Pascal (Lazarus/Delphi)

Unpack an HTML Email to Files

Demonstrates the Chilkat Email.UnpackHtml method, which unpacks an HTML email into an HTML file plus separate related files (images and style sheets). Links in the HTML are rewritten to reference the unpacked files. The arguments are the unpack directory, the HTML filename, and the subdirectory for the related parts. This example loads an HTML email and unpacks it.

Background: An HTML email keeps its images and style sheets inside the message (referenced by cid:), which a browser cannot open directly. Unpacking writes each part out as a real file and rewrites the references into ordinary paths, so the saved HTML displays correctly — useful for archiving a message as a browsable folder or previewing it outside a mail client. The UnpackUseRelPaths property controls whether the rewritten links use relative or absolute paths; for a single self-contained file, see CreateTempMht, and for web serving see AspUnpack.

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.Email;

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

procedure RunDemo;
var
  success: Boolean;
  email: TEmail;

begin
  success := False;

  //  Demonstrates the UnpackHtml method, which unpacks an HTML email into an HTML file plus
  //  separate related files (images, style sheets).  Links in the HTML are rewritten to
  //  reference the unpacked files.  Arguments: unpackDir, htmlFilename, partsSubdir.

  email := TEmail.Create;

  success := email.LoadEml('qa_data/eml/html_with_images.eml');
  if (success = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  Unpack the HTML body and its related files to the filesystem.
  success := email.UnpackHtml('qa_output/unpacked','message.html','parts');
  if (success = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  WriteLn('Unpacked the HTML email to disk.');

  //  Note: Paths such as "qa_data/..." and "qa_output/..." are relative local
  //  filesystem paths, relative to the current working directory of the running application.


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