论坛 › Delphi交流 › delphi 如何将memo中的网页源码,代码转成网页方式显示

小新吧 发表于 2013-7-9 10:19:10

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

本帖最后由 小新吧 于 2013-7-11 11:38 编辑

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


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读取，显示网页

制作的边框，所有的都没有显示出来，求解，谢谢···

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

保存为html 在打开

小新吧 发表于 2013-7-11 11:28:37

大小鱼 发表于 2013-7-10 17:28 static/image/common/back.gif
保存为html 在打开

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

小新吧 发表于 2013-7-11 11:30:26

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;

查看完整版本: delphi 如何将memo中的网页源码,代码转成网页方式显示