Delphi TWebBrowser[2]-属性、方法、事件示例详解

Delphi TWebBrowser[2]-属性、方法、事件示例详解

1、属性
（1）AddressBar　　//设置是否显示地址栏，在TWebBrowser中没有用。　　语法：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('www.mingrisoft.com');
end;

（3）Container　　//访问Web浏览器父类或容器的接口。语法：property Container: IDispatch;

//如果Web浏览器没有一个具有Automation接口的容器，则该属性的值为空。否则可以通过返回的接口，访问Web浏览器父类或容器，代码如下：
if WebBrowser1.Container <> nil then
begin
   WebBrowser1.Stop;
end
else
   ShowMessage('Web浏览器没有一个具有Automation接口的容器');

（4）ControlInterface　　//访问WebBrowser组件接口，这个接口允许一个Automation控制器访问Web浏览器的属性、方法和事件。
语法：property   ControlInterface: IWebBrowser2;

//显示WebBrowser1组件的名称，代码如下：
Showmessage(WebBrowser1.ControlInterface.Name);

（5）FullName　　//指定主机上Web浏览器组件的可执行文件的完整的合法路径名。　　语法：property FullName: WideString;

//显示Web浏览器组件所在的可执行文件的名称，并且包含路径，代码如下：
ShowMessage('Web组件所在的可执行文件为：'+WebBrowser1.FullName);

（6）LocationName　　//获得当前在Web浏览器组件中显示的资源名。　　语法：property LocationName: WideString;

//显示网页标题的名称，代码如下：
ShowMessage('网页标题名：'+WebBrowser1.LocationName);

（7）LocationURL　　//确定当前显示文档、文件夹的URL或路径。　　语法：property LocationURL: WideString;

//显示地址的完整路径，代码如下：
ShowMessage('Web浏览器组件连接的URL为：'+WebBrowser1.LocationURL);

（8）Name　　//指定计算机上的TWebBrowser的名称。　　语法：property Name: WideString;
（9）Offline　　//指定Web浏览器是否从本地缓存中获取文档。该属性为True时，表示Web浏览器以脱机方式工作，否则为在线方式。
语法：property Offline: WordBool;
注意：可以使用IE浏览器保存HTML网页到本地缓存，浏览器可以脱机方式工作。
（10）Path　　//指定主机上Web浏览器组件可执行文件的路径名，不包括文件名。　　语法：property Path: WideString;

Str := WebBrowser1.Path;

（11）ReadyState　　//获得指定Web浏览器组件的状态信息，使用这个信息可避免Web浏览器执行未准备的操作。　　语法：property ReadyState: TOleEnum;
（12）RegisterAsBrowser　　//设置该属性为True时，当前使用的Web浏览器组件成为最高级别浏览器。　　语法：property RegisterAsBrowser: WordBool;
（13）RegisterAsDropTarget　　//指出是否允许用户拖放HTML文档到当前Web浏览器。　　语法：property RegisterAsDropTarget: WordBool;

//该属性为True时，允许用户拖放HTML文档到当前Web浏览器；否则拖放操作无效，代码如下：
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
   if not WebBrowser1.RegisterAsDropTarget then
     WebBrowser1.RegisterAsDropTarget:=true;
end;

（14）Silent　　//指定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）GoHome　　//返回已注册主页或开始页，在注册表中指定主页的注册项为：HKEY_CURRENT_USERSof- twareMicrosoftIEMain下的SStartpage名称栏。可用TRegistry、TRegistryIniFile对象或IE浏览器“工具”中的Internet选项改变注册主页。
语法：procedure GoHome;

//返回主页，代码如下：
if WebBrowser1.Busy then
   WebBrowser1.Stop;
WebBrowser1.GoHome;

