我想把一个html文件的内容通过twebbroswer 显示出来,网上说可以通过
函数WebBrowserLoadFrom来显示,但是编译时报错,说不认识此函数,
也uses activex 了,还是不行,这个函数到底是哪个单元的呢 ?
函数WebBrowserLoadFrom来显示,但是编译时报错,说不认识此函数,
也uses activex 了,还是不行,这个函数到底是哪个单元的呢 ?
解决方案 »
- SQL查询语句中,可以使用MonthsBetween函数吗?
- 100分求讨论,Sql语句个人认为工程的话放在后台Sql Server(存储过程)较好,产品的话建议不放在后台,不过我看到速达基本放在SQL Server
- 自定义的TObject的对象内使用Timer组件,为何不能触发Ontimer事件?? (内附完整代码) 谢谢
- 急求一个oracle的存储过程调用方法!!!在线等待
- 关于a console application 中的read,各位关照一下
- 请教一个日期问题
- 具体定位于第几条记录的问题???
- 编译时总报AMovie_TLB.duc没找到,但我程序里也没有类似的控件啊,怎么办
- 关于Memo的一点小问题
- 怎么让fastreport支持中文字段?
- 麻烦帮我分析一下,这个左键消息的VCL源码
- 散分第二弹,速度来接分,10的整数楼得与楼层数等值分..........
function ShowHtml(mWebBrowser: TWebBrowser; mStrings: TStrings): Boolean;
var
vMemoryStream: TMemoryStream;
begin
Result := False;
if not (Assigned(mStrings) and Assigned(mWebBrowser)) then Exit;
mWebBrowser.Navigate('about:blank');
if not Assigned(mWebBrowser.Document) then Exit;
vMemoryStream := TMemoryStream.Create;
try
mStrings.SaveToStream(vMemoryStream);
try
vMemoryStream.Position := 0;
Application.ProcessMessages; // :)
(mWebBrowser.Document as IPersistStreamInit).Load(
TStreamAdapter.Create(vMemoryStream));
except
Exit;
end;
finally
vMemoryStream.Free;
end;
Result := True;
end; { ShowHtml } 此函数已搞定!!!