Pascal (Lazarus/Delphi)

Load an Email from a Chilkat XML File

Demonstrates the Chilkat Email.LoadXml method, which loads an email from a Chilkat XML email file (as produced by SaveXml). On success, the loaded message replaces the entire current email, including recipients, headers, bodies, related items, and attachments. This example loads the XML and reads its subject and from.

Background: Chilkat's XML email format is one way to persist a message — an alternative to the standard .eml (MIME) format. It is worth knowing that .eml also preserves Chilkat-specific metadata: header fields whose names begin with CKX- are stored in the saved MIME and restored on load, and are simply always removed before an email is actually sent. Because .eml is the universal, interoperable format and captures the same metadata, Chilkat recommends using .eml (LoadEml / SaveEml) over the XML format — even within Chilkat-based software.

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 LoadXml method, which loads an email from a Chilkat XML email file.
  //  On success, the loaded message replaces the entire current email.

  email := TEmail.Create;

  success := email.LoadXml('qa_data/xml/email.xml');
  if (success = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  WriteLn('Subject: ' + email.Subject);
  WriteLn('From: ' + email.From);

  //  Note: The path "qa_data/..." is a relative local filesystem path,
  //  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.