(Delphi ActiveX) SendGrid HTML Email with Embedded Images

See more SendGrid Examples

Demonstrates how to send an HTML email with embedded images using SendGrid.

Chilkat for Delphi Downloads

Chilkat ActiveX DLL for Delphi

Chilkat non-ActiveX DLL for Delphi

* The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
req: TChilkatHttpRequest;
http: TChilkatHttp;
success: Integer;
bdJpg: TChilkatBinData;
sbHtml: TChilkatStringBuilder;
json: TChilkatJsonObject;
resp: IChilkatHttpResponse;

begin
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code

req := TChilkatHttpRequest.Create(Self);
http := TChilkatHttp.Create(Self);

// First.. load a JPG file and build an HTML img tag with the JPG data inline encoded.
// Our HTML img tag will look like this:
// <img src="data:image/jpeg;base64,/9j/4AAQSkZJRgABAQEA3ADcAA..." alt="" style="border-width:0px;" />
bdJpg := TChilkatBinData.Create(Self);
success := bdJpg.LoadFile('qa_data/jpg/starfish.jpg');
if (success = 0) then
  begin
    Memo1.Lines.Add('Failed to load JPG file.');
    Exit;
  end;

// Note: HTML containing embedded base64 image data may not be visible in all email clients.
// For example, GMail might not display the image, but viewing in Outlook might be OK.
sbHtml := TChilkatStringBuilder.Create(Self);
sbHtml.Append('<html><body><b>This is a test<b><br /><img src="data:image/jpeg;base64,');
// Append the base64 image data to sbHtml.
bdJpg.GetEncodedSb('base64',sbHtml.ControlInterface);
sbHtml.Append('" alt="" style="border-width:0px;" /></body></html>');

json := TChilkatJsonObject.Create(Self);
json.UpdateString('personalizations[0].to[0].email','matt@chilkat.io');
json.UpdateString('personalizations[0].to[0].name','Matt');
json.UpdateString('from.email','admin@chilkatsoft.com');
json.UpdateString('subject','Test HTML email with images');
json.UpdateString('content[0].type','text/html');
json.UpdateSb('content[0].value',sbHtml.ControlInterface);

http.AuthToken := 'SENDGRID_API_KEY';

resp := http.PostJson3('https://api.sendgrid.com/v3/mail/send','application/json',json.ControlInterface);
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('response status code: ' + IntToStr(resp.StatusCode));
    // Display the response.
    // If successful, the response code is 202 and the response body string is empty.
    // (The response body string may also be empty for error response codes.)
    Memo1.Lines.Add(resp.BodyStr);

  end;
end;