source: trunk/ab5.0/ablib/src/Classes/System/IO/Stream.ab@ 605

Namespace System
Namespace IO


Class Stream
    Implements IDisposable

Protected
    Sub Stream()
    End Sub
Public
    Sub ~Stream()
        This.Dispose(False)
    End Sub
Public
    Abstract Function CanRead() As Boolean
    Abstract Function CanSeek() As Boolean

    Virtual Function CanTimeout() As Boolean
        Return False
    End Function

    Abstract Function CanWrite() As Boolean
    Abstract Function Length() As QWord
    Abstract Sub Position(value As QWord)
    Abstract Function Position() As QWord

    Virtual Sub ReadTimeout(value As Long)
        Throw New InvalidOperationException("Stream does not support Timeout.")
    End Sub

    Virtual Function ReadTimeout() As Long
        Throw New InvalidOperationException("Stream does not support Timeout.")
    End Function

    Virtual Sub WriteTimeout(value As Long)
        Throw New InvalidOperationException("Stream does not support Timeout.")
    End Sub

    Virtual Function WriteTimeout() As Long
        Throw New InvalidOperationException("Stream does not support Timeout.")
    End Function

Public
    Virtual Function BeginRead(buffer As *Byte, offset As Long, count As Long, callback As AsyncCallback, state As Object) As System.IAsyncResult
        Dim r = Read(buffer,offset,count)
        Return New Detail.SyncStreamResultImpl(r, state)
    End Function
    Virtual Function BeginWrite(buffer As *Byte, offset As Long, count As Long, callback As AsyncCallback, state As Object) As System.IAsyncResult
        Write(buffer,offset,count)
        Return New Detail.SyncStreamResultImpl(0, state)
    End Function
    Sub Close()
        Dispose(True)
    End Sub
    Sub Dispose()
        Dispose(True)
    End Sub
    Virtual Function EndRead(asyncResult As System.IAsyncResult) As Long
        Dim ar = asyncResult As Detail.IAsyncStreamResult
        EndRead = ar.WaitAndGetResult
    End Function
    Virtual Sub EndWrite(asyncResult As System.IAsyncResult)
    End Sub
    Abstract Sub Flush()
    Abstract Function Read(buffer As *Byte, offset As Long, count As Long) As Long

    Virtual Function ReadByte() As Long
        Dim b As Byte
        Dim ret = Read(VarPtr(b), 0, 1)
        If ret <> 0 Then
            Return b
        Else
            Return -1
        End If
    End Function

    Abstract Function Seek(offset As Int64, origin As SeekOrigin) As Int64
    Abstract Sub SetLength(value As QWord)
    Abstract Sub Write(buffer As *Byte, offset As Long, count As Long)
    Virtual Sub WriteByte(b As Byte)
        Write(VarPtr(b), 0, 1)
    End Sub
Protected
    Virtual Sub Dispose(disposing As Boolean)
    End Sub
End Class


End Namespace
End Namespace