delphi 如何将memo中的网页源码,代码转成网页方式显示

小新吧

网页的代码已经在memo中了，如何将memo里面的代码再转成网页的方式显示呢？显示在webbrowser里。
求大牛指点，拜谢···
本问题已解决，求下面问题解答···
[qq]602852265[/qq]

uses SHDocVw, Winapi.ActiveX, MSHTML; ········ ······· procedure TForm2.BitBtn1Click(Sender: TObject); var AStr: WideString; Document2: IHTMLDocument2Disp; begin AStr := memo1.text;  //这里就是显示memo控件中内容··· WebBrowser1.Navigate('about:'); if Supports(WebBrowser1.Document, IHTMLDocument2Disp, Document2) then begin Document2.write(AStr); Document2 := nil; end; end; 这样是显示出来了，但是我调用的js，ccs文件，网页框架都没有显示出来，求大牛指点如何调用··· 直接html网页打开图片： 在delphi中memo读取，显示网页 制作的边框，所有的都没有显示出来，求解，谢谢···

大小鱼

保存为html 在打开

小新吧

大小鱼 发表于 2013-7-10 17:28

                               
登录/注册后可看大图

保存为html 在打开

谢谢，我已经找到方法了，html在memo中，为了就是不保存到本地哦，

小新吧

uses
SHDocVw, Winapi.ActiveX, MSHTML;
········
·······
procedure TForm2.BitBtn1Click(Sender: TObject);
var
AStr: WideString;
Document2: IHTMLDocument2Disp;
begin
AStr := memo1.text;  //这里就是显示memo控件中内容···
WebBrowser1.Navigate('about:');
if Supports(WebBrowser1.Document, IHTMLDocument2Disp, Document2) then
begin
Document2.write(AStr);
Document2 := nil;
end;
end;