Pascal (Lazarus/Delphi)

Add a Related String Resource to an Email

Demonstrates the Chilkat Email.AddRelatedString method, which adds a text-based related MIME resource, such as a style sheet, from an in-memory string and returns the generated Content-ID. The first argument is the MIME resource name, the second is the text content, and the third is the charset used to encode it. Because the Content-ID is generated by the call, this example adds the style sheet first, then builds an HTML body in a StringBuilder that references the style sheet by that cid:, and passes the result to SetHtmlBody.

Background: Related items are not always images loaded from disk — sometimes the resource is text you already have in memory, like a generated CSS style sheet or an SVG. AddRelatedString lets you embed such content directly without writing a temporary file first. As with other related items, it lives in the multipart/related enclosure and is referenced from the HTML by the Content-ID the method returns.

Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)

Pascal (Lazarus/Delphi)

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.StringBuilder;

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

procedure RunDemo;
var
  email: TEmail;
  cid: string;
  sbHtml: TStringBuilder;
  numReplaced: Integer;

begin
  //  Demonstrates the AddRelatedString method, which adds a text-based related MIME resource
  //  (such as a style sheet) from an in-memory string and returns the generated Content-ID.
  //  The first argument is the resource name, the second is the text content, the third is the charset.

  email := TEmail.Create;
  email.Subject := 'Email with a related style sheet';

  //  Add the text-based related resource first; capture the generated Content-ID.
  cid := email.AddRelatedString('styles.css','body { color: navy; }','utf-8');
  if (email.LastMethodSuccess = False) then
    begin
      WriteLn(email.LastErrorText);
      Exit;
    end;

  //  Build the HTML body, referencing the related style sheet by its Content-ID.  A
  //  placeholder is used and then replaced with the actual Content-ID.
  sbHtml := TStringBuilder.Create;
  sbHtml.Append('<html><head><link rel="stylesheet" href="cid:PLACEHOLDER_CID"/></head><body>Styled content.</body></html>');
  numReplaced := sbHtml.Replace('PLACEHOLDER_CID',cid);
  email.SetHtmlBody(sbHtml.GetAsString());

  WriteLn('Related Content-ID = ' + cid);
  WriteLn('NumRelatedItems = ' + email.NumRelatedItems);


  email.Free;
  sbHtml.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.