关闭

TStream 类

258人阅读 评论(0) 收藏 举报

TStream 类

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

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

 

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:62423次
    • 积分:1163
    • 等级:
    • 排名:千里之外
    • 原创:56篇
    • 转载:4篇
    • 译文:0篇
    • 评论:9条
    文章分类