如何不通过TWebBrowser控件,直接从文件流或文件中生成文档对象模型(HtmlDocument)?

ycjintemp 2003-12-18 10:50:06
如何不通过TWebBrowser控件,直接从文件流或文件中生成文档对象模型(HtmlDocument)?
...全文
4 点赞 收藏 5
写回复
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
vbFly 2004-02-24
没用啊,还是用了TWebBrowser,而且没用
回复
ly_liuyang 2004-01-04
Uses COMOBJ,ActivX就可以的了
回复
zswildcat 2004-01-03
提示OleCheck未声明
回复
erace992001 2003-12-19

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, StrLen(PChar(html))+1);
if 0 = hHTMLText then RaiseLastWin32Error;
CopyMemory(Pointer(hHTMLText),PChar(Html), StrLen(PChar(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;

这样就可以啦,你直接把字符流传给TWebBrowser,然后就会在其上面显示
回复
erace992001 2003-12-18
什么意思,没明白,说个用例
回复
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

1565

社区成员

Delphi 网络通信/分布式开发
申请成为版主
社区公告
暂无公告