谈Delphi 下Internet 编程技巧(二) 数据挖掘研究院
作者：吕杨
E-Mail:lyboy99@sina.com
讲过第一节后,我再给大家介绍Delphi中的TWebBrowser控件的常用使用方法和技巧。从Delphi5开始，TwebBrowser组件中封装有MS IE AcitveX控件，并从Netmasters中替换了THTML组件。Delphi5没有全部加入TwebBrowser控件，我们可以先卸去原有的TwebBrowser组件后从新按安装MS IE ActiveX控件 ；方法是首先：选择Component菜单 -> Install Packages 出现(如图1-1)画面，选择Internet Explorer Components 选项后，按
Remove按钮 ，将原TwebBrowser控件卸载掉，然后再 ，选择 Import ActiveX Control菜单，如（图1-2）后，出现（图1-3）的画面，选择Microsoft internet controls(version 1.1)项后，Install , 安装后你会发现在ActiveX组件菜单中多了WebBrowse_V1 和WebBrowse二个控件。
[图1-1] 数据挖掘研究院
以TWebBrowser(IE5浏览器控件)为例，介绍以下控件的常用的属性。
有些属性在TwebBrowser_V1控件中没有，是TwebBrowser控件中新增的，我在下面的列表中已经注明。 数据挖掘研究院
TwebBrowser控件常用属性表：
|
属性： |
介绍： |
|
GoBack |
后退到上一个页面 |
|
GoForward |
前进到下一个页面 |
|
GoHome |
调用默认的主页页面 |
|
GoSearch |
调用默认的搜索页面 |
|
var Flags, TargetFrameName, PostData, Headers: OleVariant) |
调用指定页面，具体参数如下： URL：指定页面的URL。Flags： Word类型，作用还不清楚，可设为0。 TargetFrameName：WideString， 打开页面所在的Frame，为空字符串时在当前的 Frame中打开；TargetFrameName 指定的Frame存在时在Frame中打开； TargetFrameName指定的Frame 不存在时则新建一个窗口打开，此时就相当 于调用外部的IE浏览器了。 PostData：boolean，是否允许发送数据。 Headers：WideString， 要发送的URL请求的头部数据 |
|
Refresh |
刷新当前页面 |
|
Stop |
停止调用或打开当前页面 |
|
LocationName属性(WideString) |
当前位置的名称 |
|
LocationURL属性(WideString) |
当前位置的URL |
|
Busy属性(Boolean)， |
是否正忙 |
|
Visible: 属性(Boolean) |
浏览器窗口是否可见 |
|
StatusBar属性(Boolean) |
是否显示状态栏，TWebBrowser新增 |
|
StatusText: 属性(WideString) |
状态栏内容，TWebBrowser新增 |
|
ToolBar: 属性(SYSINT) |
工具栏中的内容，TWebBrowser新增 |
|
MenuBar: 属性(Boolean) |
是否显示菜单条，TWebBrowser新增 |
|
FullScreen: 属性(Boolean) |
是否全屏显示，TWebBrowser新增 |
|
Offline: 属性(Boolean) |
是否脱机浏览，TWebBrowser新增 |
|
AddressBar: 属性(Boolean) |
是否显示地址栏，TWebBrowser新增 |
TwebBrowser常见事件表：
|
OnStatusTextChange = procedure (Sender: TObject; const Text: WideString) of object; |
在状态栏提示信息变化时发生，参数Text为当前状态栏提示信息，我们可以根据该信息来更新我们自己的状态栏提示信息或处理其它的事务 |
|
OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object; |
在打开页面的进度变化时发生，参数Progress为当前进度，ProgressMax为总进度，可以根据这两个参数来更新状态栏提示信息或处理其它的事务 |
|
OnCommandStateChange = procedure(Sender: TObject; Command: Integer; Enable: WordBool) of object; |
当执行新的命令时发生，Command为命令标识，Enable为是否允许执行该命令． |
|
OnTitleChange = procedure(Sender: TObject; const Text: WideString) of object; |
在页面的标题发生变化时发生，Text为当前标题 |
|
|
在页面的属性发生变化时发生，Property_为属性名称 OnDownloadComplete: TNotifyEvent 在下载页面完成后发生 在下载页面开始前发生． |