（6）GoSearch　　//打开已注册的搜索网页，在注册表中指定搜索网页的注册项为：HKEY_CURRENT_USER Sof- wareMicrosoftIEMain下的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组件中最重要的方法之一，使用该方法能够将当前TWebBrowser组件导航到任何存在的链接上，代码如下：
if WebBrowser1.Busy then
   WebBrowser1.Stop;
WebBrowser1.Navigate(URL);     //URL为网址

（8）Navigate2　　//定位或下载指定的资源，发送HTTP消息到指定的URL并显示指定文件的内容，或导航到不能表达为URL的资源。
语法：
procedure Navigate2(var URL: OleVariant); overload;
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant); overload;
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName:
OleVariant); Overload;
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName:
OleVariant; var PostData: OleVariant); overload;
procedure Navigate2(var URL: OleVariant; var Flags: OleVariant; var TargetFrameName:
OleVariant; var PostData: OleVariant; var Headers: OleVariant); overload;

//Navigate2方法与Navegate方法类似，能够将当前TWebBrowser组件导航到指定的资源，代码如下：
procedure TForm1.GoUrl2(URL: String);    //URL为指定的资源的网址
var
   oUrl:Olevariant;
   oPost,oFram,oflag:Olevariant;
begin
   oUrl:=Url;
   oFram:=0;
   oFlag:=navOpenInNewWindow;     //在新窗口中打开资源
   oPost:='';
   if WebBrowser1.Busy then
     WebBrowser1.Stop;
   WebBrowser1.Navigate2(oUrl,oFlag,oFram,oPost);
end;

（9）QueryStatusWB　　//确定可以使用ExecWB方法执行的命令，即Web浏览器支持的命令信息，该方法使用IOleCommandTarget接口的QueryStatus方法来得到命令状态的信息。
语法：function   QueryStatusWB(cmdID: OLECMDID): OLECMDF;　　//cmdID：指定要获取其信息的命令。
（10）Refresh　　//重新载入当前文档。Web浏览器正在显示的URL指定的资源可能已经发生变化时，这个方法非常有用。该方法总是发送一个参数，即非缓存标题，通知服务器不要返回缓存的复制，这对于某些服务器可能是一个问题。为阻止发送这个非缓存标题参数或只是刷新过期的网页，可用Refresh2方法。
语法：procedure Refresh;

//该方法完成了IE浏览器的刷新功能，可以使用该方法来重新载入当前页面，如果当前TWebBrowser组件没有载入任何的网页，则会产生异常，代码如下：
if WebBrowser1.LocationURL<>'' then
   WebBrowser1.Refresh;

（11）Refresh2　　//调用Refresh2方法重新装入当前文档，与Refresh方法不同的是，该方法可指定要完成的刷新级别。
语法：
procedure Refresh2; overload;
procedure Refresh2(var Level: OleVariant); overload;　　//Level：指定要被刷新信息的类型，其取值如表7所示。

//Refresh2方法提供了更加复杂的刷新方式，提供了多种刷新方法，通过该方法同样能够实现Refresh方法完成的任务，代码如下：
procedure TForm1.ToolButton7Click(Sender: TObject);
var
   Level:Olevariant;
begin
   Level:=REFRESH_IFEXPIRED;
   if WebBrowser1.LocationURL<>'' then
     WebBrowser1.Refresh2(Level);
end;

（12）Stop　　//终止任何未完成的导航或下载操作，并终止任何动态的网页元素，如背景音乐和动画等。
语法：procedure Stop;

//该方法实现了IE中的停止功能，即停止了一切载入工作，代码如下：
WebBrowser1.Stop;

　　

