2005/08/11 | 在Delphi程序中应用IE浏览器控件
类别(网页类学习笔记) | 评论(0) | 阅读(193) | 发表于 10:28
2005-8-11

在Delphi程序中应用IE浏览器控件

在Delphi程序中应用IE浏览器控件

王发军 (2004-2-8 12:56:00) .Net控件开发 ActiveX/COM开发 CLX/VCL开发 Java组件开发 VC/MFC 控件使用经验谈 DHtml/Script 控件开发基础 数据库 编程规范 单元测试 可重用软件技术理论 其 它



大概大家还记得Delphi的范例程序中的那个浏览器的例子吧。在那个例子中,利用控件THttp的属性和方法制作了一个浏览器。该例子用于理解THttp控件的使用方法,确实不错。但很少有人会用它作为一个真正的浏览器,原因很简单,功能太有限了,不支持Frame,不支持Script脚本语言,不能以本地文件方式查看HTML文件等等。大部分用户在使用IE或Navigator;我们程序员也乐意使用现成的浏览器,在需要使用浏览器时,就在程序中通过WinExec或CreateProcess等方法调用外部浏览器让用户使用。这种方法确实挺省事的,但总让笔者有点不甘心,把程序控制权让给其它外部程序总让自己很感到麻烦,尤其当应用软件的使用者的计算机使用水平不是很高时。如果能有一个浏览器控件,就可把浏览器嵌入到自己的程序中,那应该挺不错的。
---- 如果你的软件的外部环境是WIN95+IE或WIN98(这样的软件使用率还很高的),那样在系统中就已经有了一个IE浏览器控件可以使用了,也许是你长时间没有发觉吧,别浪费资源了,拿来使用吧。当系统中已经安装了IE3.X或IE4.X时,IE浏览器控件已经注册到系统中了,请运行Regedit,用“编辑”菜单下的“查找”功能,查找“Shell.Explorer”键名,你会发现 IE控件已经作为ActiveX控件注册在系统中了,这样就我们可以在Delphi中使用该控件了。

一、 在Delphi中引入IE浏览器控件
 

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

二、 在Delphi程序中使用IE浏览器控件
 

----

以TWebBrowser(IE4浏览器控件)为例子。
TWebBrowser的常见属性和方法主要有:
GoBack:方法,后退到上一个页面。
GoForward:方法,前进到下一个页面。
GoHome:方法,调用默认的主页页面,
该页面在IE的选项中设定。
GoSearch:方法,调用默认的搜索页面,
该页面在IE的选项中设定。
Navigate(const URL: WideString;
var Flags, TargetFrameName, PostData,
Headers: OleVariant):方法,
调用指定页面,具体参数如下:
URL:指定页面的URL。Flags:
Word类型,作用还不清楚,可设为0。
TargetFrameName:WideString,
打开页面所在的Frame,为空字符串时在当前的
Frame中打开;TargetFrameName
指定的Frame存在时在Frame中打开;
TargetFrameName指定的Frame
不存在时则新建一个窗口打开,此时就相当
于调用外部的IE浏览器了。
PostData:boolean,是否允许发送数据。
Headers:WideString,
要发送的URL请求的头部数据。
Refresh:方法,刷新当前页面。
Stop:方法,停止调用或打开当前页面。
LocationName:属性(WideString),当前位置的名称。
LocationURL:属性(WideString),当前位置的URL。
Busy: 属性(Boolean),是否正忙。
Visible: 属性(Boolean),浏览器窗口是否可见。
(以下属性为在TWebBrowser新增,
TWebBrowser_V1中没有,其作用有待探索)
StatusBar: 属性(Boolean),是否显示状态栏。
StatusText: 属性(WideString),状态栏内容。
ToolBar: 属性(SYSINT),工具栏中的内容。
MenuBar: 属性(Boolean),是否显示菜单条。
FullScreen: 属性(Boolean),是否全屏显示。
Offline: 属性(Boolean),是否脱机浏览。
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: TObject; Command: Integer; Enable: WordBool) of object;

---- 当执行新的命令时发生,Command为命令标识,Enable为是否允许执行该命令. OnTitleChange = procedure(Sender: TObject; const Text: WideString) of object;

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

---- OnPropertyChange = procedure(Sender: TObject; const Property_: WideString) of object;

