?? 在delphi程序中應(yīng)用ie瀏覽器控件.htm
字號(hào):
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0057)http://yousoft.home.chinaren.com/study/my_data/use_ie.htm -->
<HTML><HEAD><TITLE>在Delphi程序中應(yīng)用IE瀏覽器控件</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff>
<P align=center> <FONT color=#0000c0></P>
<H2 align=center>在Delphi程序中應(yīng)用IE瀏覽器控件 </FONT></H2>
<H3 align=center>王發(fā)軍 </H3>
<P><FONT color=#ffffff>----</FONT>
大概大家還記得Delphi的范例程序中的那個(gè)瀏覽器的例子吧。在那個(gè)例子中，利用控件THttp的屬性和方法制作了一個(gè)瀏覽器。該例子用于理解THttp控件的使用方法，確實(shí)不錯(cuò)。但很少有人會(huì)用它作為一個(gè)真正的瀏覽器，原因很簡(jiǎn)單，功能太有限了，不支持Frame，不支持Script腳本語(yǔ)言，不能以本地文件方式查看HTML文件等等。大部分用戶在使用IE或Navigator；我們程序員也樂(lè)意使用現(xiàn)成的瀏覽器，在需要使用瀏覽器時(shí)，就在程序中通過(guò)WinExec或CreateProcess等方法調(diào)用外部瀏覽器讓用戶使用。這種方法確實(shí)挺省事的，但總讓筆者有點(diǎn)不甘心，把程序控制權(quán)讓給其它外部程序總讓自己很感到麻煩，尤其當(dāng)應(yīng)用軟件的使用者的計(jì)算機(jī)使用水平不是很高時(shí)。如果能有一個(gè)瀏覽器控件，就可把瀏覽器嵌入到自己的程序中，那應(yīng)該挺不錯(cuò)的。
</P>
<P><FONT color=#ffffff>----</FONT>
如果你的軟件的外部環(huán)境是WIN95+IE或WIN98(這樣的軟件使用率還很高的)，那樣在系統(tǒng)中就已經(jīng)有了一個(gè)IE瀏覽器控件可以使用了，也許是你長(zhǎng)時(shí)間沒(méi)有發(fā)覺吧，別浪費(fèi)資源了，拿來(lái)使用吧。當(dāng)系統(tǒng)中已經(jīng)安裝了IE3.X或IE4.X時(shí)，IE瀏覽器控件已經(jīng)注冊(cè)到系統(tǒng)中了，請(qǐng)運(yùn)行Regedit，用“編輯”菜單下的“查找”功能，查找“Shell.Explorer”鍵名，你會(huì)發(fā)現(xiàn)
IE控件已經(jīng)作為ActiveX控件注冊(cè)在系統(tǒng)中了，這樣就我們可以在Delphi中使用該控件了。 </P>
<H3>一、 在Delphi中引入IE瀏覽器控件</H3>
<P> <FONT color=#ffffff></P>
<P>----</FONT>
由于IE瀏覽器控件需要提供顯示功能才能使用，所以不能在程序中用CreateOleObject取得一個(gè)實(shí)例后直接使用其屬性和方法，否則程序在運(yùn)行時(shí)會(huì)引起錯(cuò)誤；這時(shí)需要用Delphi中提供的
“Import ActiveX Control”功能，操作方法見下所述。 </P>
<P><FONT color=#ffffff>----</FONT> 在“Components”菜單中，調(diào)用“Import ActiveX
Control”功能，在Registered Controls (注冊(cè)控件)列表中選擇“Microsoft Internet
Controls(Version1.1)”，下方的提示欄中顯示出其路徑為C:\PWin98\System\SHDOCVW.DLL，在Class
Names(類型列表)中列出了可注冊(cè)的三個(gè)控件：
TWebBrowser_V1、TWebBrowser和TShellFolderViewOC，分別為IE3瀏覽器控件、IE4瀏覽器控件和
“Microsoft外殼文件夾查看路由器”控件。單擊Install進(jìn)行安裝。安裝完成后，在“ActiveX”
控件欄中，將增加三個(gè)控件，分別為TWebBrowser_V1、TWebBrowser和TShellFolderViewOC；在
Delphi的Imports目錄下，將創(chuàng)建一個(gè)文件SHDocVw_TLB.PAS，其中有這三個(gè)控件的包裝細(xì)節(jié)，當(dāng)然含控件的屬性和方法說(shuō)明了，它可以作為我們使用控件的參考資料。
</P>
<H3>二、 在Delphi程序中使用IE瀏覽器控件</H3>
<P> <FONT color=#ffffff></P>
<P>----</FONT> </P><PRE>以TWebBrowser(IE4瀏覽器控件)為例子。
TWebBrowser的常見屬性和方法主要有：
GoBack：方法，后退到上一個(gè)頁(yè)面。
GoForward：方法，前進(jìn)到下一個(gè)頁(yè)面。
GoHome：方法，調(diào)用默認(rèn)的主頁(yè)頁(yè)面，
該頁(yè)面在IE的選項(xiàng)中設(shè)定。
GoSearch：方法，調(diào)用默認(rèn)的搜索頁(yè)面，
該頁(yè)面在IE的選項(xiàng)中設(shè)定。
Navigate(const URL: WideString;
var Flags, TargetFrameName, PostData,
Headers: OleVariant)：方法，
調(diào)用指定頁(yè)面，具體參數(shù)如下：
URL：指定頁(yè)面的URL。Flags：
Word類型，作用還不清楚，可設(shè)為0。
TargetFrameName：WideString，
打開頁(yè)面所在的Frame，為空字符串時(shí)在當(dāng)前的
Frame中打開；TargetFrameName
指定的Frame存在時(shí)在Frame中打開；
TargetFrameName指定的Frame
不存在時(shí)則新建一個(gè)窗口打開，此時(shí)就相當(dāng)
于調(diào)用外部的IE瀏覽器了。
PostData：boolean，是否允許發(fā)送數(shù)據(jù)。
Headers：WideString，
要發(fā)送的URL請(qǐng)求的頭部數(shù)據(jù)。
Refresh：方法，刷新當(dāng)前頁(yè)面。
Stop：方法，停止調(diào)用或打開當(dāng)前頁(yè)面。
LocationName：屬性(WideString)，當(dāng)前位置的名稱。
LocationURL：屬性(WideString)，當(dāng)前位置的URL。
Busy: 屬性(Boolean)，是否正忙。
Visible: 屬性(Boolean)，瀏覽器窗口是否可見。
(以下屬性為在TWebBrowser新增，
TWebBrowser_V1中沒(méi)有，其作用有待探索)
StatusBar: 屬性(Boolean)，是否顯示狀態(tài)欄。
StatusText: 屬性(WideString)，狀態(tài)欄內(nèi)容。
ToolBar: 屬性(SYSINT)，工具欄中的內(nèi)容。
MenuBar: 屬性(Boolean)，是否顯示菜單條。
FullScreen: 屬性(Boolean)，是否全屏顯示。
Offline: 屬性(Boolean)，是否脫機(jī)瀏覽。
AddressBar: 屬性(Boolean)，是否顯示地址欄。
TWebBrowser的常見事件主要有：
OnStatusTextChange = procedure
(Sender: TObject; const Text: WideString)
of object;</PRE>
<P> <FONT color=#ffffff></P>
<P>----</FONT> 在狀態(tài)欄提示信息變化時(shí)發(fā)生，參數(shù)Text為當(dāng)前狀態(tài)欄提示信息，我們可以根據(jù)該信息來(lái)更新我們自己的狀態(tài)欄提示信息或處理其它的事務(wù)．
</P>
<P><FONT color=#ffffff>----</FONT> OnProgressChange = procedure(Sender: TObject;
Progress, ProgressMax: Integer) of object; </P>
<P><FONT color=#ffffff>----</FONT>
在打開頁(yè)面的進(jìn)度變化時(shí)發(fā)生，參數(shù)Progress為當(dāng)前進(jìn)度，ProgressMax為總進(jìn)度，我們可以根據(jù)這兩個(gè)參數(shù)來(lái)更新我們自己的狀態(tài)欄提示信息或處理其它的事務(wù)．
</P>
<P><FONT color=#ffffff>----</FONT> OnCommandStateChange = procedure(Sender:
TObject; Command: Integer; Enable: WordBool) of object; </P>
<P><FONT color=#ffffff>----</FONT> 當(dāng)執(zhí)行新的命令時(shí)發(fā)生，Command為命令標(biāo)識(shí)，Enable為是否允許執(zhí)行該命令．
OnTitleChange = procedure(Sender: TObject; const Text: WideString) of object;
</P>
<P><FONT color=#ffffff>----</FONT> 在頁(yè)面的標(biāo)題發(fā)生變化時(shí)發(fā)生，Text為當(dāng)前標(biāo)題． </P>
<P><FONT color=#ffffff>----</FONT> OnPropertyChange = procedure(Sender: TObject;
const Property_: WideString) of object; </P>
<P><FONT color=#ffffff>----</FONT> 在頁(yè)面的屬性發(fā)生變化時(shí)發(fā)生，Property_為屬性名稱
OnDownloadComplete: TNotifyEvent </P>
<P><FONT color=#ffffff>----</FONT> 在下載頁(yè)面完成后發(fā)生． </P>
<P><FONT color=#ffffff>----</FONT> OnDownloadBegin: TNotifyEvent </P>
<P><FONT color=#ffffff>----</FONT> 在下載頁(yè)面開始前發(fā)生． </P>
<H3>三、 在Delphi程序中應(yīng)用IE瀏覽器控件的兩個(gè)例子 </H3>
<P> <FONT color=#ffffff></P>
<P>----</FONT> （１）制作自己的幫助系統(tǒng) </P>
<P><FONT color=#ffffff>----</FONT>
我們利用IE瀏覽器控件為用戶制作了一個(gè)幫助系統(tǒng)，幫助文件由多個(gè)HTML文件組成，一個(gè)主題對(duì)應(yīng)一個(gè)
HTML文件(Topic.HTM)，每個(gè)主題下的項(xiàng)目對(duì)應(yīng)HTML文件中的一個(gè)標(biāo)簽(#Item)。這樣在我們的系統(tǒng)中，就不必再調(diào)用IE瀏覽器或WinHelp程序來(lái)為用戶提供幫助了。相信大家知道HTML幫助文件與傳統(tǒng)的HLP幫助文件相比的優(yōu)勢(shì)所在吧。
</P>
<P><FONT color=#ffffff>----</FONT>
在下面例子中，演示了TWebBrowser(IE4瀏覽器控件)的Navigate方法的使用方法。請(qǐng)注意程序中的注釋。(下面為程序的主要片段)。 </P><PRE>{根據(jù)主題和項(xiàng)目調(diào)用幫助文件}
procedure ShowHelp
( HelpTopic,HelpItem : String );
var
TargetFrameName,PostData,
Heads,Flags : OleVariant;
URL : widestring;
begin
TargetFrameName := '';{指定Frame的空字符串時(shí),
則在當(dāng)前Frame中打開幫助文件}
PostData := false;{不發(fā)送數(shù)據(jù)}
Heads := '';{Header信息為空}
Flags := 0;{Flags設(shè)為0}
URL := HelpTopic + '.HTM#'+HelpItem;
{幫助信息的URL}
with formHelp.webbrowser do{在幫助窗口
中的IE瀏覽器控件中顯示幫助信息}
begin
navigate(URL,Flags,TargetFrameName,
PostData,Heads);{顯示幫助信息}
end;
end;</PRE>
<P> <FONT color=#ffffff></P>
<P>----</FONT> （２）顯示一個(gè)GIF動(dòng)畫 </P>
<P><FONT color=#ffffff>----</FONT> 假如你還沒(méi)有一個(gè)適合的動(dòng)畫顯示控件，不妨試用一下下面方法． </P><PRE>procedure ShowGIF( GIFFileName : String );
var
TargetFrameName,PostData,Heads,Flags : OleVariant;
URL : widestring;
begin
TargetFrameName := '';{指定Frame的空字符串時(shí),
則在當(dāng)前Frame中打開動(dòng)畫文件}
PostData := false;{不發(fā)送數(shù)據(jù)}
Heads := '';{Header信息為空}
Flags := 0;{Flags設(shè)為0}
URL := GIFFileName;
with formGIF.webbrowser do{在指定窗口中的
IE瀏覽器控件中顯示動(dòng)畫}
begin
navigate(URL,Flags,TargetFrameName
,PostData,Heads);{顯示動(dòng)畫文件}
end;
end;</PRE>
<P> <FONT color=#ffffff></P>
<P>----</FONT> 以上程序在PWIN98+Delphi3.0下調(diào)試通過(guò)。 </P></BODY></HTML>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -