查看: 3393|回复: 0

在程序中嵌入浏览器

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2005-1-26 12:57 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

Q; P% a0 c2 p1 J. o" b" @; }2 L 深圳市邮政储汇局(518040)2 E5 _$ ]6 R, U+ i; w2 ^2 o( w2 V 王发军

--------------------------------------------------------------------------------

一、在Delphi 中引入IE 浏览器控件 3 O0 x! A6 v( m- ~ `8 m ---- 由于IE 浏览器控件需要提供显示功能才能使用，所以不能在程序中用CreateOleObject 取得一个实例后直接使用其属性和方法，否则程序在运行时会引起错误；这时需要用Delphi 中提供的"Import ActiveX Control" 功能，操作方法如下所述。

----在"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，其中有这三个控件的包装细节，当然含控件的属性和方法说明了，它可以作为我们使用控件的参考资料。

二、使用IE 浏览器控件 # Q. L/ |- G+ ]) o7 T; M1 W4 e# c ----以TWebBrowser(IE4 浏览器控件) 为例子。

----TWebBrowser 的常见属性和方法主要有：

GoBack：方法，后退到上一个页面。 s! K0 e2 t+ U7 q3 e ~! N GoForward：方法，前进到下一个页面。/ E: X3 a; B3 @% T# A. k GoHome：方法，调用默认的主页页面，) o3 k/ k' i- @" G2 M 该页面在IE 的选项中设定。) U* @$ _) B+ v/ n GoSearch：方法，调用默认的搜索页面， 9 d5 L, n9 c: z2 K7 g 该页面在IE 的选项中设定。

---- Navigate(const URL: WideString; var Flags, TargetFrameName, PostData, Headers: OleVariant)：方法，调用指定页面，具体参数如下：

URL：指定页面的URL。 # d. v7 @ f5 V Flags：Word 类型，作用还不清楚，9 j* p. X5 \- d: A7 m3 d% f4 @ 可设为0。

---- TargetFrameName：WideString，打开页面所在的Frame，为空字符串时在当前的Frame 中打开；TargetFrameName 指定的 Frame 存在时在Frame 中打开；

----TargetFrameName 指定的Frame 不存在时则新建一个窗口打开，此时就相当于调用外部的IE 浏览器了。

PostData：boolean，是否允许发送数据。" i: [9 D4 s. L# A; z+ _+ ?7 j Headers：WideString，' l+ Q3 Y' h0 B% ?6 L 要发送的URL 请求的头部数据。 : e" d' h+ } W9 @$ p; y Refresh：方法，刷新当前页面。# r* M' m9 t2 i# q9 B8 G Stop：方法，停止调用或打开当前页面。3 o1 W- e/ h6 |8 n0 d LocationName：属性(WideString)，当前位置的名称。5 U [% I# z0 I1 V- H LocationURL：属性(WideString)，当前位置的URL。3 g" z2 g# I- D2 L Busy: 属性(Boolean)，是否正忙。% q0 `& a. }! F+ X+ ` Visible: 属性(Boolean)，浏览器窗口是否可见。

---- ( 以下属性为在TWebBrowser 新增， TWebBrowser_V1 中没有，其作用有待探索)

StatusBar: 属性(Boolean)，是否显示状态栏。$ \9 A6 k0 \$ i7 ?; h StatusText: 属性(WideString)，状态栏内容。 ) Q3 A) p) o( H" E. o ToolBar: 属性(SYSINT)，工具栏中的内容。, Z1 N# i0 |7 N0 Q6 l t' X3 ? MenuBar: 属性(Boolean)，是否显示菜单条。3 e# m) ]4 B2 M1 ?! w$ M$ g! w; M" V FullScreen: 属性(Boolean)，是否全屏显示。6 R/ o+ j w9 R; A& m7 d% R Offline: 属性(Boolean)，是否脱机浏览。 0 {& q8 x% t7 t" O! O% l" S+ Q AddressBar: 属性(Boolean)，是否显示地址栏。

----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: 5 v, A' a) C1 f) n1 s9 qTObject; Command: Integer; Enable: WordBool) of object;

----当执行新的命令时发生，Command 为命令标识，Enable 为是否允许执行该命令。

OnTitleChange = procedure(Sender: TObject;7 E: s; h7 G% ]: b5 d" `; r& e const Text: WideString) of object;

----在页面的标题发生变化时发生，Text 为当前标题。

