Changeset 615 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab

Timestamp:

Aug 24, 2008, 5:28:59 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

サブクラス化機構(Control.Attach)の整備

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab

@@ -112 +112 @@
 @brief  Windowsのエラー値を基に例外を投げる
 @param[in] dwErrorCode  Win32エラーコード
+@param[in] msg  補足説明
 @throw WindowsException 常に投げられる。
 @date 2008/07/13
 @auther Egtra
 */
-Sub ThrowWithErrorCode(dwErrorCode As DWord)
-    Throw New WindowsException(HRESULT_FROM_WIN32(dwErrorCode))
+Sub ThrowWithErrorCode(dwErrorCode As DWord, msg = Nothing As String)
+    Throw New WindowsException(HRESULT_FROM_WIN32(dwErrorCode), msg)
 End Sub
-
 /*!
-@brief 内部でGetLastErrorを呼んで、その値を基に例外を投げる。
-@throw WindowsException 常に投げられる。
+@brief WindowsExceptionを投げるラッパ。直前に呼び出したAPI関数などが失敗したときに用いる。
+@param[in] msg 補足説明
+@throw WindowsException 常に投げられる。
+@date 2008/08/20
+@auther Egtra
+WindowsExceptionを構築する際、GetLastError()の値を渡す。
+この関数では、直前のAPI関数が成功したかどうかを調べられないことに注意。
+*/
+Sub ThrowWithLastError(msg = Nothing As String)
+    ThrowWithErrorCode(GetLastError(), msg)
+End Sub
+/*!
+@brief （主にuser32の全部、gdi32の一部が対象）WindowsExceptionを投げるラッパ。直前に呼び出したAPI関数などが失敗したときに用いる。
+@param[in] msg 補足説明
+@throw WindowsException 常に投げられる。
 @date 2008/08/26
 @auther Egtra
+user32やgdi32の一部など、9xではGetLastErrorでエラーメッセージが取得できないものがある。
+そのため、9xでは一律にmsgのみでWindowsExceptionを構築して投げるようにしている。
+
+ところで、CEではNT同様GetLastErrorが使用できるため、
+CEへの移植を仮定すると、関数名にNTと付けるのがそぐわないと感じる。代案募集中。
 */
-Sub ThrowWithLastError()
-    ThrowWithErrorCode(GetLastError())
+Sub ThrowWithLastErrorNT(msg As String)
+    If Not Version.Is9x() Then
+        ThrowWithErrorCode(GetLastError(), msg)
+    Else
+        Throw New WindowsException(msg)
+    End If
 End Sub
 /*!
 @brief  HRESULT値を基に例外を投げる。
-@date   2008/07/13
-@param[in] hr   HRESULT値
+@param[in] hr HRESULT値
+@param[in] msg 補足説明
 @throw WindowsException FAILED(hr)が真の場合
-@auther Egtra
+@date 2008/07/13
+@auther Egtra
 hrが成功値 (FAILED(hr) = False) の場合、この関数は何も行わない。
 */
-Sub ThrowIfFailed(hr As HRESULT)
+Sub ThrowIfFailed(hr As HRESULT, msg = Nothing As String)
     If FAILED(hr) Then
-        Throw New WindowsException(hr)
+        Throw New WindowsException(hr, msg)
     End If
 End Sub