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