|
, l0 n2 {, l, g5 X5 [* d, I( _深 圳 市 邮 政 储 汇 局(518040)7 \$ q( y5 N. X* W+ ^& {# n$ @
王 发 军
\% u3 x2 ^4 R6 \% P! H-------------------------------------------------------------------------------- 7 r. W6 v9 S' d1 K9 R3 V: i
一、 在Delphi 中 引 入IE 浏 览 器 控 件 + F" [: M; L. F$ r( W
---- 由 于IE 浏 览 器 控 件 需 要 提 供 显 示 功 能 才 能 使 用, 所 以 不 能 在 程 序 中 用CreateOleObject 取 得 一 个 实 例 后 直 接 使 用 其 属 性 和 方 法, 否 则 程 序 在 运 行 时 会 引 起 错 误; 这 时 需 要 用Delphi 中 提 供 的"Import ActiveX Control" 功 能, 操 作 方 法 如 下 所 述。 ( z' [& o2 }# @" D$ e5 B+ D! b1 S
----在"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, 其 中 有 这 三 个 控 件 的 包 装 细 节, 当 然 含 控 件 的 属 性 和 方 法 说 明 了, 它 可 以 作 为 我 们 使 用 控 件 的 参 考 资 料。 6 J- d7 h4 x4 N( m5 G R& s
二、 使 用IE 浏 览 器 控 件
6 f- F1 n5 V6 e# p; j) w----以TWebBrowser(IE4 浏 览 器 控 件) 为 例 子。 ! c8 f" g$ x3 f( q2 g* [
----TWebBrowser 的 常 见 属 性 和 方 法 主 要 有:
# [1 W( _! \5 ]# I# Z GoBack: 方 法, 后 退 到 上 一 个 页 面。
2 w, q' R& s3 ~) b. z GoForward: 方 法, 前 进 到 下 一 个 页 面。& @1 m7 s9 L2 a. l" z) i7 z) A
GoHome: 方 法, 调 用 默 认 的 主 页 页 面,# r7 m6 w! i' Q V" i5 R
该 页 面 在IE 的 选 项 中 设 定。" }# G7 Z' N T
GoSearch: 方 法, 调 用 默 认 的 搜 索 页 面,
% ]5 W$ F. m9 V+ w 该 页 面 在IE 的 选 项 中 设 定。
* x2 m: q6 c0 Y- {# Z. ~---- Navigate(const URL: WideString; var Flags, TargetFrameName, PostData, Headers: OleVariant):方 法, 调 用 指 定 页 面, 具 体 参 数 如 下:
% q( |# O7 \) n7 q8 h+ `, `' X URL: 指 定 页 面 的URL。
, w s( s( E% `5 K Flags:Word 类 型, 作 用 还 不 清 楚,
- v% t6 u4 L* U$ |1 L 可 设 为0。 + y$ K7 r$ C# o% k3 K
---- TargetFrameName:WideString, 打 开 页 面 所 在 的Frame, 为 空 字 符 串 时 在 当 前 的Frame 中 打 开;TargetFrameName 指 定 的 Frame 存 在 时 在Frame 中 打 开; - x, C6 M! e+ L1 m% A0 @: M
----TargetFrameName 指 定 的Frame 不 存 在 时 则 新 建 一 个 窗 口 打 开, 此 时 就 相 当 于 调 用 外 部 的IE 浏 览 器 了。 2 v- a6 w8 u+ [& z
PostData:boolean, 是 否 允 许 发 送 数 据。4 @3 I% _- o0 u% P* I
Headers:WideString,) e: J+ k& F6 i: I
要 发 送 的URL 请 求 的 头 部 数 据。
, i) b: z$ m6 i) y2 U9 l1 P1 F Refresh: 方 法, 刷 新 当 前 页 面。% |4 S; F) I3 I# g Q1 N9 D9 C
Stop: 方 法, 停 止 调 用 或 打 开 当 前 页 面。
$ D: `) u( Z" P LocationName: 属 性(WideString), 当 前 位 置 的 名 称。
. d" v, r& u' n8 V LocationURL: 属 性(WideString), 当 前 位 置 的URL。; `) ]# {5 _3 `( [+ i
Busy: 属 性(Boolean), 是 否 正 忙。
* f# f: d Z5 ~ h Visible: 属 性(Boolean), 浏 览 器 窗 口 是 否 可 见。 ) w4 n5 g$ Q ]; ~+ D5 N+ q
---- ( 以 下 属 性 为 在TWebBrowser 新 增, TWebBrowser_V1 中 没 有, 其 作 用 有 待 探 索) : Y) u; g* `$ p: ?
StatusBar: 属 性(Boolean), 是 否 显 示 状 态 栏。
# R2 L1 X( _5 `3 w! @ StatusText: 属 性(WideString), 状 态 栏 内 容。
% S5 q( I' a; V2 P$ j$ [ ToolBar: 属 性(SYSINT), 工 具 栏 中 的 内 容。* V+ e, }# F6 O0 i- R- n" I6 \' ^/ r: D
MenuBar: 属 性(Boolean), 是 否 显 示 菜 单 条。& o# N1 n% b8 F, y8 A# {
FullScreen: 属 性(Boolean), 是 否 全 屏 显 示。
: V1 p6 e1 B7 g M Offline: 属 性(Boolean), 是 否 脱 机 浏 览。7 Q6 {( N! C' T! E6 `$ Y. z3 h
AddressBar: 属 性(Boolean), 是 否 显 示 地 址 栏。
! g( |) f% M" z: O' x/ [: z2 ]5 Q----TWebBrowser 的 常 见 事 件 主 要 有:
% t4 t% G! S1 i7 S8 K----OnStatusTextChange = procedure(Sender: TObject; const Text: WideString) of object;
" W- n) k/ X( d2 G5 w4 [----在 状 态 栏 提 示 信 息 变 化 时 发 生, 参 数 Text 为 当 前 状 态 栏 提 示 信 息, 我 们 可 以 根 据 该 信 息 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务。
! F0 [4 V5 @* ^----OnProgressChange = procedure(Sender: TObject; Progress, ProgressMax: Integer) of object; & h- G1 w# Y( j9 e# R
----在 打 开 页 面 的 进 度 变 化 时 发 生, 参 数 Progress 为 当 前 进 度,ProgressMax 为 总 进 度, 我 们 可 以 根 据 这 两 个 参 数 来 更 新 我 们 自 己 的 状 态 栏 提 示 信 息 或 处 理 其 它 的 事 务。
* l: r8 w2 S; G% g+ |7 ^* g3 y OnCommandStateChange = procedure(Sender: ( {- {! o+ W! y- G% O* A
TObject; Command: Integer; Enable: WordBool) of object;
$ F; F! [2 o' j----当 执 行 新 的 命 令 时 发 生,Command 为 命 令 标 识,Enable 为 是 否 允 许 执 行 该 命 令。 1 v0 r/ i. ^/ G9 f
OnTitleChange = procedure(Sender: TObject;% c( t# d* L' p: }, @; S; e
const Text: WideString) of object;
* z& X6 M+ e8 }8 U----在 页 面 的 标 题 发 生 变 化 时 发 生,Text 为 当 前 标 题。 & M4 M* G* s. t8 b* P
OnPropertyChange = procedure(Sender: TObject;: ?1 D, h8 l) w1 ]$ e
const Property_: WideString) of object;
9 o5 A; s9 d d! [7 Q----在 页 面 的 属 性 发 生 变 化 时 发 生,Property_ 为 属 性 名 称 % i7 _" ]& N8 B K/ c$ y( X% w
OnDownloadComplete: TNotifyEvent. y0 H9 Z q- d/ G) X
在 下 载 页 面 完 成 后 发 生。3 h4 S0 c- ?7 C9 P
OnDownloadBegin: TNotifyEvent
" e1 Z5 w4 ?! i 在 下 载 页 面 开 始 前 发 生。
$ G; [3 Z# X* q' T三、 两 个 例 子
' C/ U4 f7 r; q" `! P5 f+ g----1. 制 作 自 己 的 帮 助 系 统
; z2 }$ |6 @3 z) X3 ]+ l" f' u----我 们 利 用IE 浏 览 器 控 件 为 用 户 制 作 了 一 个 帮 助 系 统, 帮 助 文 件 由 多 个HTML 文 件 组 成, 一 个 主 题 对 应 一 个 HTML 文 件(Topic.HTM), 每 个 主 题 下 的 项 目 对 应HTML 文 件 中 的 一 个 标 签( #Item)。 这 样 在 我 们 的 系 统 中, 就 不 必 再 调 用IE 浏 览 器 或 WinHelp 程 序 来 为 用 户 提 供 帮 助 了。 相 信 大 家 知 道HTML 帮 助 文 件 与 传 统 的HLP 帮 助 文 件 相 比 的 优 势 所 在 吧。
4 i. z& ^) r/ `----在 下 面 例 子 中, 演 示 了TWebBrowser(IE4 浏 览 器 控 件) 的Navigate 方 法 的 使 用 方 法。 请 注 意 程 序 中 的 注 释。 下 面 为 程 序 的 主 要 片 段。{ 根 据 主 题 和 项 目 调 用 帮 助 文 件} / f/ x& t- _0 {! D$ K
procedure ShowHelp( HelpTopic,HelpItem : String );, o% q! }/ \+ Q" z2 s
var8 g) D; o Y, C7 [% `
TargetFrameName,PostData,Heads,Flags : OleVariant;7 j% B9 I6 O7 m) ~$ s3 l! }: k- V
URL : widestring;$ A) p$ x) T: P' a- B9 c
begin
/ m; `7 U+ c, J0 i TargetFrameName := '';
e( z0 y2 n. R& r3 I9 Z { 指 定Frame 的 空 字 符 串 时,
1 E+ @9 F, `) I( x! ^) K f5 U 则 在 当 前Frame 中 打 开 帮 助 文 件}- c U! ^# ~ A- P, r: x
PostData := false;{ 不 发 送 数 据}' h3 ]4 i4 _. o0 c ]
Heads := '';{Header 信 息 为 空}
0 e) R! Q, d F Flags := 0;{Flags 设 为0}
% O3 g' B. q. \" q! I( M+ \ URL := HelpTopic + '.HTM #' +HelpItem;1 ?. q M+ G# o: Q( d4 @
{ 帮 助 信 息 的URL}
n( @* ^8 J: \7 c& ^# y9 L9 C0 o with formHelp.webbrowser do
7 q( B: |- S' V* r( r% O5 w { 在 帮 助 窗 口 中 的IE 浏 览 器
2 T7 |! K6 u/ ]5 n- P 控 件 中 显 示 帮 助 信 息}; x; Q6 Q6 P/ M0 g0 i/ U, ~/ v
begin
3 |& h" I8 \. }& z navigate(URL,Flags,TargetFrameName,1 w* B% ` J4 ]) S
PostData,Heads);{ 显 示 帮 助 信 息}
6 v# ]! L n. _) Q end;6 ?) w9 l7 R# m: V) S3 m6 {
end;
. e" Y3 W" R7 R+ T n. k3 c' Q+ V) d----2. 显 示 一 个GIF 动 画
0 u5 b1 p; {1 \3 H4 e----假 如 你 还 没 有 一 个 适 合 的 动 画 显 示 控 件, 不 妨 试 用 一 下 下 面 的 方 法。 ( x% M6 R( ~$ y$ L+ n% u" i
procedure ShowGIF( GIFFileName : String );
+ Q: Q L& e' t$ kvar
; }& U2 E0 l* S# z TargetFrameName,PostData,Heads,Flags : OleVariant;1 V7 d- ?: B1 s) N3 V( `
URL : widestring;3 U& m, e [2 H3 i" F
begin
2 g1 ` P& t2 e5 H% N& N TargetFrameName := '';' s1 r! E# b1 A3 x- N
{ 指 定Frame 的 空 字 符 串 时,
; O- l4 @: p5 T2 L! U 则 在 当 前Frame 中 打 开 动 画 文 件}
0 U9 p, {" @8 G4 k PostData := false;{ 不 发 送 数 据}. d; f5 A) ~+ R: R' s
Heads := '';{Header 信 息 为 空}: \9 t- ]% {, D1 `& b
Flags := 0;{Flags 设 为0}
: a, z( R: [: B7 A+ J URL := GIFFileName;1 _& v$ p; I" q% z
with formGIF.webbrowser do, m: M n! t! ^8 V: @/ }% b
{ 在 指 定 窗 口 中 的IE 浏 览 器 控 件 中 显 示 动 画}" }8 c2 z- Y) C+ Y8 m% c! p; q/ B
begin% k) J2 V$ \5 n' h% B2 B* w9 ?9 g
navigate(URL,Flags,TargetFrameName,Post ?
& R# t( Y9 r0 {% jData,Heads);{ 显 示 动 画 文 件}
; u4 w9 M! N, k( A8 K end;
0 p* x/ g( Z5 q( aend; % P1 d0 h+ Z: D* ]
---- 以 上 程 序 在PWIN98 +Delphi3.0 下 调 试 通 过。 % b9 c% q$ \# X
|