出處
關(guān)鍵字 WebBrowser，IDocHostUIHandler，GetExternal
1 引言
在用Delphi、Visual Basic等可視化快速開發(fā)工具編寫Windows應(yīng)用程序時，常會遇到這樣幾個問題：
1) 希望程序界面美觀。在Delphi中，開發(fā)人員通常使用各種控件來實現(xiàn)界面的風格化，但缺點是造成應(yīng)用程序體積較大，且在升級時常會被控件版本與Delphi版本不兼容帶來的問題所困擾。
2) 希望應(yīng)用程序在功能不變的情況下具有不同的界面風格。這常常通過換"皮膚"的技術(shù)來實現(xiàn)，但一般實現(xiàn)"換膚"功能的控件體積都較大，且界面反應(yīng)速度比較慢，而且 "皮膚"的制作比較麻煩。
3) 程序界面的維護困難。為了使界面與代碼實現(xiàn)相分離而獲得"換膚"等靈活性，通常要用到一些設(shè)計模式的技術(shù)，這對于不熟悉設(shè)計模式的開發(fā)人員來說比較困難。
微軟公司預(yù)計將于2006年發(fā)布下一代操作系統(tǒng)（開發(fā)代號為Longhorn）中，應(yīng)用程序的結(jié)構(gòu)及部署將有重大變革，其中一項就是應(yīng)用程序的界面完全以XML的一個擴展集XAML語言來描述，以便達到界面的高度可定制性。這無疑能夠方便地解決上述幾個問題。問題是在目前來說有沒有類似的方法呢？答案就是使用瀏覽器控件。
微軟公司的網(wǎng)頁瀏覽器Internet Explorer的核心被設(shè)計為可以嵌入到應(yīng)用程序中重用的ActiveX組件，它有極強的可編程能力和與容器交互的能力，使得開發(fā)人員能夠快速地開發(fā)出功能強勁的應(yīng)用程序。從下面的Internet Explorer的架構(gòu)圖可以看到，我們平常運行的iexplorer.exe其實只是一個外殼程序，真正的瀏覽網(wǎng)頁、記錄歷史等工作是由嵌入其窗口的封裝在shdocvw.dll中的WebBrowser Control來完成的。
Shdocvw.dll的功能則是調(diào)用mshtml.dll來解析網(wǎng)頁，以及在它的窗口中嵌入其它活動文檔組件（如Microsoft Office、Adobe Acrobat等應(yīng)用程序的文檔都可以嵌入到瀏覽器窗口中查看）。而mshtml.dll一方面處理HTML解析以及作為腳本引擎、java虛擬機、ActiveX控件、插件的宿主，另一方面，它實現(xiàn)了活動文檔服務(wù)器接口，允許應(yīng)用程序以標準的COM接口來把它嵌入到程序中并通過它暴露的接口來訪問其中的網(wǎng)頁及網(wǎng)頁元素。
通過shdocvw.dll提供的豐富接口，網(wǎng)頁中的元素可以訪問外殼應(yīng)用程序提供的屬性和方法（如window.external.AddFavorite(location.href, document.title)則是調(diào)用IE的AddFavorite方法把當前頁添加到收藏夾），而通過mshtml.dll提供的接口，外殼應(yīng)用程序則反過來可以訪問網(wǎng)頁中元素的屬性、方法、行為、事件等等。解決文章開頭提出的幾個問題的方法就是基于shdocvw.dll和mshtml.dll實現(xiàn)的。一些著名軟件如：Microsoft Money、Microsoft Visual Studio .NET、Macromedia Dreamweaver MX 2004等都運用了這種技術(shù)。
2 原理
1) 程序的界面完全由制作網(wǎng)頁來完成。網(wǎng)頁在文字、圖像、聲音等方面具有強大的表現(xiàn)能力，運用所見即所得的網(wǎng)頁制作工具可以輕松制作出圖文并茂的網(wǎng)頁。以網(wǎng)頁作為程序的界面，其效果勝過任何界面控件。
2) "換膚"功能容易實現(xiàn)。只需制作不同風格的網(wǎng)頁，即可輕松實現(xiàn)樣式各異的程序界面。
3) 程序的功能在應(yīng)用程序內(nèi)部編寫代碼來實現(xiàn)，并通過一個自動化接口提供給網(wǎng)頁中的元素調(diào)用。這就實現(xiàn)了程序界面和代碼的分離，網(wǎng)頁布局及風格的改變不會影響到程序的實現(xiàn)。
3 從網(wǎng)頁調(diào)用外殼程序的屬性和方法
3.1 GetExternal接口方法
WebBrowser Control提供的接口使得外殼應(yīng)用程序可以用自己的對象、方法和屬性等來擴展IE的對象模型（DOM），以達到個性化定制的目的。在網(wǎng)頁中訪問外殼應(yīng)用程序的擴展則通過文檔的"external"對象來實現(xiàn)，如外殼程序提供了名為AddFavorite的方法，網(wǎng)頁中就通過window.external.AddFavorite()來調(diào)用。實現(xiàn)這一功能的核心是IDocHostUIHandler接口的GetExternal方法：
HRESULT GetExternal(IDispatch **ppDispatch);
在自定義的WebBrowser Control中實現(xiàn)IDocHostUIHandler接口，當網(wǎng)頁元素通過"external"對象訪問外殼擴展的屬性和方法時，GetExternal方法就會被調(diào)用，在此方法的中將實現(xiàn)外殼程序?qū)傩院头椒ǖ淖詣踊涌趥鬟f給ppDispatch即可。自定義的WebBrowser Control示例代碼如下，在其中將GetExternal包裝為OnGetExternal事件供外部程序調(diào)用。IDocHostUIHandler接口有15個方法，此處我們只關(guān)心GetExternal方法，故略去其余14個（省略號處為略去的代碼）。
unit ZoCWebBrowser;
interface
uses
Variants,IEConst, Windows, SysUtils, Classes, SHDocVw, ActiveX, shlObj, MSHTML, comobj;
type
……
TGetExternalEvent = function(out ppDispatch: IDispatch): HRESULT of object; //定義OnGetExternal事件類型
TZoCWebBrowser = class(TWebBrowser, IDocHostUIHandler)
private
……
FOnGetExternal: TGetExternalEvent;
protected
……
function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;
published
……
property OnGetExternal: TGetExternalEvent read FOnGetExternal write FOnGetExternal;
end;
……
implementation
……
function TZoCWebBrowser.GetExternal(out ppDispatch: IDispatch): HRESULT;
begin
if Assigned(FOnGetExternal) then
Result := FOnGetExternal(ppDispatch)
else
Result := S_FALSE;
end;
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;
end.
3.2 實現(xiàn)外殼程序擴展自動化接口
在Delphi的"New Items"對話框中，切換到"ActiveX"頁，選擇"Automation Object"，新建一個自動化對象，并在"CoClass Name"一欄中填入接口名"MyExternal"，"Instancing"選擇為"Internal"，表示該對象只能在程序內(nèi)部被創(chuàng)建，外部程序不能直接創(chuàng)建。點擊"OK"按鈕后在Type Library編輯對話框中為IMyExternal接口添加兩個方法ShowAboutBox和SwitchUI，此時代碼大致如下所示：
unit MyExternalImpl;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
ComObj, ActiveX, Project1_TLB, StdVcl;
type
TMyExternal = class(TAutoObject, IMyExternal)
protected
procedure ShowAboutBox; safecall;
procedure SwitchUI; safecall;
end;
implementation
uses ComServ;
procedure TMyExternal.ShowAboutBox;
begin
MessageBox(MainForm.Handle, ‘GetExternal Demo‘, ‘ZoCWebBrowser‘, MB_OK or MB_ICONASTERISK);
end;
procedure TMyExternal.SwitchUI;
begin
ShowSwitchUIForm; //顯示切換程序界面對話框
end;
initialization
TAutoObjectFactory.Create(ComServer, TMyExternal,
Class_MyExternal, ciInternal, tmApartment);
end.
3.3 從網(wǎng)頁中調(diào)用外殼程序接口
在程序主窗口中放置一個自定義的WebBrowser Control，命名為ZoCWebBrowser，編寫它的OnGetExternal事件（由網(wǎng)頁中的window.external調(diào)用觸發(fā)），代碼如下：
function TMainForm.ZoCWebBrowserGetExternal(
out ppDispatch: IDispatch): HRESULT;
var
MyExternal: TMyExternal;
begin
MyExternal:= TMyExternal.Create; //創(chuàng)建實現(xiàn)自動化接口的對象
ppDispatch :=MyExternal; //將對象接口傳遞給WebBrowser Control
//這樣當"external"對象被調(diào)用時，真正被調(diào)用的是我們實現(xiàn)的TMyExternal對象
Result :=S_OK;
end;
假設(shè)我們制作了兩個風格迥異的的網(wǎng)頁Style1.html和Style2.html作為程序界面，這兩個網(wǎng)頁中都有兩個按鈕（也可以是其它網(wǎng)頁元素），其HTML代碼示例如下：
<BUTTON onclick=" window.external.ShowAboutBox">關(guān)于</BUTTON>
<BUTTON onclick=" window.external.SwitchUI">切換界面</BUTTON>
在程序開始運行時讓WebBrowser Control布滿整個Form，且顯示Style1.html頁面，則當點擊"關(guān)于"按鈕時程序?qū)@示一個關(guān)于信息對話框，而點擊"切換界面"按鈕時將顯示切換界面的對話框，在其中選擇Style2.html并讓WebBrowser Control顯示它即可獲得風格完全不同的界面，但在功能上與Style1.html完全一樣。
4 總結(jié)
從上面的例子可以看到，我們以及其簡單的方式實現(xiàn)了程序界面與實現(xiàn)的分離，這有利于程序的維護和擴展。傳統(tǒng)方式下，界面設(shè)計和編碼通常都由程序員來完成，一來造成程序員負擔較重，二來難以保證界面質(zhì)量。實用上述方法，程序界面可以由專業(yè)美工人員來設(shè)計，他可以在完全不知道程序如何實現(xiàn)的情況下設(shè)計出完整的界面，而程序員只需專注于代碼的編寫，并將必要的方法和屬性通過一個自動化接口暴露出來。合并的時候，在網(wǎng)頁中合適的位置放入所需的按鈕或其它網(wǎng)頁元素，并賦予簡單的腳本調(diào)用即可。
（以上代碼均在WindowsXP+Delphi 7環(huán)境下調(diào)試通過）
5 參考文獻
《MSDN Library - July 2003》
