|
' ?% d. C9 e& E深 圳 市 邮 政 储 汇 局(518040)
+ s. R) r3 I" Q6 D王 发 军 q3 p; o5 [2 v8 a8 u
-------------------------------------------------------------------------------- / Y1 h/ H2 r. A
一、 在Delphi 中 引 入IE 浏 览 器 控 件 ! G5 o/ ^( f* ]/ g7 E1 p y& g
---- 由 于IE 浏 览 器 控 件 需 要 提 供 显 示 功 能 才 能 使 用, 所 以 不 能 在 程 序 中 用CreateOleObject 取 得 一 个 实 例 后 直 接 使 用 其 属 性 和 方 法, 否 则 程 序 在 运 行 时 会 引 起 错 误; 这 时 需 要 用Delphi 中 提 供 的"Import ActiveX Control" 功 能, 操 作 方 法 如 下 所 述。 / D) b3 A. g6 J' C) `1 V3 `
----在"Components" 菜 单 中, 调 用"Import ActiveX Control" 功 能, 在Registered Controls( 注 册 控 件) 列 表 中 选 择"Microsoft Internet Controls(Version1.1)", 下 方 的 提 示 栏 中 显 示 出 其 路 径 为 C:\PWin98\System\SHDOCVW.DLL, 在Class Names( 类 型 列 表) 中 列 出 了 可 注 册 的 三 个 控 件:TWebBrowser_V1、TWebBrowser 和TShellFolderViewOC, 分 别 为IE3 浏 览 器 控 件、IE4 浏 览 器 控 件 和"Microsoft 外 壳 文 件 夹 查 看 路 由 器" 控 件。 单 击Install 进 行 安 装。 安 装 完 成 后, 在"ActiveX" 控 件 栏 中, 将 增 加 三 个 控 件, 分 别 为TWebBrowser_V1、TWebBrowser 和TShellFolderViewOC; 在Delphi 的Imports 目 录 下, 将 创 建 一 个 文 件SHDocVw_TLB.PAS, 其 中 有 这 三 个 控 件 的 包 装 细 节, 当 然 含 控 件 的 属 性 和 方 法 说 明 了, 它 可 以 作 为 我 们 使 用 控 件 的 参 考 资 料。
8 V# U( h5 q7 J( t# {# L1 P" O二、 使 用IE 浏 览 器 控 件 * ?/ f8 V A0 l u: H. z& ~
----以TWebBrowser(IE4 浏 览 器 控 件) 为 例 子。 # R: J- H( ^ B- W+ W8 B W
----TWebBrowser 的 常 见 属 性 和 方 法 主 要 有: " M" R- W) i# {$ X
GoBack: 方 法, 后 退 到 上 一 个 页 面。
( L5 n0 c a/ U/ R9 J GoForward: 方 法, 前 进 到 下 一 个 页 面。5 n7 l' T8 K: x" B6 a' X
GoHome: 方 法, 调 用 默 认 的 主 页 页 面,- ~+ U% C; q3 S3 _) U+ u/ e
该 页 面 在IE 的 选 项 中 设 定。
0 V9 M" A9 M8 ?- ~6 l+ Y+ X7 w Y GoSearch: 方 法, 调 用 默 认 的 搜 索 页 面, : ]( s1 w+ [5 d
该 页 面 在IE 的 选 项 中 设 定。 4 Y1 k( F( y/ e. D3 e
---- Navigate(const URL: WideString; var Flags, TargetFrameName, PostData, Headers: OleVariant):方 法, 调 用 指 定 页 面, 具 体 参 数 如 下: # `. r/ R! p& N/ I& E2 R; y! ]: N
URL: 指 定 页 面 的URL。
* n: P4 A$ B4 f3 n+ x9 e Flags:Word 类 型, 作 用 还 不 清 楚,
$ M8 d/ D# Z$ N6 \0 i3 N3 ]' E D$ [ 可 设 为0。
" J7 @( ?5 j6 m! K Y---- TargetFrameName:WideString, 打 开 页 面 所 在 的Frame, 为 空 字 符 串 时 在 当 前 的Frame 中 打 开;TargetFrameName 指 定 的 Frame 存 在 时 在Frame 中 打 开; 1 X: U6 \) ?( f# @& a7 ^
----TargetFrameName 指 定 的Frame 不 存 在 时 则 新 建 一 个 窗 口 打 开, 此 时 就 相 当 于 调 用 外 部 的IE 浏 览 器 了。
, E1 H. X Y3 [! S( y PostData:boolean, 是 否 允 许 发 送 数 据。+ v' B, F3 S0 ~4 L+ K
Headers:WideString,
! K- q6 @% b; p# q1 F; T 要 发 送 的URL 请 求 的 头 部 数 据。
2 b4 \6 j- N6 M: f Refresh: 方 法, 刷 新 当 前 页 面。# T) L/ j+ A- w2 r) N Q0 n
Stop: 方 法, 停 止 调 用 或 打 开 当 前 页 面。/ V4 G8 ~; S1 F. O8 ^) t: L V
LocationName: 属 性(WideString), 当 前 位 置 的 名 称。
* Q8 a! ?7 A o2 z0 h/ z6 P) o( w$ |& M LocationURL: 属 性(WideString), 当 前 位 置 的URL。; o6 @: y/ c$ ^9 t: ^
Busy: 属 性(Boolean), 是 否 正 忙。
2 x7 z7 W z8 G* ] Visible: 属 性(Boolean), 浏 览 器 窗 口 是 否 可 见。
G% D: ^3 v: @* C---- ( 以 下 属 性 为 在TWebBrowser 新 增, TWebBrowser_V1 中 没 有, 其 作 用 有 待 探 索) - M! c1 P4 t1 b5 m m7 m
StatusBar: 属 性(Boolean), 是 否 显 示 状 态 栏。
- X/ S& A- K, L0 ` StatusText: 属 性(WideString), 状 态 栏 内 容。
' Z4 c4 h; a& \- O: ^ ToolBar: 属 性(SYSINT), 工 具 栏 中 的 内 容。/ o5 r3 E+ R( e6 g
MenuBar: 属 性(Boolean), 是 否 显 示 菜 单 条。4 U6 N) r% c A
FullScreen: 属 性(Boolean), 是 否 全 屏 显 示。
( U3 l. v' b) p4 X& _ Offline: 属 性(Boolean), 是 否 脱 机 浏 览。
' i* E4 |4 s6 I* `2 Y AddressBar: 属 性(Boolean), 是 否 显 示 地 址 栏。
1 a( P+ p; o/ ^$ I+ Z- G----TWebBrowser 的 常 见 事 件 主 要 有: / W$ W, F& |- Z$ A) G
----OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
1 s" B7 o* g* U5 Y2 `----在 状 态 栏 提 示 信 息 变 化 时 发 生, 参 数 Text 为 当 前 状 态 栏 提 示 信 息, 我 们 可 以 根 据 该 信 息 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务。 3 X% h4 \8 Q& J3 X7 f; a0 b
----OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object; 3 z Z% s3 o7 {# [2 H8 h/ M. v
----在 打 开 页 面 的 进 度 变 化 时 发 生, 参 数 Progress 为 当 前 进 度,ProgressMax 为 总 进 度, 我 们 可 以 根 据 这 两 个 参 数 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务。
4 u2 @/ e* l$ N/ z1 [+ T4 [* w6 o OnCommandStateChange = procedure(Sender:
0 M9 a* a7 @( l7 r# M9 @TObject; Command: Integer; Enable: WordBool) of object; 4 r {' `, A# H& j/ C! x) t
----当 执 行 新 的 命 令 时 发 生,Command 为 命 令 标 识,Enable 为 是 否 允 许 执 行 该 命 令。 3 O0 C# Y+ Y6 k! o/ F
OnTitleChange = procedure(Sender: TObject;8 l; w- n- C+ M/ y% E" y# E$ R% {
const Text: WideString) of object;
* p2 @4 K3 b# J0 x( f1 w$ L----在 页 面 的 标 题 发 生 变 化 时 发 生,Text 为 当 前 标 题。
; g7 N {: s" U3 I$ m; L; ]% b OnPropertyChange = procedure(Sender: TObject;
/ f) v( c$ Z3 e4 J1 n& Q9 [ const Property_: WideString) of object; 8 V3 W9 r9 O1 h T
----在 页 面 的 属 性 发 生 变 化 时 发 生,Property_ 为 属 性 名 称
: G$ C9 Y4 m8 v. O, J' t OnDownloadComplete: TNotifyEvent
- r' j+ t" }$ D% q/ c 在 下 载 页 面 完 成 后 发 生。8 R2 b9 r ?" X( o7 w
OnDownloadBegin: TNotifyEvent' L) k! |& L: J8 e, e# N; a
在 下 载 页 面 开 始 前 发 生。
" z5 t, V& i8 X o/ r9 \: P+ ~三、 两 个 例 子 / i# |0 |. M+ [4 R$ L0 h2 U
----1. 制 作 自 己 的 帮 助 系 统 7 P" P" r9 i+ M. y) o
----我 们 利 用IE 浏 览 器 控 件 为 用 户 制 作 了 一 个 帮 助 系 统, 帮 助 文 件 由 多 个HTML 文 件 组 成, 一 个 主 题 对 应 一 个 HTML 文 件(Topic.HTM), 每 个 主 题 下 的 项 目 对 应HTML 文 件 中 的 一 个 标 签( #Item)。 这 样 在 我 们 的 系 统 中, 就 不 必 再 调 用IE 浏 览 器 或 WinHelp 程 序 来 为 用 户 提 供 帮 助 了。 相 信 大 家 知 道HTML 帮 助 文 件 与 传 统 的HLP 帮 助 文 件 相 比 的 优 势 所 在 吧。
, j2 a( X- m$ X4 A# C& O) D1 V6 m----在 下 面 例 子 中, 演 示 了TWebBrowser(IE4 浏 览 器 控 件) 的Navigate 方 法 的 使 用 方 法。 请 注 意 程 序 中 的 注 释。 下 面 为 程 序 的 主 要 片 段。{ 根 据 主 题 和 项 目 调 用 帮 助 文 件}
, w+ a* P3 a+ p' X- ?4 r9 zprocedure ShowHelp( HelpTopic,HelpItem : String );
$ X- S: R+ W: s; Vvar
0 B% T: ]# a' Y. }5 F TargetFrameName,PostData,Heads,Flags : OleVariant;
( N0 R& w* a$ ~. e" E2 ]& a URL : widestring;( B+ o, i1 p$ e! i
begin, H4 i" g9 u d' O
TargetFrameName := '';7 w0 f8 ~/ \! J, N! ~: h8 b1 o
{ 指 定Frame 的 空 字 符 串 时, 6 V; K1 f3 V U
则 在 当 前Frame 中 打 开 帮 助 文 件}9 Q) o0 L) P) K
PostData := false;{ 不 发 送 数 据}
" C8 _ z( k- K1 Y0 r8 R5 N5 K Heads := '';{Header 信 息 为 空}) C. O& ~- H' |
Flags := 0;{Flags 设 为0}3 w4 W# d2 O) d, S5 O! ~; G9 \9 d
URL := HelpTopic + '.HTM #' +HelpItem;
) g. t& u3 M% V0 z- u* f. M5 ~2 E { 帮 助 信 息 的URL}
, ?2 J' J4 z- [0 I0 } O' t9 m with formHelp.webbrowser do
& |% e. [7 t- p6 j# M$ V9 z { 在 帮 助 窗 口 中 的IE 浏 览 器1 S# q- m2 C. _. B, B" j
控 件 中 显 示 帮 助 信 息}. j* p2 J2 j/ J7 w9 C
begin" J$ P n9 e3 y6 b1 z0 U
navigate(URL,Flags,TargetFrameName,, Y. [; d# Q. h% M
PostData,Heads);{ 显 示 帮 助 信 息}* {# q9 N3 {" E
end; Y; V1 V s0 R
end; ; G! u2 G6 r& C# Z
----2. 显 示 一 个GIF 动 画
/ r3 E! o% K6 g6 R8 F----假 如 你 还 没 有 一 个 适 合 的 动 画 显 示 控 件, 不 妨 试 用 一 下 下 面 的 方 法。
9 S% T; D8 d6 l; R' Iprocedure ShowGIF( GIFFileName : String );5 T9 D9 i$ D+ n, v2 ~ Q6 X9 B
var/ t% n" ~( Y8 v+ J; D
TargetFrameName,PostData,Heads,Flags : OleVariant;
( H% M" w$ J: ?- U" Z URL : widestring;: c6 K" s! P+ J
begin, z, P- h! ]6 e( d8 r
TargetFrameName := '';
7 n4 I( D/ A8 X* i) y: c { 指 定Frame 的 空 字 符 串 时, 4 _* c5 A6 c% h4 U, p8 m" U7 L W/ C
则 在 当 前Frame 中 打 开 动 画 文 件}- Z. D$ P1 M% X9 R3 x
PostData := false;{ 不 发 送 数 据}+ r! ^ D5 n* A9 Y
Heads := '';{Header 信 息 为 空}
: c0 E& x; B ?! [/ Q Flags := 0;{Flags 设 为0}. K' A6 j1 Q; z2 D7 E3 i: Q
URL := GIFFileName;& U3 M- S) I/ `2 L, V
with formGIF.webbrowser do
! J: ]& ]: x: H0 R* i2 D: w: M8 u( d{ 在 指 定 窗 口 中 的IE 浏 览 器 控 件 中 显 示 动 画}( p3 p0 a, k8 n2 T2 j
begin3 a; @- S# [6 d. C
navigate(URL,Flags,TargetFrameName,Post ?# T3 Z% ]5 L8 H" E9 w
Data,Heads);{ 显 示 动 画 文 件}
# i# U3 _( w8 c' F end;" |: w' F5 }/ w
end;
' U& E5 s/ S$ K, e7 `. \---- 以 上 程 序 在PWIN98 +Delphi3.0 下 调 试 通 过。
7 L1 {; ]' W; I* O |