Delphi ActiveX

Add a Related Item from a BinData Object

Demonstrates the Chilkat Email.AddRelatedBd method, which adds a related item (such as an inline image) using the contents of a BinData object, and returns the generated Content-ID. This example loads an image into a BinData, adds it, captures the Content-ID, and references it from the HTML body.

Background: This is the binary, Content-ID-based way to embed an inline resource — the right choice for images, whose bytes belong in a BinData rather than a string. Because Chilkat generates the Content-ID, the usual pattern is: add the item first, capture the returned ID, then build the matching <img src="cid:..."> reference from it (done here with a StringBuilder).

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
email: TChilkatEmail;
bdImage: TChilkatBinData;
cid: WideString;
sbHtml: TChilkatStringBuilder;
numReplaced: Integer;

begin
success := 0;

//  Demonstrates the AddRelatedBd method, which adds a related item (such as an inline image)
//  using the contents of a BinData object, and returns the generated Content-ID.

email := TChilkatEmail.Create(Self);
email.Subject := 'Related image from BinData';

//  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; capture its generated Content-ID.
cid := email.AddRelatedBd('logo.png',bdImage.ControlInterface);
if (email.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

//  Reference the related item in the HTML body by its Content-ID.
sbHtml := TChilkatStringBuilder.Create(Self);
sbHtml.Append('<html><body><img src="cid:PLACEHOLDER_CID"/></body></html>');
numReplaced := sbHtml.Replace('PLACEHOLDER_CID',cid);
email.SetHtmlBody(sbHtml.GetAsString());

Memo1.Lines.Add('NumRelatedItems = ' + IntToStr(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.