Delphi ActiveX

Create a multipart/related MIME Entity

Demonstrates the Chilkat Mime.NewMultipartRelated method, which initializes the object as an empty multipart/related entity. It takes no arguments; the primary part and its related resources are then appended.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: multipart/related ties a primary part to the resources it references — most commonly an HTML body and the inline images it embeds via cid: references. Unlike a plain attachment, a related image is displayed within the message rather than listed separately. The HTML part comes first, followed by each referenced resource with a matching Content-ID.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
mime: TChilkatMime;
htmlPart: TChilkatMime;

begin
success := 0;

//  Demonstrates the Mime.NewMultipartRelated method, which initializes the object as an empty
//  multipart/related entity, clearing any existing content.  It takes no arguments.

mime := TChilkatMime.Create(Self);

success := mime.NewMultipartRelated();
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

//  multipart/related groups a primary part with the resources it references, such as an HTML body
//  and the inline images it displays.
htmlPart := TChilkatMime.Create(Self);
success := htmlPart.SetBodyFromHtml('<html><body><img src="cid:logo"></body></html>');
if (success = 0) then
  begin
    Memo1.Lines.Add(htmlPart.LastErrorText);
    Exit;
  end;
success := mime.AppendPart(htmlPart.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

success := mime.AppendPartFromFile('qa_data/logo.png');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Number of parts: ' + IntToStr(mime.NumParts));