DosStream Objects
+------------+ | TObject | +-----+------+ +-----+------+ | TStream | +-----+------+ +=====+======+ | TDosStream | +=====+======+ +-----+------+ | TBufStream | +------------+
TDosStream - это специализированный TStream, реализующий небуферизованный поток файла DOS. Констрактор позволяет Вам создать или открыть файл DOS, задав его имя и режим доступа: stCreate, stOpenRead, stOpenWrite или stOpen. Добавляется поле Handle - обработчик традиционного файла DOS, используемый для доступа к открытому файлу. Большинство программ будут использовать буферизованный поток TBufStream, порожденный от TDosStream. TDosStream перекрывает все абстрактные методы TStream, за исключением TStream.Flush.
Поля
Handle: Word; Только чтение Handle - это обработчик файла DOS используемый только для доступа к открытому файлу потока.
Методы
Init constructor Init(FileName: FNameStr; Mode: Word); Создает поток файла DOS с именем FileName и заданным режимом доступа. Если успешно, поле Handle устанавливается в обработчик файла DOS. Ошибка указывается вызовом Error с аргументом stInitError. Аргумент Mode должен принимать одно из значений: stCreate, stOpenRead, stOpenWrite или stOpen. Эти константы объяснены в "Константы потока stXXXX" главы 14.
Done destructor Done; virtual; Перекрывается: Никогда Закрывает и освобождает поток файла DOS
См. так же: TDosStream.Init
GetPos function GetPos: Longint; virtual; Перекрывается: Никогда Возвращает значение текущей позиции в потоке.
См. так же: TDosStream.Seek
GetSize function GetSize: Longint; virtual; Перекрывается: Никогда Возвращает размер потока в байтах.
Read procedure Read(var Buf; Count: Word); virtual; Перекрывается: Никогда Читает Count байт в буфер Buf, начиная с текущей позиции потока.
См. так же: TDosStream.Write, stReadError
Seek procedure Seek(Pos: Longint); virtual; Перекрывается: Никогда Устанавливает текущую позицию в Pos байт от начала потока.
См. так же: TDosStream.GetPos, TDosStream.GetSize
Truncate procedure Truncate; virtual; Перекрывается: Никогда Удаляет все данные текущего потока от текущей позиции до конца потока.
См. так же: TDosStream.GetPos, TDosStream.Seek
Write procedure Write(var Buf; Count: Word); virtual; Пишет Count байт из буфера Buf в поток, начиная с текущей позиции.
См. так же: TDosStream.Read, stWriteError