---- 在页面的属性发生变化时发生,Property_为属性名称 OnDownloadComplete: TNotifyEvent

---- 在下载页面完成后发生.

---- OnDownloadBegin: TNotifyEvent

---- 在下载页面开始前发生.

三、 在Delphi程序中应用IE浏览器控件的两个例子
 

---- (1)制作自己的帮助系统

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

---- 在下面例子中,演示了TWebBrowser(IE4浏览器控件)的Navigate方法的使用方法。请注意程序中的注释。(下面为程序的主要片段)。

{根据主题和项目调用帮助文件}
procedure ShowHelp
( HelpTopic,HelpItem : String ;
var
TargetFrameName,PostData,
Heads,Flags : OleVariant;
URL : widestring;
begin
TargetFrameName := ';{指定Frame的空字符串时,
则在当前Frame中打开帮助文件}
PostData := false;{不发送数据}
Heads := ';{Header信息为空}
Flags := 0;{Flags设为0}
URL := HelpTopic + '.HTM#'+HelpItem;
{帮助信息的URL}
with formHelp.webbrowser do{在帮助窗口
中的IE浏览器控件中显示帮助信息}
begin
navigate(URL,Flags,TargetFrameName,
PostData,Heads);{显示帮助信息}
end;
end;
 

---- (2)显示一个GIF动画

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

procedure ShowGIF( GIFFileName : String ;
var
TargetFrameName,PostData,Heads,Flags : OleVariant;
URL : widestring;
begin
TargetFrameName := ';{指定Frame的空字符串时,
则在当前Frame中打开动画文件}
PostData := false;{不发送数据}
Heads := ';{Header信息为空}
Flags := 0;{Flags设为0}
URL := GIFFileName;
with formGIF.webbrowser do{在指定窗口中的
IE浏览器控件中显示动画}
begin
navigate(URL,Flags,TargetFrameName
,PostData,Heads);{显示动画文件}
end;
end;
 

---- 以上程序在PWIN98+Delphi3.0下调试通过。

===========================================================================
brwWebBrowser.Navigate "about:blank"
brwWebBrowser.Document.writeln "<HTML>"
brwWebBrowser.Document.writeln "<HEAD>"
brwWebBrowser.Document.writeln "<TITLE>"
brwWebBrowser.Document.writeln "</TITLE>"
brwWebBrowser.Document.writeln "<meta name=GENERATOR content=Microsoft Visual Studio.NET 7.0>"
brwWebBrowser.Document.writeln "</HEAD>"
brwWebBrowser.Document.writeln "<BODY bottomMargin=0 leftMargin=0 topMargin=0 rightMargin=0 scroll=no>"
brwWebBrowser.Document.writeln "<iframe src=http://www.google.com width=100% height=50% border=0 frameborder=0 scrolling=no noresize marginwidth=0 marginheight =0></iframe>"
brwWebBrowser.Document.writeln "<br><br>hello"

brwWebBrowser.Document.writeln "</BODY>"
brwWebBrowser.Document.writeln "</HTML>"
brwWebBrowser.Refresh2

===============================================================================
安装控件,然后直接放到From上(web:TEmDedDedWb)
var
lstbegin:TStringlist;
begin
Url:='about:Blank';
Web.Navigate2(Url);
lstbegin:=TStringlist.create;
lstBegin.Append('<html>');

lstBegin.Append('<STYLE>');
lstBegin.Append('Body');

lstBegin.Append('{');
lstBegin.Append('SCROLLBAR-FACE-COLOR: #586979;');
lstBegin.Append('SCROLLBAR-HIGHLIGHT-COLOR: #6f8699;');
lstBegin.Append('SCROLLBAR-SHADOW-COLOR: #8ba8c0;');
lstBegin.Append('SCROLLBAR-ARROW-COLOR: #ffcc00;');
lstBegin.Append('SCROLLBAR-BASE-COLOR: #333333;');
lstBegin.Append('scrollbar-borderstyle: solid;');
lstBegin.Append('scrollbar-dark-shadow-color: #000000');
lstBegin.Append('}');

lstBegin.Append('</STYLE>');
lstBegin.Append('<body ');
lstBegin.Append('bgcolor='+ RGBColor(BackColor) + '>');

lstBegin.Append('</body>');
lstBegin.Append('</html>');

Web.loadfromstrings(lstBegin);
lstbegin.free;
end;



0

评论Comments