Класс tFileStream
Класс TFileStream позволяет создать поток для работы с файлами. При этом поток работает с файлом без учета типа хранящихся в нем данных.
Полное имя файла задается в параметре FileName при создании потока:
constructor Create(const FileName: string; Mode: Word);
Параметр Mode определяет режим работы с файлом. Он составляется из флагов режима открытия:
fmCreate - файл создается;
fmOpenRead - файл открывается для чтения;
fmopenwrite - файл открывается для записи;
fmOpenReadWrite — файл открывается для чтения и записи.
И флагов режима совместного использования:
fmShareExciusive - файл недоступен для открытия другими приложениями;
fmShareDenyWrite - другие приложения могут читать данные из файла;
fmShareDenyRead - другие приложения могут писать данные в файл;
fmShareDenyNone - другие приложения могут производить с файлом любые операции.
Для чтения и записи из потока используются методы Read и Write, унаследованные от класса THandleStream:
procedure TForm2.Button1Click(Sender: TObject);
var Stream1, Stream2: TFileStream;
IntBuf: array[0..9] of Integer;
begin
if Not OpenDlg.Execute then Exit;
try
Stream1:=TFileStream.Create(OpenDlg.FileName, fmOpenRead);
Stream1.ReadBuffer(IntBuf, SizeOf(IntBuf));
try
Stream2:=TFileStream.Create('TextFile.tmp', fmOpenWrite);
Stream2.Seek(0, soFromEnd);
Stream2.WriteBuffer(IntBuf, SizeOf(IntBuf));
finally
Stream2.Free;
end;
finally
Stream1.Free;
end;
end;
Обратите внимание, что в данном фрагменте кода функция seek используется для записи данных в конец файлового потока.
При необходимости копирования одного файла в другой целиком используется метод CopyFrom, унаследованный от класса TStream:
procedure TForm2.Button1Click(Sender: TObject);
var Stream1, Stream2: TFileStream;
begin
if Not OpenDlg.Execute then Exit;
try
Stream1:= TFileStream.Create(OpenDlg.FileName, fmOpenRead);
Stream2:= TFileStream.Create('Sample.tmp', fmOpenWrite);
Stream2.Seek(0, soFromEnd);
Stream2.CopyFrom(Stream1, Stream1.Size);
finally
Streaml.Free;
Stream2.Free;
end;
end;
Обратите внимание, что в данном случае идя определения размера передаваемого потока необходимо использовать свойство stream, size, которое дает реальный объем данных, содержащихся в потоке. Функция sizeof (stream) в этом случае даст размер объекта потока, и не более того.
Класс tMemoryStream
Класс TMemoryStream обеспечивает сохранение данных в адресном пространстве. При этом методы доступа к этим данным остаются теми же, что и при работе с файловыми потоками. Это позволяет использовать адресное пространство для хранения промежуточных результатов работы приложения, а также при помощи стандартных методов осуществлять обмен данными между памятью и другими физическими носителями.
Свойство
property Memory: Pointer;
определяет область памяти, отведенную для хранения данных потока. Изменение размера отведенной памяти осуществляется методом
procedure SetSize(NewSize: Longint); override;
Для очистки памяти потока используется метод
procedure Clear;
Чтение/запись данных в память выполняется привычными методами Read и Write.
Также запись данных в память может осуществляться методами:
procedure LoadFromFile(const FileName: string); — из файла;
procedure LoadFromStream(Stream: TStream) ; — из другого потока.
Дополнительно можно использовать методы записи данных в файл или поток:
procedure SaveToFile(const FileName: string);
procedure SaveToStream(Stream: TStream);