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