Lazarus Pascal

Get the Content-Location of a Related Item

Demonstrates the Chilkat Email.GetRelatedContentLocation method, which returns the Content-Location of a related item (typically an image or style sheet embedded within an HTML email). The index is zero-based. This example loads an image from a file into a BinData object and adds it as a related item addressed by Content-Location using AddRelatedBd2, then reads it back.

Background: Content-Location is the alternative to Content-ID for linking HTML to its embedded resources. Instead of a cid: reference, the HTML keeps an ordinary-looking src="logo.png", and the matching part carries a Content-Location of logo.png. Since the image is binary, it is loaded into a BinData object and added with AddRelatedBd2. This approach is common when an existing web page is turned into an email, since the original relative URLs can stay unchanged.

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.Email,
  Chilkat.BinData;

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

procedure RunDemo;
var
  success: Boolean;
  email: TEmail;
  bdImage: TBinData;
  loc: string;

begin
  success := False;

  //  Demonstrates the GetRelatedContentLocation method, which returns the Content-Location of
  //  a related item.  Related items are typically images and style sheets embedded within
  //  HTML emails.  The index is zero-based.

  email := TEmail.Create;
  email.Subject := 'GetRelatedContentLocation example';

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

  //  Load the image data from a file into a BinData object.
  bdImage := TBinData.Create;
  success := bdImage.LoadFile('qa_data/images/logo.png');
  if (success = False) then
    begin
      WriteLn(bdImage.LastErrorText);
      Exit;
    end;

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

  //  Read the Content-Location of the first related item (index 0).
  loc := email.GetRelatedContentLocation(0);
  WriteLn('Related item 0 Content-Location: ' + loc);

  //  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;
  bdImage.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.