3、事件
（1）OnBeforeNavigate2　　//Web浏览器导航到一个新的资源前被触发。
语法：
property OnBeforeNavigate2: TWebBrowserBeforeNavigate2;
type TWebBrowserBeforeNavigate2 = procedure(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant; var TargetFrameName: OleVariant; var PostData: OleVariant; var Headers: OleVariant; var Cancel: WordBool) of object;
（2）OnCommandStateChange　　//当执行TWebBrowser组件的某个方法的功能改变时被触发，其状态取值决定于执行Web浏览器中某个方法的功能。
语法：
property OnCommandStateChange: TWebBrowserCommandStateChange;
type TWebBrowserCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object;
//Sender：指出其功能已变化的Web浏览器组件。
//Enable：指定CSC_NAVIGATEFORWARD或CSC_NAVIGATEBACK命令是否可用，其值为True时，可用；否则不可用。

//OnCommandStateChange事件提供了一个命令状态改变后的处理功能，通过该事件能够判断执行某个命令后的当前浏览器状态，例如控制“后退”、“前进”或“停止”按钮是否可用，代码如下：
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject;
   Command: Integer; Enable: WordBool);
begin
   case Command of
     CSC_NAVIGATEBACK: ToolButton5.Enabled := Enable;     //“后退”按钮
     CSC_NAVIGATEFORWARD: ToolButton4.Enabled := Enable;     //“前进”按钮
     CSC_UPDATECOMMANDS: ToolButton2.Enabled := TWebBrowser(Sender).Busy;   //“停止”按钮
   end;
end;

（3）OnDownloadBegin　　//Web浏览器开始下载一个文档时被触发，编写其事件处理程序可以指定Web浏览器定位到一个文档后下载该文档前应采取的操作。
语法：
property OnDownloadBegin: TNotifyEvent;
type TNotifyEvent = procedure (Sender: TObject) of object;
（4）OnDownloadComplete　　//导航操作完成、暂停或操作失败时被触发，编写其事件处理程序可以指定应采取的操作。
语法：
property OnDownloadComplete: TNotifyEvent;
type TNotifyEvent = procedure (Sender: TObject) of object;

（5）OnNavigateComplete2　　//当Web浏览器成功地导航到一个新的位置时被触发，编写其事件处理程序可以指定应执行的操作。这个事件可能产生在当前文档下载完成前，但是事件结束时，至少已经接收到部分文档并产生了文档视图。
语法：
property OnNavigateComplete2: TWebBrowserNavigateComplete2;
type TWebBrowserNavigateComplete2 = procedure(Sender: TObject; const pDisp:
IDispatch; var URL: OleVariant) of object;
//Sender：导航到新的资源的Web浏览器。
//pDisp：浏览器的Automation接口。

//当TWebBrowser组件成功地导航到一个新的位置后触发该事件，利用该事件能够获得当前状态或URL地址，代码如下：
if WebBrowser1.Offline then
   Statusbar1.Panels[Statusbar1.Panels.Count-1].Text:='脱机';
else
   Statusbar1.Panels[Statusbar1.Panels.Count-1].Text:='在线';
ComboBox1.Text:=WebBrowser1.LocationURL;

（6）OnProgressChange　　//当更新下载操作的进度时被触发，编写其事件处理程序可以提供一个关于下载进度的可视化的反馈。
语法：
property OnProgressChange: TWebBrowserProgressChange;
type TWebBrowserProgressChange = procedure(Sender: TObject; Progress: Integer;
ProgressMax: Integer) of object;
//Sender：正在下载文档处理进程中的Web浏览器。
//Progress：指出有多少文档已经下载，取值范围在0~ProgressMax之间。当其参数为−1时，操作结束。
//PropressMax：指示下载操作的最大值。
示例：

//利用该事件能够设计一个准确的网页载入进度条，该进度条表示了当前网页的载入进度，代码如下：
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
   ProgressMax: Integer);
begin
   ProgressBar1.Max:=ProgressMax;
   if Progress = -1 then
     ProgressBar1.Visible:=false
   else
   begin
     ProgressBar1.Position := Progress;
     ProgressBar1.Visible := True;
   end;
   if   ProgressBar1.Position = ProgressMax then
     ProgressBar1.Visible:=False;
end; 

　　

 

 

创建时间：2020.11.18　　更新时间：