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

2017-04-05 19:25:55来源:CSDN作者:pcplayer人点击

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;


相关文章

    无相关信息

最新文章

123

最新摄影

闪念基因

微信扫一扫

第七城市微信公众平台