Delphi 中的 TFileStream，数据流

Delphi 中的 TFileStream，数据流

TFileStream，是TStream的后代类。由于 TStream 是一个抽象类，我们需要它的后代来管理不同类型的数据，例如 Files。

使用TFileStream，我们可以在任何类型的存储中记录或读取操作系统文件系统中的数据。

对于很多有多年经验的程序员来说，从经典的文件处理方式转换到这些新的类，让我们大吃一惊，使用TFileStream相对于著名的Rewrite、WriteLn等，优势在于TFileStream自动控制文件。 disk buffer，取决于您操作系统的大小，我们忘记了这个问题。

TFileStream 示例

在以下示例中，我们将看到在函数中使用TFileStream来压缩文件：

Uses System.ZLib

...

procedure CompressFile(vFileInput, vFileOutput: string);

var

  vInput: TFileStream;

  vOutput: TFileStream;

  vZip: TZCompressionStream;

begin

  vInput := TFileStream.Create(vFileInput, fmOpenRead);

  vOutput := TFileStream.Create(vFileOutput + '.zip', fmCreate);

  vZip := TZCompressionStream.Create(clDefault, vOutput);

  vZip.CopyFrom(vInput, vInput.Size);

  { Liberamos de memoria los objetos }

  vZip.Free;

  vInput.Free;

  vOutput.Free;

end;

从TFileStream的使用来看，这个例子非常清楚，我们只创建了一个对象来读取要压缩的文件，名为vInput，我们创建了另一个具有文件名的目的地。zip称为vOutput。

最后，我们创建类型的对象TZCompressionStream称为VZIP其压缩在目标文件（VOUTPUT）中的数据和记录它。

很简单，从这里开始，极限由你的想象力来设定。