已知一段html代码，能否在delphi的窗体上显示出网页？？？请看....(30分)

  • 主题发起人 主题发起人 wanglong
  • 开始时间 开始时间
W

wanglong

Unregistered / Unconfirmed
GUEST, unregistred user!
<!--width=395 height=240-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body leftmargin="0" topmargin="0">
<a href="http://218.17.209.45/?ID=94&" target="_blank"><img src="http://tadsweb.tencent.com/View/5102/" width="375" height="240" border="0"></a>
</body>
</html>
 
使用TWebBrowser

然后
procedure SetHtml(const WebBrowser:

TWebBrowser; const Html: string);

var

Stream: IStream;

hHTMLText: HGLOBAL;

psi: IPersistStreamInit;

begin

if not Assigned(WebBrowser.Document) then Exit;

　

hHTMLText := GlobalAlloc(GPTR, Length(Html) + 1);

if 0 = hHTMLText then RaiseLastWin32Error;

CopyMemory(Pointer(hHTMLText),

PChar(Html), Length(Html));

OleCheck(CreateStreamOnHGlobal

(hHTMLText, True, Stream));

try

OleCheck(WebBrowser.Document.

QueryInterface(IPersistStreamInit, psi));

try

OleCheck(psi.InitNew);

OleCheck(psi.Load(Stream));

finally

psi := nil;

end;

finally

Stream := nil;

end;

end;

 
把它先临时保存为HTMl
然后再用TWebBrower打开
 
保存为HTML文件,再用TwebBrowser的navigator方法打开.
 
木子大侠，您的代码在这个地方出错？？为什么啊？
Stream: IStream;
 
能否不保存成html文件，直接翻译。
 
把html直接往TWebBrowser里写也可以的.不永保存为文件.
 
satanmonkey大侠，您就教我两招吧。
 
楼主呀，
那你的那段Html代码是放在什么地方的呢？？？
不然可以用流写入TwebBrowser里面呀，

呵呵~~~~~~~~~~~~~~~~~~~~~~~~
 
保存为HTML文件,再用TwebBrowser的navigator方法打开,注意路径
 
NetSof,webBrowser如何读入流？流的内容只限于HTML吗？
我还有几个未结的帖子,可以把分给你.
我的Mail：oldice@163.net
 
是这么回事，我在学oicq，服务器给客户端用udp发送了一段html语言，客户端接收后直接翻译成网页给客户看，你不信把我发的html存成网页，看看是不是oicq的系统广播。
我现在在作个例子，窗体上有个memo1控件，内容就是这段html，旁边放了webbrowser控件，我点击button1，webbrowser控件就可以显示出网页了，请高手帮忙啊！！！
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

瑞
我做了李维的ADO/MTS/COM+中的那个第三章最后一个例子(ADO And Web Broker)为什么....(200分)
回复
2
查看
236
瑞雪
瑞
飞
多步 OLE DB 操作产生错误。请检查每个 OLE DB 状态值。 (100分)
回复
7
查看
213
飞云.net
飞
狼
我要在这个页面打开时以popup或fullscreen或其他不能打印，不能保存的状态出现。怎么做到？(30分)
回复
2
查看
130
狼牙
狼
P
如何使用TNMHTTP.POST?(50分)
回复
2
查看
116
pcmagic
P
A
如何获取一个url的返回值?(100分)
回复
8
查看
119
autumn
A
后退
顶部