delphi 用浏览器来显示带图片的邮件内容，图片无需保存为本地文件
mail.txt 的内容是一份邮件的原始数据。
对于这样的数据，最简单的解析办法是用 TIdMessage 元件。
这份邮件里面，有一个 inline 的图片，需要直接显示到正文内容里面。以前我的做法是将附件保存为本地文件，然后替换邮件正文内容里面的 
里面的字符串为本地文件，这样就能显示。
现在，在 Windows 底下，浏览器可以支持直接显示内存图像，也就是把图像编码为 base64 的数据，告诉浏览器图像是 ;</div>
<div>var</div>
<div> HTDoc: IHTMLDocument2;</div>
<div> Range: IHTMLTxtRange;</div>
<div> S, PicStr, S2: string;</div>
<div> i, j: Integer;</div>
<div> M: TMemoryStream;</div>
<div>begin</div>
<div>{-----------------------------------------------------------------------------</div>
<div> 加载一个 MIME 的邮件，把里面的图片，重新编码为 Base64 然后显示到浏览器里面，而不是保存为文件然后让浏览器加载。</div>
<div> 测试成功。</div>
<div> 这里的问题是，其实在邮件内容里面，图片原本就是 Base64 编码的。但是 IdMessage 加载邮件内容后，</div>
<div> 它自动将它解析转换为真正的 JPEG 图片了。SaveToFile 就是真正的 JPEG 格式的数据，SaveToStream 也一样。</div>
<div> 查了一下 Indy 的代码，似乎还不能拿到原始数据，类似 RawData 这样的。因此，还必须要自己重新编码一次。</div>
<div>-----------------------------------------------------------------------------}</div>
<div> IdMessage1.Clear;</div>
<div> IdMessage1.LoadFromFile(Self.FMyPath + 'mail.txt');</div>
<div> </div>
<div> M := TMemoryStream.Create;</div>
<div> try</div>
<div> for i := 0 to Pred(IdMessage1.MessageParts.Count) do</div>
<div> begin</div>
<div> if (IdMessage1.MessageParts.Items[i] is TIdAttachmentFile) then</div>
<div> begin</div>
<div> TIdAttachmentMemory(IdMessage1.MessageParts.Items[i]).SaveToStream(M); //这里用 TIdAttachmentFile 也可以。</div>
<div> end</div>
<div> else</div>
<div> begin //body text</div>
<div> if IdMessage1.MessageParts.Items[i] is TIdText then</div>
<div> begin</div>
<div> //Memo1.Lines.Clear;</div>
<div> S := (TIdText(IdMessage1.MessageParts.Items[i]).Body.Text);</div>
<div> end</div>
<div> end;</div>
<div> end;</div>
<div> </div>
<div> M.Position := 0;</div>
<div> PicStr := IdEncoderMIME1.Encode(M); //经测试，这里拿到的是编码后的图片</div>
<div> PicStr := Trim(PicStr);</div>
<div> finally</div>
<div> M.Free</div>
<div> end;</div>
<div> </div>
<div> if S = '' then Exit;</div>
<div> </div>
<div> </div>
<div> </div>
<div> Memo1.Lines.Clear;</div>
<div> Memo1.Lines.Text := S;</div>
<div> </div>
<div> Memo1.Lines.Add('--------------');</div>
<div> Memo1.Lines.Add('');</div>
<div> Memo1.Lines.Add(PicStr);</div>
<div> </div>
<div> //---- 替换邮件内容里面的 <img id=)
----------
---------- S2 := '
';
'; i := Pos('
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;
————————————————
原文链接：https://blog.csdn.net/pcplayer/article/details/69233739
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.048733949661255 seconds