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

Delphi TStream文件处理 3

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

Delphi 流文件操作TStream类

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

在Delphi中使用TStream读写数据

在Delphi中,所有流对象的基类为TStream类,其中定义了所有流的共同属性和方法。     TStream类中定义的属性介绍如下:     1、Size:此属性以字节返回流中数据大小。     ...
  • aluyue
  • aluyue
  • 2008年04月19日 15:48
  • 2582

Istream用法

procedure TForm1.Button1Click(Sender: TObject);      var       memoStream,OleStream:TStream;      ...
  • fyl_077
  • fyl_077
  • 2015年03月09日 23:53
  • 482

GDI+ 在Delphi、C++Builder程序的应用 -- IStream

        GDI+的Image及派生类中涉及到IStream流,在Delphi和C++Builder中广泛使用的TStream不能直接作为参数进行传递,VCL提供了一个TStreamAdapte...
  • maozefa
  • maozefa
  • 2007年07月12日 00:35
  • 9229

利用DataSnap进行数据流(TStream)的传递

DataSnap服务器可以通过方法调用向客户端返回数据流,当然,也可以从客户端向服务器上传数据流,都是通过方法调用的方式来实现的。下面以一个简单的例子来演示。 服务器端实现: {$METHODINFO...
  • ddqqyy
  • ddqqyy
  • 2011年02月15日 13:57
  • 4046

苛评VCL: 混乱的TStream

2007年02月05日 08:46:00 为什么这么苛刻地来评论VCL的基础类设计,我已经在前一篇关于TObject的文章中讲过。今天我拿出在一次跟踪VCL代码的过程中发现的问题。在此之前,我...
  • softart
  • softart
  • 2007年10月27日 20:08
  • 384

流和字节的转换

为防止找不到相关内容,所以,在这里留一个印记。  /////--------流转换Begin------- ////////////////// function StreamToBytes(aStr...
  • rell336
  • rell336
  • 2015年03月20日 16:04
  • 784

Delphi中支持Unicode的TStrings类

 unit WideStrings;interfaceuses classes,SysUtils;type  TWString = record    WString: WideString;  en...
  • Raoxk
  • Raoxk
  • 2007年08月27日 22:33
  • 1232

GDI+中TGPImage从流中加载图像

头部定义: encoderClsid: TGUID; encoderParameters: TEncoderParameters; Stream:TStreamAdapter; Me...
  • genispan
  • genispan
  • 2014年04月21日 20:48
  • 1247
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:TStream 类
举报原因:
原因补充:

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