OnPropertyChange = procedure(Sender: TObject; g1 C+ s& L- c! I- s t const Property_: WideString) of object;

----在页面的属性发生变化时发生，Property_ 为属性名称

OnDownloadComplete: TNotifyEvent0 z6 D+ _/ u x 在下载页面完成后发生。/ i; Q6 E9 k4 w OnDownloadBegin: TNotifyEvent 5 v/ D2 s* a/ H; Q 　　在下载页面开始前发生。

三、两个例子 ' d! c0 b8 j$ D----1. 制作自己的帮助系统

----我们利用IE 浏览器控件为用户制作了一个帮助系统，帮助文件由多个HTML 文件组成，一个主题对应一个 HTML 文件(Topic.HTM)，每个主题下的项目对应HTML 文件中的一个标签( ＃Item)。这样在我们的系统中，就不必再调用IE 浏览器或 WinHelp 程序来为用户提供帮助了。相信大家知道HTML 帮助文件与传统的HLP 帮助文件相比的优势所在吧。

----在下面例子中，演示了TWebBrowser(IE4 浏览器控件) 的Navigate 方法的使用方法。请注意程序中的注释。下面为程序的主要片段。{ 根据主题和项目调用帮助文件}

procedure ShowHelp( HelpTopic,HelpItem : String ); $ G M1 N7 J! |* M xvar ) a/ U8 Y+ K# O! i TargetFrameName,PostData,Heads,Flags : OleVariant; 5 J1 K1 X; a; A URL : widestring; 7 C/ c( u, F8 V- x1 vbegin* s8 q9 J% t: u1 u# f. r9 E TargetFrameName := ''; 6 s1 X7 W. K9 x( ~& i+ g) f0 A) m( V { 指定Frame 的空字符串时, 2 i; @2 Q5 {- G 则在当前Frame 中打开帮助文件} 3 \0 o+ p$ H& t6 m PostData := false;{ 不发送数据}4 } x& o8 b; u r3 c Heads := '';{Header 信息为空}" y" \$ g1 Y+ a. v; N Flags := 0;{Flags 设为0}5 o: G) i. s! T% q& r1 K5 \ URL := HelpTopic ＋ '.HTM ＃' ＋HelpItem; r4 S4 ?- k# T { 帮助信息的URL} / j* _! \1 p2 g* B with formHelp.webbrowser do 5 X$ Z7 L6 R- T { 在帮助窗口中的IE 浏览器# B$ r" \5 \- t/ c- W 控件中显示帮助信息} : B" {1 A k: P begin# C# R1 k: S% Q$ D4 ~ navigate(URL,Flags,TargetFrameName, / t- b, o2 ~, N$ M( {* _/ vPostData,Heads);{ 显示帮助信息}8 F) G0 p' Z7 ^7 i7 V+ j' E end; 0 e. G5 ^) u0 M/ U4 f* rend;

----2. 显示一个GIF 动画

----假如你还没有一个适合的动画显示控件，不妨试用一下下面的方法。

procedure ShowGIF( GIFFileName : String ); : r- Z J, E6 n( O. L( Xvar / u* \% _ L" | c6 l TargetFrameName,PostData,Heads,Flags : OleVariant;) f9 D- t. b/ s( Z r URL : widestring;4 e/ w( r0 o5 V* H, q begin * l V- q' g, d! S$ ] TargetFrameName := '';3 u( l9 }& F/ t0 F { 指定Frame 的空字符串时, 0 d3 L) I7 c5 R$ |: `% u P, m7 ?2 x 则在当前Frame 中打开动画文件}$ B! e( {6 @3 K1 B( Q9 ] PostData := false;{ 不发送数据}! @2 U, {. c* H( g9 ^ Heads := '';{Header 信息为空}/ e' S) ^' f" Y7 N4 z6 @ Flags := 0;{Flags 设为0} ( x5 v" N+ d: J+ O, {6 y4 d URL := GIFFileName;8 ?# v3 E5 v4 Z/ P) X2 X with formGIF.webbrowser do3 _2 [9 t0 p' J/ C* I* u. d& r { 在指定窗口中的IE 浏览器控件中显示动画} y, d1 t. B2 l+ V begin 2 S" c- \ `+ c9 P7 b navigate(URL,Flags,TargetFrameName,Post ? ' Y* x/ l, `8 i: g! \/ dData,Heads);{ 显示动画文件} , x9 Q- p; H9 H! L1 h7 ]2 E end; ( {8 `9 \4 K3 J; b2 Z3 Yend;