Delphi TStream文件处理 3

Delphi支持流，流包括文件、字符串、内存、二进制块、套接字、嵌入式对象等数据源。

Delphi定义TStream类作为所有流类的父类，TStream类有多个子类，每个子类分别处理特定的一种流

。

9.4.2 TStream类

TStream类是所有流类的父类，其中定义了所有流的共同属性和方法。TStream是抽象类，不能创建该类的实例。TStream类定义在Classes单元中。

 

1．TStream类的属性

对流的读/写操作，每次所能读出/写入的字节数取决于流对象自身的大小，而读出/写入的数据与流对象中当前数据位置有关。

因此，TStream类定义了两个属性Size与Position，Size属性指定流对象的大小，Position属性为在流中进行读/写操作指定当前位置。

 

2．TStream类的方法

作为所有实际使用的所有流类的共同父类，

TStream类设计成抽象类，为所有子类提供共同的属性和方法声明。

故TStream类中定义的方法大部分是虚方法和抽象方法，没有给出这些方法的具体实现，而必须由子类根据不同流的特性给出方法的具体实现。

 

TStream中定义的方法说明如下。

（1）Read虚方法。

该方法从流中读取指定数目的字节数据到缓冲区，并自动控制流指针的位置。声明  如下：

function Read(var Buffer; Count: Longint): Longint;virtual; abstract;

其中，参数Buffer为数据读出时存放的缓冲区，Count为需要读取数据的字节数，该方法返回值为实际读取的字节数，它可以小于或等于Count中指定的值。

（2）Write虚方法。

Write虚方法从缓冲区向流中写指定数目的字节数据，流指针自动移位。声明如下：

function Write(var Buffer; Count: Longint): Longint; virtual; abstract;

其中，参数Buffer为将要写入流的数据缓冲区，Count为数据的长度字节数，该方法返回值为实际写入流中的字节数。

（3）Seek虚方法。

Seek虚方法将文件流指针移动若干位置，返回移动后的指针位置。声明如下：

function Seek(Offset: Longint; Origin: Word): Longint; overload; virtual;

其中，Offset参数为移动字节数，Origin指定文件流指针的起始位置，Origin的取值和意义见表9-2。

表9-2 Origin的取值和意义

取   值	常 量 值	意   义
soFromBeginning	1	文件流的开始位置
soFromCurrent	2	文件流的当前位置
soFromEnd	3	文件流的结尾位置

（4）CopyFrom方法。

CopyFrom方法从指定文件流中复制指定数目的字节，并自动移动文件流指针，返回实际复制的字节数。声明如下：

function CopyFrom(source: TStream; count: LongInt): LongInt;

其中，source参数为源数据流，count为待复制的字节数。当count>0时，CopyFrom从source的当前位置复制count字节；当count=0时，CopyFrom复制source的所有数据，并设置source的Position属性为0。

 

（5）WriteComponent方法。

WriteComponent方法将组件的初始化及属性信息写入流中。方法声明如下：

procedure WriteComponent(Instance: TComponent);

 

3．TStream类的子类

TStream类是抽象类，提供流操作的共同属性和方法，而没有提供对数据保存的直接支持。

TStream类的子类表示特定的流类，每个子类分别处理一种流。

实际使用时，根据数据的性质，创建TStream类的子类对象。例如，使用TFileStream类进行文件操作，使用TMemoryStream类处理内存中的流。

从TStream类继承的子类必须覆盖Read、Write和Seek等虚方法，实现数据流的具体操作。TStream类的子类说明如下：

（1）TFileStream文件流，用于磁盘文件的读写操作。

（2）TStringStream字符串流，提供类似文件操作方式从长字符串中读写信息。

（3）TMemoryStream内存流，用于动态内存中的数据流的读写操作。

（4）TBlobStream块操作流，提供blob类型的数据流的读写操作。

（5）TwinSocketStream，用于以Socket方式连接的数据流的读写操作。

（6）TOleStream，为嵌入式对象提供数据流的读写操作。

 

9.4.3 TFileStream类

TFileStream类是TStream类的子类，它继承了TStream类的属性和方法。使用TFileStream类进行文件存取操作，首先要建立TFileStream类的实例。其构造方法Create声明如下：

constructor Create(const FileName; string; Mode: Word);

其中，参数FileName为包括路径的文件全名；Mode为文件打开方式，包括打开模式和共享模式，其取值和含义见表9-3。

表9-3 Mode参数的取值和含义

模   式	取   值	含   义
打开模式	fmCreate	用指定的文件名打开它，若文件已存在则打开
	fmOpenRead	以只读方式打开指定文件
	fmOpenWrite	以只写方式打开指定文件
	fmOpenRreadWrite	以读写方式打开指定文件
共享模式	fmShareCompat	共享模式与FCBs相兼容
	fmShareExclusive	独占方式打开指定文件
	fmShareDenyWrite	不允许别的程序以写的方式打开
	fmShareDenyRead	不允许别的程序以读的方式打开
	fmShareDenyNone	别的程序可以任何方式打开

例如，希望以只读的方式打开'E:\Temp\A.dat'文件，且不允许其他程序同时对该文件进行写操作，创建TFileStream类实例的语句如下：

f=TFileStream.Create('E:\Temp\A.dat', fmOpenRead or fmShareDenyWrite);

如果不指定共享模式，则默认值为fmShareExclusive。如果打开文件失败，则产生异常。

TFileStream类的Read、Write、CopyFrom等方法覆盖父类TStream的同名方法，实现文件的读、写、复制等操作。操作结束后，必须释放文件对象，以释放资源和数据缓冲区。

 

9.4.4 读/写流的类方法

许多类提供从流中读/写数据的LoadFromStream( )和SaveToStream( )方法，声明如下：

procedure LoadFromStream(Stream:TStream);

procedure SaveToStream(Stream:TStream);

其中，Stream可以为TStream子类的任何对象。

拥有这两个读写流方法的类有TStrings类、TGraphic类及其子类TBitmap、TIcon类、TPicture类和TMemoryStream类