svnno****@sourc*****
svnno****@sourc*****
2011年 2月 22日 (火) 20:49:06 JST
Revision: 1463
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1463
Author: syo68k
Date: 2011-02-22 20:49:06 +0900 (Tue, 22 Feb 2011)
Log Message:
-----------
・WebBrowserController初期化時のエラーチェック強化
Modified Paths:
--------------
trunk/Tween/WebBrowserController.vb
-------------- next part --------------
Modified: trunk/Tween/WebBrowserController.vb
===================================================================
--- trunk/Tween/WebBrowserController.vb 2011-02-22 11:17:19 UTC (rev 1462)
+++ trunk/Tween/WebBrowserController.vb 2011-02-22 11:49:06 UTC (rev 1463)
@@ -275,6 +275,7 @@
Public Sub New(ByVal _WebBrowser As System.Windows.Forms.WebBrowser)
' ActiveXコントロール取得
_WebBrowser.DocumentText = "about:blank" 'ActiveXを初期化する
+ Dim hresult As Integer = 0
Do
Thread.Sleep(100)
@@ -287,12 +288,12 @@
ocxServiceProvider = DirectCast(ocx, WebBrowserAPI.IServiceProvider)
Try
- ocxServiceProvider.QueryService( _
- WebBrowserAPI.SID_SProfferService, _
- WebBrowserAPI.IID_IProfferService, profferServicePtr)
+ hresult = ocxServiceProvider.QueryService( _
+ WebBrowserAPI.SID_SProfferService, _
+ WebBrowserAPI.IID_IProfferService, profferServicePtr)
Catch ex As SEHException
Catch ex As ExternalException
- TraceOut(ex, "HRESULT:" + ex.ErrorCode.ToString("X8") + Environment.NewLine)
+ TraceOut(ex, "ocxServiceProvider.QueryService() HRESULT:" + ex.ErrorCode.ToString("X8") + Environment.NewLine)
Exit Sub
End Try
@@ -302,8 +303,14 @@
' IProfferService.ProfferService() を使って
' 自分を IInternetSecurityManager として提供
- profferService.ProfferService( _
- WebBrowserAPI.IID_IInternetSecurityManager, Me, cookie:=0)
+ Try
+ hresult = profferService.ProfferService( _
+ WebBrowserAPI.IID_IInternetSecurityManager, Me, cookie:=0)
+ Catch ex As SEHException
+ Catch ex As ExternalException
+ TraceOut(ex, "IProfferSerive.ProfferService() HRESULT:" + ex.ErrorCode.ToString("X8") + Environment.NewLine)
+ Exit Sub
+ End Try
End Sub