Changeset 605 for trunk/ab5.0/ablib/src/Classes/System/IO/StreamReader.ab

Timestamp:

Aug 21, 2008, 7:21:48 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

非同期入出力(Begin/End-Read/Writeメソッド)を実装。

File:

• trunk/ab5.0/ablib/src/Classes/System/IO/StreamReader.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/System/IO/StreamReader.ab

@@ -34 +34 @@
     Override Function Peek() As Long
         If cur = last Then
-            last = s.Read(buf, 0, size)
+            last = s.Read(buf As *Byte, 0, size)
             cur = 0
             If last = 0 Then
@@ -108 +108 @@
         If count > size Then
             n = (count \ size) * size 'sizeの倍数分だけは直接bufferへ読み込ませる
-            Dim read = s.Read(p, 0, n)
+            Dim read = s.Read(p As *Byte, 0, n)
             If read = 0 Then 'EOF
                 Exit Function
@@ -116 +116 @@
             count -= n
         End If
-        last = s.Read(buffer, 0, size)
+        last = s.Read(buffer As *Byte, 0, size)
         cur = 0
         If last = 0 Then 'EOF