在Delphi中使用TStream读写数据

在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。  
  TStream类中定义的属性介绍如下：  
  1、Size:此属性以字节返回流中数据大小。  
  2、Position:此属性控制流中存取指针的位置。  
  Tstream中定义的虚方法有四个：  
  1、Read:此方法实现将数据从流中读出。函数原形为：  
  Function   Read(var   Buffer;Count:Longint):Longint;virtual;abstract;  
  参数Buffer为数据读出时放置的缓冲区，Count为需要读出的数据的字节数，该方法返回值为实际读出的字节数，它可以小于或等于Count中指定的值。  
  2、Write:此方法实现将数据写入流中。函数原形为：  
  Function   Write(var   Buffer;Count:Longint):Longint;virtual;abstract;  
  参数Buffer为将要写入流中的数据的缓冲区，Count为数据的长度字节数，该方法返回值为实际写入流中的字节数。  
  3、Seek:此方法实现流中读取指针的移动。函数原形为：  
  Function   Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;  
  参数Offset为偏移字节数,参数Origint指出Offset的实际意义，其可能的取值如下：  
  soFromBeginning:Offset为移动后指针距离数据开始的位置。此时Offset必须大于或者等于零。  
  soFromCurrent:Offset为移动后指针与当前指针的相对位置。  
  soFromEnd:Offset为移动后指针距离数据结束的位置。此时Offset必须小于或者等于零。  
  该方法返回值为移动后指针的位置。  
  4、Setsize:此方法实现改变数据的大小。函数原形为：  
  Function   Setsize(NewSize:Longint);virtual;  
  另外，TStream类中还定义了几个静态方法：  
  1、ReadBuffer:此方法的作用是从流中当前位置读取数据。函数原形为：  
  Procedure   ReadBuffer(var   Buffer;Count:Longint);  
  参数的定义跟上面的Read相同。注意：当读取的数据字节数与需要读取的字节数不相同时，将产生EReadError异常。  
  2、WriteBuffer:此方法的作用是在当前位置向流写入数据。函数原形为：  
  Procedure   WriteBuffer(var   Buffer;Count:Longint);  
  参数的定义跟上面的Write相同。注意：当写入的数据字节数与需要写入的字节数不相同时，将产生EWriteError异常。  
  3、CopyFrom:此方法的作用是从其它流中拷贝数据流。函数原形为：  
  Function   CopyFrom(Source:TStream;Count:Longint):Longint;  
  参数Source为提供数据的流，Count为拷贝的数据字节数。当Count大于0时，CopyFrom从Source参数的当前位置拷贝Count个字节的数据；当Count等于0时，CopyFrom设置Source参数的Position属性为0,然后拷贝Source的所有数据；  
  TStream还有其它派生类，其中最常用的是TFileStream类。使用TFileStream类来存取文件，首先要建立一个实例。声明如下：  
  constructor   Create(const   Filename:string;Mode:Word);  
  Filename为文件名（包括路径）,参数Mode为打开文件的方式，它包括文件的打开模式和共享模式，其可能的取值和意义如下：  
   
  打开模式：  
  fmCreate   :用指定的文件名建立文件，如果文件已经存在则打开它。  
  fmOpenRead   :以只读方式打开指定文件  
  fmOpenWrite   :以只写方式打开指定文件  
  fmOpenReadWrite:以写写方式打开指定文件  
  共享模式：  
  fmShareCompat   :共享模式与FCBs兼容  
  fmShareExclusive:不允许别的程序以任何方式打开该文件  
  fmShareDenyWrite:不允许别的程序以写方式打开该文件  
  fmShareDenyRead   :不允许别的程序以读方式打开该文件  
  fmShareDenyNone   :别的程序可以以任何方式打开该文件  
   
  TStream还有一个派生类TMemoryStream，实际应用中用的次数也非常频繁。它叫内存流，就是说在内存中建立一个流对象。它的基本方法和函数跟上面是一样的。  
  好了，有了上面的基础后，我们就可以开始我们的编程之行了。  

 

在Delphi中使用TStream读写数据

在Delphi 中提供了一个抽象的数据类型TStream 来支持对流式数据的操作。这些数据通常来自文件、数据库、内存对象、OLE 对象等，TStream 提供了统一、简洁的方法来进行数据的读写。在通常情况下，我们并不需要直接使用TStream 类，对流式数据的读写封装在VCL 控件的方法中。但是如果这些方法无法满足我们的要求，就需要自己手动控制数据的读写。

一、TStream 的常用的方法和属性

　　1、function Read(var Buffer; Count: Longint): Longint; virtual; abstract
　　2、function Write(const Buffer; Count: Longint): Longint; virtual; abstract;
　　3、function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract;
　　4、property ;
　　5、property Size: Longint

　Read、Write、Seek 都是纯虚函数，提供了数据读写和定位的抽象方法。Read 方法将数据从Stream 中读到Buffer 缓冲区中，Write 则实现相反的操作，返回值表示实际读写数据的大小。Seek 提供了在Stream 中移动数据指针的方法。参数Origin 可以取soFromBeginning、soFromCurrent、soFromEnd 三个值，Offset 是偏移量，返回值是当前Stream 数据指针的位置。

　　Position 表示了数据指针在Stream 中的位置。这个属性是可读写的，它实际上就是通过调用Seek 方法实现的，所以实际使用时使用这个属性更为方便一些。Size 属性表示当前Stream 的大小，对于不同的Stream，有些时候是只读的。

