|
* {/ @* v; C4 ?9 Z# [1 M, |2 ]+ s深 圳 市 邮 政 储 汇 局(518040): Z7 Y8 }2 ]) v! x% M
王 发 军 1 z# M4 J8 _" f+ f
-------------------------------------------------------------------------------- + |/ k" u2 h; d$ D
一、 在Delphi 中 引 入IE 浏 览 器 控 件
# \' T1 V2 _: }& ^4 s' x2 V( S7 o---- 由 于IE 浏 览 器 控 件 需 要 提 供 显 示 功 能 才 能 使 用, 所 以 不 能 在 程 序 中 用CreateOleObject 取 得 一 个 实 例 后 直 接 使 用 其 属 性 和 方 法, 否 则 程 序 在 运 行 时 会 引 起 错 误; 这 时 需 要 用Delphi 中 提 供 的"Import ActiveX Control" 功 能, 操 作 方 法 如 下 所 述。
: o# ~3 I; I+ m6 r0 f----在"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, 其 中 有 这 三 个 控 件 的 包 装 细 节, 当 然 含 控 件 的 属 性 和 方 法 说 明 了, 它 可 以 作 为 我 们 使 用 控 件 的 参 考 资 料。
( _ l: [8 ?3 c* s8 l二、 使 用IE 浏 览 器 控 件 ( `# O8 h9 \3 w9 W6 w
----以TWebBrowser(IE4 浏 览 器 控 件) 为 例 子。
: N* \7 s/ ~7 }4 `----TWebBrowser 的 常 见 属 性 和 方 法 主 要 有:
3 ^0 J0 L$ b, r! c- S+ h# ^ GoBack: 方 法, 后 退 到 上 一 个 页 面。3 A# {$ T* G; g- v( e e& R G
GoForward: 方 法, 前 进 到 下 一 个 页 面。- [ x7 m: f+ t/ S2 q7 Z
GoHome: 方 法, 调 用 默 认 的 主 页 页 面,
) S( q- x0 w5 ` 该 页 面 在IE 的 选 项 中 设 定。
& M" \9 ]! r6 i1 I( P7 B& o GoSearch: 方 法, 调 用 默 认 的 搜 索 页 面, - r( `+ l, H7 }0 g7 a1 L8 h9 i2 Z
该 页 面 在IE 的 选 项 中 设 定。 + z7 O6 ?) K# Q5 o0 K9 [3 E5 g
---- Navigate(const URL: WideString; var Flags, TargetFrameName, PostData, Headers: OleVariant):方 法, 调 用 指 定 页 面, 具 体 参 数 如 下:
% L! i5 B3 b! e& W: E' I URL: 指 定 页 面 的URL。, Z3 b: R. w/ c* O- s% J0 n
Flags:Word 类 型, 作 用 还 不 清 楚,
3 v2 C; i7 b$ _ 可 设 为0。
( ]& E. V' ?/ X1 U; a0 o---- TargetFrameName:WideString, 打 开 页 面 所 在 的Frame, 为 空 字 符 串 时 在 当 前 的Frame 中 打 开;TargetFrameName 指 定 的 Frame 存 在 时 在Frame 中 打 开;
5 _6 C. j- s. W" u: r----TargetFrameName 指 定 的Frame 不 存 在 时 则 新 建 一 个 窗 口 打 开, 此 时 就 相 当 于 调 用 外 部 的IE 浏 览 器 了。 % T8 H3 Q0 R5 k1 u" R( L
PostData:boolean, 是 否 允 许 发 送 数 据。
0 q% |& d3 V* z Headers:WideString,0 N% q7 j- S& }9 [8 j2 R
要 发 送 的URL 请 求 的 头 部 数 据。$ L! ~8 _1 U# l. a
Refresh: 方 法, 刷 新 当 前 页 面。
8 T6 u! k% F( x* y7 x Stop: 方 法, 停 止 调 用 或 打 开 当 前 页 面。
7 h2 p. N5 N: t g d- i4 @! Y- s5 d LocationName: 属 性(WideString), 当 前 位 置 的 名 称。/ `; n' D( @( o; X" o3 f
LocationURL: 属 性(WideString), 当 前 位 置 的URL。. ?) S/ X; z! B M. h" A* ]
Busy: 属 性(Boolean), 是 否 正 忙。
: A1 n8 T) G# [, B$ @* J' b ^ Visible: 属 性(Boolean), 浏 览 器 窗 口 是 否 可 见。
; T- E9 R* K3 E/ H4 O---- ( 以 下 属 性 为 在TWebBrowser 新 增, TWebBrowser_V1 中 没 有, 其 作 用 有 待 探 索)
: f$ F) _. ^+ Z4 F0 O4 Z$ ^) g3 Q StatusBar: 属 性(Boolean), 是 否 显 示 状 态 栏。6 T; q- X% Q# }" ^' i# B1 M
StatusText: 属 性(WideString), 状 态 栏 内 容。( f2 [0 L5 | v+ T
ToolBar: 属 性(SYSINT), 工 具 栏 中 的 内 容。
! A9 ^8 y- s5 N* F! W MenuBar: 属 性(Boolean), 是 否 显 示 菜 单 条。
# Z0 U, p' Z9 U; v3 q: d FullScreen: 属 性(Boolean), 是 否 全 屏 显 示。0 K& c, ?7 G. {
Offline: 属 性(Boolean), 是 否 脱 机 浏 览。( X. J- Y( r3 @
AddressBar: 属 性(Boolean), 是 否 显 示 地 址 栏。 4 ~/ C1 }0 w6 @6 Z0 f2 T9 ~7 p1 f
----TWebBrowser 的 常 见 事 件 主 要 有:
; q7 k6 m% W0 \- k: ^----OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
! W7 V% ]4 H6 A; [7 A----在 状 态 栏 提 示 信 息 变 化 时 发 生, 参 数 Text 为 当 前 状 态 栏 提 示 信 息, 我 们 可 以 根 据 该 信 息 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务。 + z% D. ]: }6 @* C% I! ~" Q. i: u
----OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object; 1 s, r3 P; M# I; n, i6 J3 J
----在 打 开 页 面 的 进 度 变 化 时 发 生, 参 数 Progress 为 当 前 进 度,ProgressMax 为 总 进 度, 我 们 可 以 根 据 这 两 个 参 数 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务。 / A& _& \# d/ C
OnCommandStateChange = procedure(Sender:
0 |) Y7 ]! y7 P0 m$ O8 ]8 yTObject; Command: Integer; Enable: WordBool) of object;
$ p% I/ |" P! v/ }+ Y----当 执 行 新 的 命 令 时 发 生,Command 为 命 令 标 识,Enable 为 是 否 允 许 执 行 该 命 令。 # O5 G. K% ?5 G V" b8 d
OnTitleChange = procedure(Sender: TObject;
; ?( S% z% Z2 y2 ~ const Text: WideString) of object; J7 X3 W. {' j' T+ i4 [7 s
----在 页 面 的 标 题 发 生 变 化 时 发 生,Text 为 当 前 标 题。 ( }. [! I- }% a( V# s# Q
OnPropertyChange = procedure(Sender: TObject;
$ N* s) p6 Q. W) y: W7 [% H! `$ H const Property_: WideString) of object; 1 K- F- [6 |8 ?
----在 页 面 的 属 性 发 生 变 化 时 发 生,Property_ 为 属 性 名 称 ; d1 a/ }5 l/ V. R5 u8 m8 s
OnDownloadComplete: TNotifyEvent) r `" Y) L8 {. j
在 下 载 页 面 完 成 后 发 生。* d l/ {8 H }2 C- [& J& |4 l
OnDownloadBegin: TNotifyEvent3 F4 g" i( |6 [. ?" [2 f* A
在 下 载 页 面 开 始 前 发 生。
* r- J$ e" N) T# k三、 两 个 例 子
' {5 [" U* A( c0 ?----1. 制 作 自 己 的 帮 助 系 统 : c, f( Q8 T6 s" V9 Y
----我 们 利 用IE 浏 览 器 控 件 为 用 户 制 作 了 一 个 帮 助 系 统, 帮 助 文 件 由 多 个HTML 文 件 组 成, 一 个 主 题 对 应 一 个 HTML 文 件(Topic.HTM), 每 个 主 题 下 的 项 目 对 应HTML 文 件 中 的 一 个 标 签( #Item)。 这 样 在 我 们 的 系 统 中, 就 不 必 再 调 用IE 浏 览 器 或 WinHelp 程 序 来 为 用 户 提 供 帮 助 了。 相 信 大 家 知 道HTML 帮 助 文 件 与 传 统 的HLP 帮 助 文 件 相 比 的 优 势 所 在 吧。
( V5 s6 x6 n1 y3 a----在 下 面 例 子 中, 演 示 了TWebBrowser(IE4 浏 览 器 控 件) 的Navigate 方 法 的 使 用 方 法。 请 注 意 程 序 中 的 注 释。 下 面 为 程 序 的 主 要 片 段。{ 根 据 主 题 和 项 目 调 用 帮 助 文 件}
9 B }& U: M+ J! H. p7 b+ C$ mprocedure ShowHelp( HelpTopic,HelpItem : String );
/ h4 T! i, ]5 D+ C; j, n6 \0 Rvar7 h- ]2 \( c2 A
TargetFrameName,PostData,Heads,Flags : OleVariant;1 Q! @3 n! P! c$ ?# X" F
URL : widestring;. l3 h) l; e0 L4 L5 Q* L$ A& ]
begin
8 J# d X/ j g2 K% _ TargetFrameName := '';
! x- L) m* O5 |1 g* c1 u& o4 g" @ { 指 定Frame 的 空 字 符 串 时, 8 s+ c$ r5 x, M) P3 y2 _
则 在 当 前Frame 中 打 开 帮 助 文 件}
- V4 E9 R+ N B! X0 D, L# i) r PostData := false;{ 不 发 送 数 据}
3 }) L. U$ ^7 [9 r3 Q' p/ G Heads := '';{Header 信 息 为 空}0 P& m3 F. @" e; f3 f+ V/ R
Flags := 0;{Flags 设 为0}
; ~' O8 @+ `5 f q/ S( r- u! \ URL := HelpTopic + '.HTM #' +HelpItem;8 ~. M4 S- d, w: `
{ 帮 助 信 息 的URL}0 q7 {1 U6 s7 l2 E! l$ n: a
with formHelp.webbrowser do
: c5 u A5 [8 C0 l { 在 帮 助 窗 口 中 的IE 浏 览 器
% m* |6 J6 Q8 _* p( P- [+ | 控 件 中 显 示 帮 助 信 息}
* v* p9 H& l/ B" Z! _) B8 D) H1 ? begin
5 _2 a4 ~/ i; s! B7 C# F: ` navigate(URL,Flags,TargetFrameName, m; Z6 J$ d. _5 A8 n, y+ j1 i; V; D' U
PostData,Heads);{ 显 示 帮 助 信 息}: e' M. V1 G) J
end;
( ~8 K( D% }9 Z: o8 [1 K8 jend; ; h# n# x( t: i6 j% ]
----2. 显 示 一 个GIF 动 画
1 p/ }. m7 k. }----假 如 你 还 没 有 一 个 适 合 的 动 画 显 示 控 件, 不 妨 试 用 一 下 下 面 的 方 法。 * t4 c3 h+ L: g
procedure ShowGIF( GIFFileName : String );
: x8 q L0 u \" G3 Evar/ f# T0 @, J2 n5 @* k
TargetFrameName,PostData,Heads,Flags : OleVariant;* n! d5 Y' g+ ]0 j5 H. K
URL : widestring;! W3 z G+ Y" S3 ?* W3 |3 W. L
begin, w; w- M" y) }+ Q" |! V$ h* O
TargetFrameName := '';
) y7 W/ Y) n, s" k. ^, X { 指 定Frame 的 空 字 符 串 时, ; S3 W- B$ Q5 k2 n- c, t$ F
则 在 当 前Frame 中 打 开 动 画 文 件}; @* X, G* g& \) V- t
PostData := false;{ 不 发 送 数 据}9 I* h2 s* T! r9 E: t5 |
Heads := '';{Header 信 息 为 空}
* D2 C: p% [* g) h8 d* J# O& ^ Flags := 0;{Flags 设 为0}% ^+ [& q- g# e9 f, f6 ?
URL := GIFFileName;
8 d1 P' u+ V) I7 Q7 @' C2 s9 f1 O7 @ with formGIF.webbrowser do. j$ L+ q) @. a# ^$ R7 S
{ 在 指 定 窗 口 中 的IE 浏 览 器 控 件 中 显 示 动 画}
B* L% F( w+ {$ @8 e V begin
/ w. O/ b* \$ A* ] navigate(URL,Flags,TargetFrameName,Post ?) N& V( q/ A. d( h6 a, T- w
Data,Heads);{ 显 示 动 画 文 件}
6 W3 V5 L' Y8 t2 \: j9 A$ e$ u; l0 D% Y end;! U. X" o2 ?0 U
end; # F+ a" J9 ]4 h7 o
---- 以 上 程 序 在PWIN98 +Delphi3.0 下 调 试 通 过。
$ n% ?2 K- V, r, _ |