TStream 类

原创 2011年01月13日 18:07:00

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

相关文章推荐

TStream类概述

  • 2009年07月26日 10:39
  • 37KB
  • 下载

改良版TStream类

  • 2006年02月23日 09:05
  • 90KB
  • 下载

Delphi 流文件操作TStream类

数据流是面向对象程序设计语言中面向对象思想的典型体现,它彻底地取代了早期的利用函数实现输入输出的功能,克服了用函数实现输入输出功能的诸多弊端。简单来说,流就是建立在面向对象基础上的一种抽象的处理数据的...

开发Delphi对象式数据管理功能 TStream流类

20.1.1.2 TStream的实现原理     TStream对象是Stream对象的基础类,这是Stream对象的基础。为了能在不同媒介上的存储数据对象,后继的Stream对象主要是在Rea...

delphi 流 TStream 属性 方法

在delphi中,所有流对象的基类为TStream类,其中定义了所有流的共同属性和方法。 一、属性 1、Size 此属性以字节返回流中数据大小。 2、Position 此属性控制流中存取指针...

在Dephi中使用TStream读写数据的技巧

在Dephi中使用TStream读写数据的技巧,如何往TStream中存放二进制数据流
  • zthsss
  • zthsss
  • 2011年05月14日 15:41
  • 81

Delphi TStream文件处理 3

Delphi支持流,流包括文件、字符串、内存、二进制块、套接字、嵌入式对象等数据源。 Delphi定义TStream类作为所有流类的父类,TStream类有多个子类,每个子类分别处理特定的一种流...

Delphi 2009 中 TStrings 与 TStream 的增强

====================================================== 注:本文源代码点此下载 =============================...

Delphi 流 Tstream 2

这几天为网友逆向一个图片加密算法,结果算法容易,但是到写代码时写得一肚子火,因为把文件读写的基本函数忘掉了。 连流对象的几个基本属性和方法都忘了运用,浪费不少时间,后来还是上网搜索一翻,终于搞定。还...

写ORC 格式文件,HIVE 工具类

  • 2017年11月16日 14:48
  • 9KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:TStream 类
举报原因:
原因补充:

(最多只允许输入30个字)