TStream 类

TStream 类

所谓"流", 就是一段数据或是一块内存;

在进行流操作时, 我们不必关心流中的数据到底是什么; 只需要知道流的大小和当前的指针位置. 所以流只有两个属性: 
Size、Position.
对流的操作, 不过就是读取和写入. 所以流最主要的方法就是 Read 和 Write.
在很多控件的使用中, 读取主要用 LoadFromStream，LoadFromFile; 写入主要用 SaveToStream，SaveToFile。

 

TStream 是一个抽象的基类, 不能直接生成对象. 在具体的应用中, 主要使用它的子孙类:

TFileStream: 文件流
TStringStream: 字符串流
TMemoryStream: 内存流
TResourceStream: 资源文件流

THandleStream: 是 TFileStream 的父类、TStream 的子类
TCustomMemoryStream: 是 TMemoryStream 和 TResourceStream 的父类、TStream 的子类

与流相关的常用类还有: TReader、TWriter、TCompressionStream、TDecompressionStream

 

例：

mStream := TMemoryStream.Create;        {TStream 是抽象类, 只能通过其子类实例化; 这里我们用了内存流来生成实例}Memo1.Lines.Text := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';      {给 Memo1 个初始值}

Memo1.Lines.SaveToStream(mStream);         {把 Memo1 中的内容写入到流}

ShowMessage(IntToStr(mStream.Size));           {26, 当前流的大小}

ShowMessage(IntToStr(mStream.Position));         {26, 当前流的指针}

 

mStream.Position := 4;    {调整流的当前指针位置}

Memo2.Lines.LoadFromStream(mStream);      {读出流中的内容到 Memo2}

{ 现在 Memo2 中的内容应该是: EFGHIJKLMNOPQRSTUVWXYZ

如果 Position 是 0, Memo2 读出的内容会是: ABCDEFGHIJKLMNOPQRSTUVWXYZ

如果 Position 等于 Size, 在这里如果是 26, Memo2 就读不出什么了. }

 

mStream.Free; {流释放时, 所用内存当然也会同时释放}

 

{把字符指针指向内存流}

var pc: PChar;

pc := mStream.Memory; 

 

{定义个字符缓冲区}

var buffer: array[0..2] of Char; 

mStream.Seek(0, soFromBeginning); mStream.Read(buffer, SizeOf(buffer));

{关于 Seek 函数: 参数1: Offset 是偏移量; 参数2: Origin 是指针的基准位置, 有三个选值: soFromBeginning、soFromCurrent、soFromEnd soFromBeginning: 以开始为基准, 此时参数 Offset 要 >= 0; soFromCurrent: 以当前位置为基准; soFromEnd: 以结束为基准; 此时参数 Offset 要 <= 0; 返回: 指针新位置 }

 

TFileStream(文件流) 读写

var getStream,setStream: TFileStream; {声明一个文件流}

  getPath,setPath: string;

getStream := TFileStream.Create(getPath, fmOpenRead or fmShareExclusive); setStream := TFileStream.Create(setPath, fmCreate); {建立文件流需要两个参数: 参数 1 是路径, 参数 2 是打开模式}

getStream.Position := 0; {流指针移到开始, 复制时从这里开始}

setStream.CopyFrom(getStream, getStream.Size); {Copy 流}

{CopyFrom 的参数 2 是要复制的内容大小; 如果为 0 , 不管指针在什么位置都会复制所有内容}

{CopyFrom 返回实际拷贝的字节数}