|
谈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]
[图1-2]
[图1-3]
以TWebBrowser(IE5浏览器控件)为例，介绍以下控件的常用的属性。
有些属性在TwebBrowser_V1控件中没有，是TwebBrowser控件中新增的，我在下面的列表中已经注明。
TwebBrowser控件常用属性表：
属性：
介绍：
GoBack
后退到上一个页面
GoForward
前进到下一个页面
GoHome
调用默认的主页页面
GoSearch
调用默认的搜索页面
Navigate(const URL: WideString;
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为当前标题
OnPropertyChange = procedure(Sender: TObject; const Property_: WideStrin
[1] [2] [3] [4] 下一页 | 
