ilent属性
指定TWebBrowser是否显示对话框。该属性为True时,该对话框不再显示脚本错误。
语法:
property Silent: WordBool;
(15)Type_属性
指定包含的
文档对象的类型名称,读取该属性以确定Automation对象的类型,该对象的接口通过Document属性表示。
语法:
property Type_: WideString;
示例:
显示文件的类型,代码如下:
ShowMessage('Automation对象的类型为:'+WebBrowser1.Type_);
2.方法
(1)ClientToWindow方法
IE使用该方法转换客户坐标与窗口坐标。一般不要使用该方法。
语法:
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
pcx:坐标点X。
pcy:坐标点Y。
(2)ExecWB方法
允许用户用IOleCommandTarget接口传递一个命令到当前Web浏览器组件。Microsoft定义了一些常量来表示这些命令,但是Web浏览器不全部支持这些命令,可用QueryStatusWB方法使用这些命令。
语法:
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant);
overload;
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
var pvaOut: OleVariant); overload;
示例:
调用ExecWB方法能够完成许多功能,例如停止网页浏览,代码如下:
WebBrowser1.ExecWB(OLECMDID_STOP,OLECMDEXECOPT_PROMPTUSER);
(3)GoBack方法
返回到历史列表中的上一个
文档。如果历史列表中没有包含另外的文档,该方法将无效。
语法:
procedure GoBack;
示例:
返回当前页的上一页,代码如下:
WebBrowser1.GoBack();
(4)GoForward方法
返回到历史
列表中的下一个文档,与最后调用GoBack方法的效果相反。
语法:
procedure GoForward;
示例:
返回当前页的下一页,但是如果历史列表中没有下一个文档,则产生异常,代码如下:
try
WebBrowser1.GoForward();
except
exit;
end;
(5)G
oHome方法
返回已注册主页或开始页,在注册表中指定主页的注册项为:HKEY_CURRENT_USER\Sof- tware\Microsoft\IE\Main下的SStartpage名称栏。可用TRegistry、TRegistryIniFile对象或IE浏览器“工具”中的Internet选项改变注册主页。
语法:
procedure GoHome;
示例:
返回主页,代码如下:
if WebBrowser1.Busy then
WebBrowser1.Stop;
WebBrowser1.GoHome;
(6)GoSearch方法
打开已
注册的搜索网页,在注册表中指定搜索网页的注册项为:HKEY_CURRENT_USER\ Sof- ware\Microsoft\IE\Main下的SearchPage名称栏。可用TRegistry、TRegistryIniFile对象或IE浏览器中“工具”中的Internet选项改变注册
搜索网页。
语法:
procedure GoSearch;
示例:
打开已注册的搜索网页,代码如下:
if WebBrowser1.Busy then
WebBrowser1.Stop;
WebBrowser1.GoSearch();
(7)Navigate方法
定位或下载指定的资源,发送HTTP消息到指定的URL并显示指定文件的内容,也可用来显示指定的文件。
语法:
procedure Navigate(const URL: WideString); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant;var TargetFrameName:
OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName:
OleVariant; var PostData: OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName:
OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload;
Navigate方法语法中各参数的说明如表26.14所示。
示例:
Navigate方法是TWebBrowser组件中最重要的方法之一,使用该方法能够将当前