delphi TWebBrowser组件使用详解

Navigate方法语法中各参数的说明如表26.14所示。
示例：
Navigate方法是TWebBrowser组件中最重要的方法之一，使用该方法能够将当前TWebBrowser组件导航到任何存在的链接上，代码如下：
if WebBrowser1.Busy then
WebBrowser1.Stop;
语法：
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:
语法：
property FullName: WideString;
示例：
显示Web浏览器组件所在的可执行文件的名称，并且包含路径，代码如下：
ShowMessage('Web组件所在的可执行文件为：'+WebBrowser1.FullName);
（6）LocationName属性
获得当前在Web浏览器组件中显示的资源名。
语法：
property ControlInterface: IWebBrowser2;
示例：
显示WebBrowser1组件的名称，代码如下：
Showmessage();
（5）FullName属性
指定主机上Web浏览器组件的可执行文件的完整的合法路径名。
pcx：坐标点X。
pcy：坐标点Y。
（2）ExecWB方法
允许用户用IOleCommandTarget接口传递一个命令到当前Web浏览器组件。Microsoft定义了一些常量来表示这些命令，但是Web浏览器不全部支持这些命令，可用QueryStatusWB方法使用这些命令。
语法：
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;
语法：
property LocationName: WideString;
示例：
显示网页标题的名称，代码如下：
ShowMessage('网页标题名：'+WebBrowser1.LocationName);
（7）LocationURL属性
确定当前显示文档、文件夹的URL或路径。
语法：
property LocationURL: WideString;
OleVariant); overload;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName:
OleVariant; var PostData: OleVariant); overload;
try
WebBrowser1.GoForward();
except
exit;
end;
（5）GoHome方法
返回已注册主页或开始页，在注册表中指定主页的注册项为：HKEY_CURRENT_USER\Sof- tware\Microsoft\IE\Main下的SStartpage名称栏。可用TRegistry、TRegistryIniFile对象或IE浏览器“工具”中的Internet选项改变注册主页。
WebBrowser1.Navigate(URL); //URL为网址
（8）Navigate2方法
定位或下载指定的资源，发送HTTP消息到指定的URL并显示指定文件的内容，或导航到不能表达为URL的资源。
语法：
procedure Navigate2(var URL: OleVariant); overload;
语法：
property AddressBar: WordBool;
（2）Busy属性
确定Web浏览器组件是否正在导航到一个新的URL地址或正在下载文档。
语ቤተ መጻሕፍቲ ባይዱ：
property Busy: WordBool;
示例：
如果该属性值为True，则在开始一个新的操作前，可用Stop方法中止当前操作，然后再导航到其他的页面，代码如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if WebBrowser1.Busy then
WebBrowser1.Stop;
WebBrowser1.Navigate('');
begin
WebBrowser1.Stop;
end
else
ShowMessage('Web浏览器没有一个具有Automation接口的容器');
（4）ControlInterface属性
访问WebBrowser组件接口，这个接口允许一个Automation控制器访问Web浏览器的属性、方法和事件。
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload;
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName:
语法：
property RegisterAsDropTarget: WordBool;
示例：
该属性为True时，允许用户拖放HTML文档到当前Web浏览器；否则拖放操作无效，代码如下：
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
指定Web浏览器是否从本地缓存中获取文档。该属性为True时，表示Web浏览器以脱机方式工作，否则为在线方式。
语法：
property Offline: WordBool;
注意：可以使用IE浏览器保存HTML网页到本地缓存，浏览器可以脱机方式工作。
（10）Path属性
指定主机上Web浏览器组件可执行文件的路径名，不包括文件名。
示例：
显示地址的完整路径，代码如下：
ShowMessage('Web浏览器组件连接的URL为：'+WebBrowser1.LocationURL);
（8）Name属性
指定计算机上的TWebBrowser的名称。
语法：
property Name: WideString;
（9）Offline属性
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant);
overload;
procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; var pvaIn: OleVariant;
procedure Navigate(const URL: WideString; var Flags: OleVariant; var TargetFrameName:
OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload;
delphi TWebBrowser组件使用详解
该组件是一个浏览器组件，可以显示一个指定地址的网页、设置网页打开时的主页以及对网页进行相关的操作，同时也可以对HTML文件进行剪切、复制、粘贴、删除等操作。该 组件在Internet组件页中。
1．属性
（1）AddressBar属性
设置是否显示地址栏，在TWebBrowser中没有用。
if not WebBrowser1.RegisterAsDropTarget then
WebBrowser1.RegisterAsDropTarget:=true;
end;
（14）Silent属性
指定TWebBrowser是否显示对话框。该属性为True时，该对话框不再显示脚本错误。
语法：
property Path: WideString;
示例：
Str := WebBrowser1.Path;
（11）ReadyState属性
获得指定Web浏览器组件的状态信息，使用这个信息可避免Web浏览器执行未准备的操作。
语法：
property ReadyState: TOleEnum;
ShowMessage('Automation对象的类型为:'+WebBrowser1.Type_);
2．方法
（1）ClientToWindow方法
IE使用该方法转换客户坐标与窗口坐标。一般不要使用该方法。
语法：
procedure ClientToWindow(var pcx: SYSINT; var pcy: SYSINT);
语法：
property Silent: WordBool;
（15）Type_属性
指定包含的文档对象的类型名称，读取该属性以确定Automation对象的类型，该对象的接口通过Document属性表示。
语法：
property Type_: WideString;