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 返回实际拷贝的字节数}