Pascal (Lazarus/Delphi)

Add a Related File Addressed by Content-Location

Demonstrates the Chilkat Email.AddRelatedFile2 method, which adds a local file as a related MIME resource addressed by Content-Location rather than Content-ID. The second argument becomes the related item's MIME filename and Content-Location value, and it should match the filename, path, or URL already used by the corresponding HTML reference (such as an img element's src). This example embeds an image referenced as logo.png.

Background: There are two ways HTML email links to embedded resources. The cid: approach (see AddRelatedFile) uses a generated Content-ID, while the Content-Location approach lets the HTML keep an ordinary-looking src="logo.png" and matches it to a part carrying the same Content-Location. The latter is handy when converting an existing web page to email, because the original relative URLs can stay unchanged.

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 AddRelatedFile2 method, which adds a local file as a related MIME
  //  resource addressed by Content-Location rather than Content-ID.  The 2nd argument becomes
  //  the item's MIME filename / Content-Location and should match the reference in the HTML.

  email := TEmail.Create;
  email.Subject := 'Email with a related image (by Content-Location)';

  //  The HTML references the image by the same name used as the Content-Location.
  email.SetHtmlBody('<html><body><img src="logo.png"/></body></html>');

  //  Add the file as a related item addressed by Content-Location "logo.png".
  success := email.AddRelatedFile2('qa_data/images/logo.png','logo.png');
  if (success = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  WriteLn('NumRelatedItems = ' + email.NumRelatedItems);

  //  Note: The path "qa_data/images/logo.png" 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.