二、Stream 数据的读写

SaveToStream(Stream: TStream ); // 将类中的数据写到Stream 的当前位置中
LoadFromStream(Stream: TStream); // 从当前位置读入Stream 里的数据
　　实际使用时我们基本上只要使用上面两个函数就可以了。

三、例子

　　TStream 的继承树图如图1 所示，实际使用时比较常用的是TFileStream、TMemoryStream、TblobStream。以下这三种流举一例说明具体用法。
　　创建一个窗体Form1，放置三个按钮btnRead、btnInvert、btnSave 和一个文件打开对话框OpenDialog1 以及数据控件DataSource1，Table1，test。

　　使用Delphi 提供的Database Desktop 创建一个表test，表里有一个字段域Image，数据库文件名存为test.db。在窗体上放置一个TDatabase 控件dbTest，一个TTable 控件Table1, 一个DataSource 控件DataSource1, 一个TDBNavigator 控件DBNavigator1。将dbTest 与刚才Desktop 创建的数据库相连，Table1 的TableName 属性设为test.db，DataSource1 的DataSet 属性设为Table1，DBNavigator1 的DataSource 属性设为DataSource1，VisibleButtons 属性前四个设为TRUE。此外，将dbtest 的Connected 设为TRUE，Table1 的Active 属性设为TRUE，使得数据库一开始就处于打开状态。

　　事件代码编写如下：

btnRead 的Click 事件，这里演示了TFileStream 的用法。
var
　MS: TFileStream;
begin
　if OpenDialog1.Execute then
　begin
MS:=TFileStream.Create
(OpenDialog1.FileName, fmOpenRead);
　　Image1.Picture.Bitmap.LoadFromStream(MS);
　　MS.Free;
　end;
end;
btnInvert 的Click 事件，这里演示了TMemoryStream 的用法。其中使用了Invert 函数，这是一个简单的将图像反色的函数（仅对真彩图像有效），它返回一个指向处理过的图像数据块的指针。
var
　MS: TMemoryStream;
　pImage: pointer;
begin
　MS:=TMemoryStream.create;
　Image1.Picture.Bitmap.SaveToStream(MS);
　MS.;
　pImage:=Invert(MS.Memory, MS.size);　
//Memory 属性是指向实际内存块的指针
　MS.Write(pImage^,MS.size);
　MS.;
// 上一行代码使指针移到了Stream 末尾，
　 所以要复位
　Image1.Picture.Bitmap.LoadFromStream(MS);
　FreeMem(pImage);
　MS.Free;
end;
Invert 函数如下：
function TForm1.Invert(pImage: pointer;
size: Integer): pointer;
var
　pData, pMem: PChar;
　i: Integer;
begin
　pMem:=AllocMem(size);
　CopyMemory(pMem,pImage,size);
　pData:=pMem ＋54;
　for i:=0 to size －54 －1 do
　begin
　　pData^:=Char(not integer(pData^));
　　pData:=pData ＋1;
　end;
　Result:=pMem;
end;
btnSave 的Click 事件，这里演示了TMemoryStream 的另一种用法，将Stream 中的数据写到数据库中去。
var
　MS: TMemoryStream;
begin
　MS:=TMemoryStream.create;
　Image1.Picture.Bitmap.SaveToStream(MS);
　MS.;
　Table1.Append;　// 在数据库中添加一条记录
　TBlobField(Table1.FieldbyName('image')).Load
FromStream(MS);
　Table1.Post;　// 将所作的更新写入数据库
end;
DBNavigator1 的Click 事件，这里演示了TBlobStream 的用法，使用了和写入时不同的方法来读出数据库的图像数据。
var
　MS: TStream;
begin
　with Table1 do
　MS:=CreateBlobStream(FieldbyName('image'),bmRead);
　Image1.Picture.Bitmap.LoadFromStream(MS);
　MS.Free;
end;
　　现在你已经能够在文件、数据库、内存中任意读写数据流了。试试看吧！

 

SendStream(AStream: TStream; ASize: Integer);
var
  nSize: Integer;
  p: Pointer;//定义指针
begin
  GetMem(p, 102400);//分配内存
  try
    AStream.Position := 0;//定位数据读取位置到0
    if ASize > 0 then
      nSize := ASize//要操作数据大小负值
    else
    begin
      nSize := AStream.Size;
      WriteBuffer(nSize, SizeOf(nSize));//应该是基于tcp的连接 向对方发送SizeOf(nSize)大小的数据
      //WriteBuffer 表示的是向nsize写长度SizeOf(nSize))数据，从调用它的Stream中取数据，
     //这个没有调用者阿，它是什么意思呢？
    end;
    repeat
      if nSize > 102400 then
        nSize := 102400;  //最大长度设置
      nSize := AStream.Read(p^, nSize);//写数据到p 指向的地址
      WriteBuffer(p^, nSize);// 应该是基于tcp的连接 向对方发送 nSize 大小的数据
 //WriteBuffer 表示的是向nsize写长度SizeOf(nSize))数据，从调用它的Stream中取数据，
     //这个没有调用者阿，它是什么意思呢？

      nSize := AStream.Size - AStream.Position;  //发送下一个包
    until nSize = 0;
  finally
    FreeMem(p);
  end;
end;