delphi读写取流记录文件TFileStream

http://hi.baidu.com/plantsoot/item/bb869cc301b9a52dee46659c 在Dephi中使用TStream读写数据的技巧 在Dephi中提供了一个抽象的数据类型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 Position: Longint; 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数据的读写。 1. SaveToStream(Stream: TStream ); file://将类中的数据写到Stream的当前位置中 2. LoadFromStream(Stream: TStream); file://从当前位置读入Stream里的数据 实际使用时我们基本上只要使用上面两个函数就可以了。 三、 例子 TStream的继承树图如图1所示(略)，实际使用时比较常用的是TFileStream，TMemoryStream，TblobStream，就以这三种流举一例说明具体用法。 创建一个窗体Form1，放置三个按钮btnRead，btnInvert，btnSave和一个文件打开对话框OpenDialog1以及数据控件DataSource1，Table1，test. 使用Dephi提供的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，使得数据库一开始就处于打开状态。 事件代码编写如下： 1. 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; 2. btnInvert的Click事件，这里演示了TMemoryStream的用法。其中使用了Invert函数，这是一个简单的将图象反色的函数（仅对真彩图象有效），它返回一个指向处理过的图象数据块的指针。 var 　M S: TMemoryStream; 　pImage: pointer; begin 　MS:=TMemoryStream.create; 　Image1.Picture.Bitmap.SaveToStream(MS); 　MS.Position:=0; 　pImage:=Invert(MS.Memory, MS.size); file://Memory属性是指向实际内存块的指针 　MS.Write(pImage^,MS.size); 　MS.Position:=0;　　　　 file://上一行代码使指针移到了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; 1. btnSave的Click事件，这里演示了TMemoryStream的另一种用法，将Stream中的数据写到数据库中去。 var 　MS: TMemoryStream; begin 　MS:=TMemoryStream.create; 　Image1.Picture.Bitmap.SaveToStream(MS); 　MS.Position:=0; 　Table1.Append;　 file://在数据库中添加一条记录 　TBlobField(Table1.FieldbyName ('image')).LoadFromStream(MS); 　Table1.Post; 　　　 file://将所作的更新写入数据库 end; 4. DBNavigator1的Click事件，这里演示了TBlobStream的用法，使用了和写入时不同的方法来读出数据库的图象数据。 var 　MS: TStream; begin 　with Table1 do 　MS:=CreateBlobStream (FieldbyName('image'),bmRead); 　Image1.Picture.Bitmap. LoadFromStream(MS); 　MS.Free; end; 1、谈Delphi编程中“流”的利用 什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。流不但可以处理文件，还可以处理动态内存、网络数据等多种数据形式。如果你对流的操作非常熟练，在程序中利用流的方便性，写起程序会大大提高效率的。 下面，笔者通过四个实例:EXE文件加密器、电子贺卡、自制OICQ和网络屏幕传输来说明Delphi编程中“流”的利用。这些例子中的一些技巧曾经是很多软件的秘密而不公开的，现在大家可以无偿的直接引用其中的代码了。 “万丈高楼平地起”，在分析实例之前，我们先来了解一下流的基本概念和函数，只有在理解了这些基本的东西后我们才能进行下一步。请务必认真领会这些基本方法。当然，如果你对它们已经很熟悉了，则可以跳过这一步。 一、Delphi中流的基本概念及函数声明 在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，实际应用中用的次数也非常频繁。它叫内存流，就是说在内存中建立一个流对象。它的基本方法和函数跟上面是一样的。 好了，有了上面