Delphi ActiveX

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

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
email: TChilkatEmail;
bdImage: TChilkatBinData;
loc: WideString;

begin
success := 0;

//  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 := TChilkatEmail.Create(Self);
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 := TChilkatBinData.Create(Self);
success := bdImage.LoadFile('qa_data/images/logo.png');
if (success = 0) then
  begin
    Memo1.Lines.Add(bdImage.LastErrorText);
    Exit;
  end;

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

//  Read the Content-Location of the first related item (index 0).
loc := email.GetRelatedContentLocation(0);
Memo1.Lines.Add('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.