Internet Explorer 事件
IWebBrowser2
的屬性和方法給了你確切的控制導(dǎo)航和用戶接口的途徑，但是如果你不能夠檢測(cè)到瀏覽器正在處理什么以及何時(shí)處理什么，你還是沒(méi)有全面的控制它.因此，WebBrowser控件和Internet Explorer暴露出事件，通過(guò)此你可以必要時(shí)監(jiān)視活動(dòng)以及處理某些活動(dòng). 舉例來(lái)說(shuō)，假設(shè)你建立一個(gè)intranet應(yīng)用程序, 你想限制用戶用戶訪問(wèn)某些web頁(yè).利用Internet Explorer的時(shí)間處理句柄,你可以指令應(yīng)用程序在用戶試圖訪問(wèn)受限的URL時(shí)候取消導(dǎo)航完成。
事件 和 引出的接口
無(wú)論何時(shí)一個(gè)COM 對(duì)象需要客戶應(yīng)用程序一個(gè)事件發(fā)生了, COM 對(duì)象發(fā)送一個(gè)叫做事件的消息. 發(fā)送消息的處理過(guò)程會(huì)激發(fā)一個(gè)事件. 但如果事件沒(méi)有任何監(jiān)聽(tīng)者會(huì)如何？ 事件每次都發(fā)生嗎? 顯然, 客戶應(yīng)用程序監(jiān)聽(tīng)這些事件并控制COM對(duì)象.如果一個(gè)客戶應(yīng)用想接收來(lái)自COM 對(duì)象的事件,它"advises" 實(shí)際的COM 對(duì)象的.
一個(gè)COM 對(duì)象為了通客戶通信, 對(duì)象自身必須支持一個(gè)或者多個(gè)外引接口.一個(gè) COM 對(duì)象支持的外引接口是作為可連接對(duì)象引用. 要成為一個(gè)可連接對(duì)象，COM對(duì)象必須實(shí)現(xiàn)IConnectionPointContainer 接口。通過(guò)此接口，客戶可認(rèn)識(shí)到那些外引接口被服務(wù)器支持. 外引接口實(shí)際通過(guò)連接點(diǎn)由客戶掛接入COM實(shí)現(xiàn)。實(shí)現(xiàn)外引接口的客戶部分眾所周知是通過(guò)事件接收槽（event sink）實(shí)現(xiàn)的.
單一的連接點(diǎn)由服務(wù)器支持每一個(gè)外引接口.每一個(gè)連接點(diǎn)能夠操縱一種類型的外引接口且至少支持IConnectionPoint 接口. 圖7-1 描述了可連接的對(duì)象和它的客戶之間的關(guān)系.
Figure 7-1.
Connectable object and its client.
每一個(gè)服務(wù)器必須實(shí)現(xiàn)2個(gè)接口以便實(shí)現(xiàn)客戶可以接收事件—IConnectionPointContainer 和 IConnectionPoint. 我們將先看看這些接口之后將檢視實(shí)現(xiàn)事件的不同途徑.
IConnectionPointContainer
每一個(gè)可連接對(duì)象實(shí)現(xiàn)了IConnectionPointContainer. 通過(guò)此接口, 試圖接收事件的客戶可找出關(guān)于可連接對(duì)象支持的不同的連接點(diǎn). 通過(guò)調(diào)用QueryInterface using 客戶可以獲得服務(wù)器支持的任何接口的指針. (你可以使用任何接口指針調(diào)用QueryInterface, 因?yàn)槿?COM 接口繼承自IUnknown.) 之后客戶可以使用IConnectionPointContainer 接口的2個(gè)方法中的之一獲取可連接點(diǎn)。 如表7-1, 獲得可連接點(diǎn)
Table 7-1
Methods of the IConnectionPointContainer Interface
|
方法
|
描述
|
|
EnumConnectionPoints
|
列舉可連接對(duì)象支持的全部可連接對(duì)象
|
|
FindConnectionPoint
|
讓客戶查詢可連接對(duì)象關(guān)于它是否支持一個(gè)特殊接口。客戶指定特殊的接口（可連接點(diǎn)）的接口標(biāo)示
(IID)
。如果可連接對(duì)象支持此接口，返回
IConnectionPoint
接口的指針。
|
IConnectionPoint
一旦客戶知道哪個(gè)連接點(diǎn)可被連接對(duì)象服務(wù)器支持, 客戶就可建立同可連接對(duì)象的連接。客戶通知可連接對(duì)象將要在全部事件中接收那些事件.當(dāng)客戶不再需要接收來(lái)自可連接對(duì)象的事件,客戶解除對(duì)對(duì)象的通知. 表7-2 展示了 IConnectionPoint 接口可被客戶連接的. (大多數(shù)時(shí)候,你將連接到僅僅表中頭兩個(gè))
Table 7-2
Methods of the IConnectionPoint Interface
|
方法
|
描述
|
|
Advise
|
在客戶和可連接對(duì)象的某一個(gè)可連接點(diǎn)間建立連接。
客戶必須傳遞它的事件接收槽的
IUnknown
接口。
事件接收槽必須實(shí)現(xiàn)
IDispatch
接口以接收事件。
典型地
,
黨課連接對(duì)象激發(fā)事件，可連接對(duì)象將調(diào)用
IDispatch
接口的
Invoke
方法。
Advise
方法返回一個(gè)
cookie
，當(dāng)客戶中斷連接時(shí)候，調(diào)用
Unadvise
方法時(shí)候需要攜帶此
cookie
|
|
Unadvise
|
中斷連接
.
|
|
GetConnectionInterface
|
返回由連接點(diǎn)管理的外發(fā)接口的
IID . GetConnectionInterface
方法讓客戶將
IConnectionPoint
翻譯為一個(gè)
IID.
|
|
GetConnectionPointContainer
|
得到刻連接對(duì)象的
IConnectionPointContainer
接口
|
|
EnumConnections
|
枚舉刻連接對(duì)象的當(dāng)前可連接點(diǎn)
.
|
接收事件的途徑
依靠開(kāi)發(fā)工具你創(chuàng)建客戶應(yīng)用程序,你可以接收事件通過(guò)不同的途徑. 顯然, 在Vb中接收事件同在VC中接收事件相比是如此不同和容易.在 C++ 應(yīng)用中,你可以用不同的技術(shù)，通過(guò)使用 ATL, MFC, 或者標(biāo)準(zhǔn)C++.
Visual Basic 中接收事件
Visual Basic是創(chuàng)建大多數(shù)類型應(yīng)用的最輕松的工具, 所以我告訴你VB是處理事件最溶的工具時(shí)也不要驚奇. ATL 和 Visual Basic 示例我們同樣的工作,但是ATL花費(fèi)了我4個(gè)小時(shí), 而 Visual Basic 例子僅僅只花20 分鐘.別說(shuō)我錯(cuò)了—我是ATL, 和 MFC， C++的忠實(shí)信徒,? 尤其是你建立一個(gè)接口的時(shí)候.但是 Visual Basic當(dāng)建立客戶應(yīng)用程序從類似IE這樣的服務(wù)器接收事件時(shí)是偉大的工具.
OK,如何從Visual Basic 應(yīng)用程序中接收事件？當(dāng)宿主WebBrowser 控件,你不必做任何特別的事. Visual Basic 在form上為WebBrowser 控件接收事件.你所需要做的全部事情就是未你要接收的任何事件創(chuàng)建一個(gè)事件處理句柄.
你象創(chuàng)建其他事件句柄一樣創(chuàng)建句柄 (例如Form_Load event). 從Procedure下拉列表框中選擇你象控制的句柄, 在事件句柄中,加入任何你型在事件激發(fā)時(shí)執(zhí)行的任何代碼.
當(dāng)自動(dòng)化服務(wù)器時(shí)候接收事件, 例如在VB應(yīng)用中的Internet Explorer,過(guò)程直截了當(dāng).首先設(shè)置對(duì)服務(wù)器的類型庫(kù)的引用, 你可以訪問(wèn)Project/References 菜單.之后，采用WithEvents 關(guān)鍵字聲明服務(wù)器對(duì)象的變量.舉例, 如果你自動(dòng)化Internet Explorer, 你將聲明變量如下:
Dim WithEvents InternetExplorer1 As InternetExplorer
|
下一步，采用new或者其他 關(guān)鍵字創(chuàng)建實(shí)例變量 ，如下：:
Set InternetExplorer1 = CreateObject("InternetExplorer.Application.1")
|
或者:
Set InternetExplorer1 = New InternetExplorer
|
當(dāng)你采用以上途徑生成實(shí)例接收事件, Visual Basic 自動(dòng)為你初始化和管理事件接收.你不必?fù)?dān)心連接點(diǎn)問(wèn)題，VB為你處理它們.
在你輸入建立服務(wù)器的代碼之后,你插入符合服務(wù)器事件的方法調(diào)用. ??舉例來(lái)說(shuō), 如果你想控制由IE激活的DownloadBegin event, 你應(yīng)當(dāng)聲明類似如下的方法聲明:
Private Sub InternetExplorer1_DownloadBegin()
?? ' Insert your best Visual Basic code here.
End Sub
|
當(dāng)你不再想接收來(lái)自服務(wù)器的事件，簡(jiǎn)單設(shè)置變量為Nothing:
Set InternetExplorer1 = Nothing
|