Changeset 348

Timestamp:

Sep 30, 2007, 12:26:35 AM (17 years ago)

Author:

NoWest

Message:

Disposeメソッドを実装しました。

File:

• trunk/Include/Classes/System/IO/FileStream.ab (modified) (6 diffs)

trunk/Include/Classes/System/IO/FileStream.ab

@@ -243 +243 @@
 
 Public
-    Override Function BeginRead(ByRef buffer[] As Byte, offset As Long, count As Long, callback As AsyncCallback, state As Object) As System.IAsyncResult
+    Override Function BeginRead(buffer As *Byte, offset As Long, count As Long, callback As AsyncCallback, state As Object) As System.IAsyncResult
         If This.IsAsync() Then
         Else
@@ -250 +250 @@
     End Function
 
-    Override Function BeginWrite(ByRef buffer[] As Byte, offset As Long, count As Long, callback As AsyncCallback, state As Object) As System.IAsyncResult
+    Override Function BeginWrite(buffer As *Byte, offset As Long, count As Long, callback As AsyncCallback, state As Object) As System.IAsyncResult
         If This.IsAsync() Then
         Else
@@ -258 +258 @@
 
     Override Sub Close()
-        CloseHandle(This.handle)
+        This.Dispose()
     End Sub
 
 /*  CreateObjRef*/
-/*  Dispose*/
+    
+    Override Sub Dispose()
+        CloseHandle(InterlockedExchangePointer(VarPtr(This.handle),NULL))
+    End Sub
 
     Override Function EndRead(ByRef asyncResult As System.IAsyncResult) As Long
@@ -270 +273 @@
     Override Sub EndWrite(ByRef asyncResult As System.IAsyncResult)
         'TODO
-    End Sub
+    End Function
 
 /*  Equals*/
@@ -342 +345 @@
                 seek.LowPart=LODWORD(offset)
                 seek.HighPart=HIDWORD(offset)
-                If seek.HighPart=0 And offset<0 Then seek.LowPart=-seek.LowPart
                 Select Case origin
                     Case SeekOrigin.Begin
@@ -396 +398 @@
     End Sub
 
+
 Protected
     Override Function CreateWaitHandle() As System.Threading.WaitHandle