Delphi DLL

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 DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mime: HCkMime;
htmlPart: HCkMime;

begin
success := False;

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

mime := CkMime_Create();

success := CkMime_NewMultipartRelated(mime);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    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 := CkMime_Create();
success := CkMime_SetBodyFromHtml(htmlPart,'<html><body><img src="cid:logo"></body></html>');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(htmlPart));
    Exit;
  end;
success := CkMime_AppendPart(mime,htmlPart);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

success := CkMime_AppendPartFromFile(mime,'qa_data/logo.png');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

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

CkMime_Dispose(mime);
CkMime_Dispose(htmlPart);