用浏览器来显示带图片的邮件内容，图片无需保存为本地文件

最新推荐文章于 2025-12-13 13:28:55 发布

原创最新推荐文章于 2025-12-13 13:28:55 发布 · 1.7k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #html #图片 #邮件 #浏览器

本文介绍了一种在不保存为本地文件的情况下，直接将邮件中的内联图片以Base64编码形式显示在浏览器的方法。通过使用TIdMessage组件解析MIME格式的邮件，并重新编码图片为Base64格式，实现图片的直接展示。

mail.txt 的内容是一份邮件的原始数据。

对于这样的数据，最简单的解析办法是用 TIdMessage 元件。

这份邮件里面，有一个 inline 的图片，需要直接显示到正文内容里面。以前我的做法是将附件保存为本地文件，然后替换邮件正文内容里面的 <img src="..."> 里面的字符串为本地文件，这样就能显示。

现在，在 Windows 底下，浏览器可以支持直接显示内存图像，也就是把图像编码为 base64 的数据，告诉浏览器图像是 <img src="data:image/jpge; base64,XXXXXX 的。这样浏览器也会显示图片。

代码：

procedure TForm1.Button6Click(Sender: TObject);
var
  HTDoc: IHTMLDocument2;
  Range: IHTMLTxtRange;
  S, PicStr, S2: string;
  i, j: Integer;
  M: TMemoryStream;
begin
{-----------------------------------------------------------------------------
  加载一个 MIME 的邮件，把里面的图片，重新编码为 Base64 然后显示到浏览器里面，而不是保存为文件然后让浏览器加载。
  测试成功。

  这里的问题是，其实在邮件内容里面，图片原本就是 Base64 编码的。但是 IdMessage 加载邮件内容后，
  它自动将它解析转换为真正的 JPEG 图片了。SaveToFile 就是真正的 JPEG 格式的数据，SaveToStream 也一样。
  查了一下 Indy 的代码，似乎还不能拿到原始数据，类似 RawData 这样的。因此，还必须要自己重新编码一次。
-----------------------------------------------------------------------------}
  IdMessage1.Clear;
  IdMessage1.LoadFromFile(Self.FMyPath + 'mail.txt');

  M := TMemoryStream.Create;
  try
    for i := 0 to Pred(IdMessage1.MessageParts.Count) do
    begin
      if (IdMessage1.MessageParts.Items[i] is TIdAttachmentFile) then
      begin
        TIdAttachmentMemory(IdMessage1.MessageParts.Items[i]).SaveToStream(M);  //这里用 TIdAttachmentFile 也可以。
      end
      else
      begin //body text
        if IdMessage1.MessageParts.Items[i] is TIdText then
        begin
          //Memo1.Lines.Clear;
          S := (TIdText(IdMessage1.MessageParts.Items[i]).Body.Text);
        end
      end;
    end;

    M.Position := 0;
    PicStr := IdEncoderMIME1.Encode(M);       //经测试，这里拿到的是编码后的图片
    PicStr := Trim(PicStr);
  finally
    M.Free
  end;

  if S = '' then Exit;

 

  Memo1.Lines.Clear;
  Memo1.Lines.Text := S;

  Memo1.Lines.Add('--------------');
  Memo1.Lines.Add('');
  Memo1.Lines.Add(PicStr);

  //---- 替换邮件内容里面的  <img id="js-attachFile-1483064964551" class="" src="cid:1505998205.2589.1483077727632.Hmail.james@abc.cn"  style=""/> ----------

  S2 := '<img src="data:image/jpge; base64,' + PicStr + '" />';
  i := Pos('<img', S);
  j := Pos('>', S, i);
  Delete(S, i, j-i +1);

  Insert(S2, S, i);

  Memo1.Lines.Add('');

  Memo1.Lines.Add('--------');
  Memo1.Lines.Add(S);


  HTDoc := WebBrowser1.Document as IHTMLDocument2;


  if (HTDoc <> nil) then
  begin
    Range := (HTDoc.body AS IHTMLBodyElement).createTextRange;
    Range.Collapse(False);
    Range.PasteHTML(S);
  end;
end;