用浏览器来显示带图片的邮件内容,图片无需保存为本地文件
2017-04-05 12:40
465 查看
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.Me
4000
ssageParts.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;
对于这样的数据,最简单的解析办法是用 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.Me
4000
ssageParts.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;
相关文章推荐
- 保存Flex显示组件到本地图片文件
- js遍历本地所有图片文件,显示在浏览器中
- js遍历本地所有图片文件,显示在浏览器中
- web中,如何读取Word内容(包含表格,但不包含图片)并且显示在页面中或保存进数据库中
- 用TreeView控件实现资源管理器(显示本地硬盘下所有文件夹和文件,并可以浏览图片)(示例代码下载)
- 使用urlconnection下载文件或图片并保存到本地
- 将本地图片上传保存到数据库(理论上支持各种文件的上传)
- 用TreeView控件实现资源管理器(显示本地硬盘下所有文件夹和文件,并可以浏览图片)(示例代码下载)
- c# winform项目treeview控件绑定本地电脑磁盘信息,读取文件夹信息,显示文件夹内文件内容
- 保存在数据中image字段的图片文件显示出来
- 解决Outlook 2007中收发邮件HTML文件不能显示图片的方法
- 用TreeView控件实现资源管理器(显示本地硬盘下所有文件夹和文件,并可以浏览图片)(示例代码下载)
- asp把文章内容中涉及到的图片自动保存到本地服务器
- VFP将图片或其他文件保存到SQL Server的Text类型字段或者Access的备注字段中,并可以还原或显示。 .
- 使用urlconnection下载文件或图片并保存到本地
- VFP将图片或其他文件保存到SQL Server的Text类型字段或者Access的备注字段中,并可以还原或显示
- 把文章内容中涉及到的图片自动保存到本地服务器
- web中,如何读取Word内容(包含表格,但不包含图片)并且显示在页面中或保存进数据库中
- ASP保存远程图片文件到本地代码
- 怎么将验证码图片保存到本地或是用Image显示