Changeset 687 for trunk

Timestamp:

Mar 11, 2009, 3:13:14 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

ReadConsoleのバッファサイズにSizeOf(TCHAR)をかけ算するよう修正（WriteConsoleはかけ算不要の模様）

File:

• trunk/ab5.0/ablib/src/Classes/System/Console.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Console.ab

@@ -696 +696 @@
         Dim p = StrPtr(b)
         Dim read As DWord
-        If ReadConsole(h, VarPtr(p[currentBufLength]), 256, read, 0) = 0 Then
+        If ReadConsole(h, VarPtr(p[currentBufLength]), 256 * SizeOf (TCHAR), read, 0) = 0 Then
             IO.Detail.ThrowWinLastErrorIOException()
         End If