|
+ }+ I U. U& u. r3 H深 圳 市 邮 政 储 汇 局(518040)) \, k9 N5 D: a+ J+ {
王 发 军 ( \2 D6 [, n3 e: C: a
--------------------------------------------------------------------------------
# @8 Q5 t( S( P3 }+ ^一、 在Delphi 中 引 入IE 浏 览 器 控 件 6 ~2 g' F. X. {9 H# y/ S) g+ x! E/ ?+ P
---- 由 于IE 浏 览 器 控 件 需 要 提 供 显 示 功 能 才 能 使 用, 所 以 不 能 在 程 序 中 用CreateOleObject 取 得 一 个 实 例 后 直 接 使 用 其 属 性 和 方 法, 否 则 程 序 在 运 行 时 会 引 起 错 误; 这 时 需 要 用Delphi 中 提 供 的"Import ActiveX Control" 功 能, 操 作 方 法 如 下 所 述。
* a& l5 @2 K% X' y w----在"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, 其 中 有 这 三 个 控 件 的 包 装 细 节, 当 然 含 控 件 的 属 性 和 方 法 说 明 了, 它 可 以 作 为 我 们 使 用 控 件 的 参 考 资 料。
9 `& G8 `; Y& ^- |二、 使 用IE 浏 览 器 控 件
- ^9 ` Z- M( @( w----以TWebBrowser(IE4 浏 览 器 控 件) 为 例 子。
9 X" Y* u4 c& n$ E% \----TWebBrowser 的 常 见 属 性 和 方 法 主 要 有:
4 D% g8 c: M! Q5 v5 K GoBack: 方 法, 后 退 到 上 一 个 页 面。8 X# u0 f6 d( v
GoForward: 方 法, 前 进 到 下 一 个 页 面。) K( `9 x( o- w
GoHome: 方 法, 调 用 默 认 的 主 页 页 面,
, }! w* c0 V9 C1 C 该 页 面 在IE 的 选 项 中 设 定。 p$ ^) ], k4 X9 i3 P0 z5 \
GoSearch: 方 法, 调 用 默 认 的 搜 索 页 面, ' Q$ v1 S1 t/ n P& V
该 页 面 在IE 的 选 项 中 设 定。
( Y/ i0 x$ R O( k---- Navigate(const URL: WideString; var Flags, TargetFrameName, PostData, Headers: OleVariant):方 法, 调 用 指 定 页 面, 具 体 参 数 如 下: , R* Y4 [2 `0 j8 v U
URL: 指 定 页 面 的URL。
( m# |3 H# F+ s. @4 J& h Flags:Word 类 型, 作 用 还 不 清 楚,
- U) {. ~; u# E& H; p0 Y 可 设 为0。 W l2 g1 a e9 J! ] o
---- TargetFrameName:WideString, 打 开 页 面 所 在 的Frame, 为 空 字 符 串 时 在 当 前 的Frame 中 打 开;TargetFrameName 指 定 的 Frame 存 在 时 在Frame 中 打 开; ; k: {( @2 ?4 H( ]" Y1 N
----TargetFrameName 指 定 的Frame 不 存 在 时 则 新 建 一 个 窗 口 打 开, 此 时 就 相 当 于 调 用 外 部 的IE 浏 览 器 了。
. H, g7 z0 x, E+ Y* J: f2 i PostData:boolean, 是 否 允 许 发 送 数 据。) J+ O- T, V0 H4 Y8 s& {1 x4 g
Headers:WideString,
- H% |' L2 J7 A 要 发 送 的URL 请 求 的 头 部 数 据。
% R: E: `1 H. p S; g Refresh: 方 法, 刷 新 当 前 页 面。/ p6 `! T5 R1 Q ^
Stop: 方 法, 停 止 调 用 或 打 开 当 前 页 面。( V, |5 a. M4 |. J: T& K# _+ e4 ^& h
LocationName: 属 性(WideString), 当 前 位 置 的 名 称。
8 O* m+ |) g2 I7 S LocationURL: 属 性(WideString), 当 前 位 置 的URL。$ b1 c4 h) k4 V- w2 s% m
Busy: 属 性(Boolean), 是 否 正 忙。
* j$ P, `6 f B4 j Visible: 属 性(Boolean), 浏 览 器 窗 口 是 否 可 见。 * ]* o1 G Z" r7 @/ J' q2 W9 e
---- ( 以 下 属 性 为 在TWebBrowser 新 增, TWebBrowser_V1 中 没 有, 其 作 用 有 待 探 索)
+ d; E& w/ V9 A# Q8 B StatusBar: 属 性(Boolean), 是 否 显 示 状 态 栏。
3 n4 c* M1 U& k$ P# Y2 O8 M StatusText: 属 性(WideString), 状 态 栏 内 容。
5 p2 S, |( N& w8 t ToolBar: 属 性(SYSINT), 工 具 栏 中 的 内 容。
. k: K" z# `9 D& e- b2 g MenuBar: 属 性(Boolean), 是 否 显 示 菜 单 条。
E0 C9 S6 ^' D" i FullScreen: 属 性(Boolean), 是 否 全 屏 显 示。9 l3 ^, s4 R: Z# [. t& {3 X6 L- H2 h
Offline: 属 性(Boolean), 是 否 脱 机 浏 览。) b4 j: Q# {$ k3 @$ Q7 i
AddressBar: 属 性(Boolean), 是 否 显 示 地 址 栏。 % I9 i0 }7 S: c+ `, ~% C/ s) L
----TWebBrowser 的 常 见 事 件 主 要 有:
" y4 a6 k3 ~. t3 T----OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
; d" S e" \# N/ P) {' F1 |----在 状 态 栏 提 示 信 息 变 化 时 发 生, 参 数 Text 为 当 前 状 态 栏 提 示 信 息, 我 们 可 以 根 据 该 信 息 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务。 2 c/ k0 F# S4 B/ i% G& p) O& w7 c
----OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object; : V/ @9 V" J' Q" V6 k3 Q `$ [
----在 打 开 页 面 的 进 度 变 化 时 发 生, 参 数 Progress 为 当 前 进 度,ProgressMax 为 总 进 度, 我 们 可 以 根 据 这 两 个 参 数 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务。 * R( A' w8 V. P H: c8 |( {: E
OnCommandStateChange = procedure(Sender:
/ K9 h3 ^% n" S, k* |3 R2 XTObject; Command: Integer; Enable: WordBool) of object; + q) D' e6 t' N
----当 执 行 新 的 命 令 时 发 生,Command 为 命 令 标 识,Enable 为 是 否 允 许 执 行 该 命 令。
1 v$ h% i3 {5 {& L. T OnTitleChange = procedure(Sender: TObject;
7 f6 t+ l d O5 z4 K3 O const Text: WideString) of object; ) m1 ~& U8 z% m) l, A: V ?
----在 页 面 的 标 题 发 生 变 化 时 发 生,Text 为 当 前 标 题。 + Q- m1 v* M9 f% R1 M
OnPropertyChange = procedure(Sender: TObject;
% {& h4 {$ b' i, w; p const Property_: WideString) of object; 7 a: w& Z7 U3 X+ A& q
----在 页 面 的 属 性 发 生 变 化 时 发 生,Property_ 为 属 性 名 称 7 }( a/ \8 g* r
OnDownloadComplete: TNotifyEvent
- H: l. ~4 D9 [2 T 在 下 载 页 面 完 成 后 发 生。
9 \/ R4 ~, @$ N* q0 q5 U" W9 { OnDownloadBegin: TNotifyEvent# [. K1 a2 n# `+ P" E+ V, S
在 下 载 页 面 开 始 前 发 生。 : z/ z% k+ ]) `
三、 两 个 例 子
" k7 V" C* M$ T4 d* k. k6 S' r! y----1. 制 作 自 己 的 帮 助 系 统
+ [, |% n" g a: J E, `' U5 U( S9 P----我 们 利 用IE 浏 览 器 控 件 为 用 户 制 作 了 一 个 帮 助 系 统, 帮 助 文 件 由 多 个HTML 文 件 组 成, 一 个 主 题 对 应 一 个 HTML 文 件(Topic.HTM), 每 个 主 题 下 的 项 目 对 应HTML 文 件 中 的 一 个 标 签( #Item)。 这 样 在 我 们 的 系 统 中, 就 不 必 再 调 用IE 浏 览 器 或 WinHelp 程 序 来 为 用 户 提 供 帮 助 了。 相 信 大 家 知 道HTML 帮 助 文 件 与 传 统 的HLP 帮 助 文 件 相 比 的 优 势 所 在 吧。
1 a. O% J3 j' A* ^----在 下 面 例 子 中, 演 示 了TWebBrowser(IE4 浏 览 器 控 件) 的Navigate 方 法 的 使 用 方 法。 请 注 意 程 序 中 的 注 释。 下 面 为 程 序 的 主 要 片 段。{ 根 据 主 题 和 项 目 调 用 帮 助 文 件} . x. j( ]- f& s
procedure ShowHelp( HelpTopic,HelpItem : String );
; D6 g! M. C! K2 U: lvar
7 z9 x8 K4 u/ j! r TargetFrameName,PostData,Heads,Flags : OleVariant;& i @# n6 u( {; {+ h' P, g
URL : widestring;
& w, J9 j# [9 F' N8 Rbegin
7 J. ~6 B. z" q+ k' o' v TargetFrameName := '';
! l, {- M# O+ E1 {7 @ { 指 定Frame 的 空 字 符 串 时,
9 W8 y5 Y, J) h) h 则 在 当 前Frame 中 打 开 帮 助 文 件}9 z% n% [3 w, p- B' j& Y0 L
PostData := false;{ 不 发 送 数 据}9 N# k& n6 d+ q; ?' F
Heads := '';{Header 信 息 为 空}4 U0 q. `" Q& n8 y+ I
Flags := 0;{Flags 设 为0}
5 x! b: |" h; ?6 X URL := HelpTopic + '.HTM #' +HelpItem;; `' I/ t, L# [; \# J$ Q
{ 帮 助 信 息 的URL}
. R1 w: P3 V, \6 t7 ^ with formHelp.webbrowser do
8 {0 @/ `& P) p5 a { 在 帮 助 窗 口 中 的IE 浏 览 器8 n; b8 S" ]1 i6 b M+ w
控 件 中 显 示 帮 助 信 息}
% Q7 v0 W, c, }9 V" f6 O begin
0 q X5 V7 [8 U navigate(URL,Flags,TargetFrameName,
( ]: a9 { L7 o: b: J0 w" E- v$ b& ZPostData,Heads);{ 显 示 帮 助 信 息}0 @1 v! g" e6 p3 m6 ?
end;
' j5 ~( z/ X @3 Eend; ' |0 q6 C6 D7 ~4 A
----2. 显 示 一 个GIF 动 画 3 ^& u& S b8 [" L U, z7 F
----假 如 你 还 没 有 一 个 适 合 的 动 画 显 示 控 件, 不 妨 试 用 一 下 下 面 的 方 法。
2 T' M: ~0 m$ H) d" a6 l# v+ L2 U ^ hprocedure ShowGIF( GIFFileName : String );
5 J$ A0 w( \# `" v- Avar. K9 \+ b9 K% z# `' Y9 ^7 T# O
TargetFrameName,PostData,Heads,Flags : OleVariant;8 R* n9 l2 N+ @% Q) h% \
URL : widestring;
. L8 p" }7 {* K# u N6 w8 G6 G$ L: rbegin
- N5 h/ D/ R4 e1 M0 U0 d9 f TargetFrameName := '';
/ r0 J( [3 Q( Z8 J" W+ ~ { 指 定Frame 的 空 字 符 串 时, 0 }4 R1 i. q3 v/ T+ `2 f
则 在 当 前Frame 中 打 开 动 画 文 件}0 z, S ]: |8 }/ J% h S. J S
PostData := false;{ 不 发 送 数 据}
! b+ ^4 h0 r; w$ D# y, } Heads := '';{Header 信 息 为 空}. H9 ~2 n3 f {" r6 x
Flags := 0;{Flags 设 为0}
; F& T1 p5 C4 H' g( Q, B7 {) l6 S URL := GIFFileName;/ F% P8 w; k3 f7 ^- f
with formGIF.webbrowser do
9 w' M( o, e! a' }; r+ j# s9 c{ 在 指 定 窗 口 中 的IE 浏 览 器 控 件 中 显 示 动 画}
+ u' g7 l0 G; ?: X& b2 a, ^ begin$ r6 J& L5 _8 S
navigate(URL,Flags,TargetFrameName,Post ?* |4 T7 i5 p( |
Data,Heads);{ 显 示 动 画 文 件}
! G6 u7 L0 B+ b9 ?! q$ ~: Q; | end;. }' q0 ^' O6 t+ K& w; P( h
end; & {( Q3 Z t- a1 ?% p: {
---- 以 上 程 序 在PWIN98 +Delphi3.0 下 调 试 通 过。 ( x( q( F5 u) \$ \* {" u
|