Changeset 687 for trunk

Timestamp:

2009/03/11 15:13:14 (3 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