流式对象的实现原理和应用

流式对象的实现原理和应用  
 
  Stream对象,又称流式对象,是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的统称。它们分别代表了在各种媒介上存储数据的能力,它们将各种数据类型(包括对象和部件)    
在内存、外存和数据库字段中的管理操作抽象为对象方法,并且充分利用了面向对象技术的优点,应用程序可以相当容易地在各种Stream对象中拷贝数据。  
  下面介绍各种对象的数据和方法及使用方法。  
 
20.1.1   TStream对象  
 
  TStream对象是能在各种媒介中存储二进制数据的对象的抽象对象。从TStream   对象继承的对象用于在内存、Windows资源文件、磁盘文件和数据库字段等媒介中存储数据。  
  TStream中定义了两个属性:Size和Position。它们分别以字节为单位表示的流的大小和当前指针位置。TStream中定义的方法用于在各种流中读、写和相互拷贝二进制数据。因为所有的Stream对象都是从TStream中继承来的,所以在TStream中定义的域和方法都能被Stream对象调用和访  
问。此外,又由于面向对象技术的动态联编功能,TStream为各种流的应用提供了统一的接口,简化了流的使用;不同Stream对象是抽象了对不同存储媒介的数据上的操作,因此,TStream的需方法为在不同媒介间的数据拷贝提供了最简捷的手段。  
 
20.1.1.1   TStream的属性和方法  
 
  1.   Position属性   
        声明:property   Position:   Longint;    
  Position属性指明流中读写的当前偏移量。  
  2.   Size属性  
  声明:property   Size:   Longint;    
        Size属性指明了以字节为单位的流的的大小,它是只读的。  
  3.   CopyFrom方法  
  声明:function   CopyFrom(Source:   TStream;   Count:   Longint):   Longint;    
        CopyFrom从Source所指定的流中拷贝Count个字节到当前流中,   并将指针从当前位置移动Count个字节数,函数返回值是实际拷贝的字节数。  
  4.   Read方法  
  声明:function   Read(var   Buffer;   Count:   Longint):   Longint;   virtual;   abstract;    
        Read方法从当前流中的当前位置起将Count个字节的内容复制到Buffer中,并把当前指针向后移动Count个字节数,函数返回值是实际读的字节数。如果返回值小于Count,这意味着读操作在读满所需字节数前指针已经到达了流的尾部。  
  Read方法是抽象方法。每个后继Stream对象都要根据自己特有的有关特定存储媒介的读操作覆盖该方法。而且流的所有其它的读数据的方法(如:ReadBuffer,ReadComponent等)在完成实际的读操作时都调用了Read方法。面向对象的动态联编的优点就体现在这儿。因为后继Stream对  
象只需覆盖Read方法,而其它读操作(如ReadBuffer、ReadComponent等)都不需要重新定义,而且TStream还提供了统一的接口。  
  5.   ReadBuffer方法  
  声明:procedure   ReadBuffer(var   Buffer;   Count:   Longint);    
  ReadBuffer方法从流中将Count个字节复制到Buffer   中,   并将流的当前指针向后移动Count个字节。如读操作超过流的尾部,ReadBuffer方法引起EReadError异常事件。  
  6.   ReadComponent方法  
      声明:function   ReadComponent(Instance:   TComponent):   TComponent;    
        ReadComponent方法从当前流中读取由Instance所指定的部件,函数返回所读的部件。ReadComponent在读Instance及其拥有的所有对象时创建了一个Reader对象并调用它的ReadRootComponent方法。  
  如果Instance为nil,ReadComponent的方法基于流中描述的部件类型信息创建部件,并返回新创建的部件。  
  7.   ReadComponentRes方法  
  声明:function   ReadComponentRes(Instance:   TComponent):   TComponent;    
        ReadComponentRes方法从流中读取Instance指定的部件,但是流的当前位置必须是由WriteComponentRes方法所写入的部件的位置。  
  ReadComponentRes    
首先调用ReadResHeader方法从流中读取资源头,然后调用ReadComponent方法读取Instance。如果流的当前位置不包含一个资源头。ReadResHeader将引发一个EInvalidImage异常事件。在Classes库单元中也包含一个名为ReadComponentRes的函数,该函数执行相同的操作,只不过它基于应  
用程序包含的资源建立自己的流。  
  8.   ReadResHeader方法  
  声明:procedure   ReadResHeader;    
        ReadResHeader方法从流的当前位置读取Windows资源文件头,并将流的当前位置指针移到该文件头的尾部。如果流不包含一个有效的资源文件头,ReadResHeader将引发一个EInvalidImage异常事件。  
  流的ReadComponentRes方法在从资源文件中读取部件之前,会自动调用ReadResHeader方法,因此,通常程序员通常不需要自己调用它。  
  9.   Seek方法  
  声明:function   Seek(Offset:   Longint;   Origin:   Word):   Longint;   virtual;   abstract;    
        Seek方法将流的当前指针移动Offset个字节,字节移动的起点由Origin指定。如果Offset是负数,Seek方法将从所描述的起点往流的头部移动。下表中列出了Origin的不同取值和它们的含义:  
 
                                        表20.1     函数Seek的参数的取值  
 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━  
  常量       值        Seek的起点                 Offset的取值  
    ─────────────────────────────────  
 SoFromBeginning         0                      流的开头                           正   数  
 SoFromCurrent             1                           流的当前位置               正数或负数      
 SoFromEnd                   2                           流的结尾                           负   数  
 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━  
                                     
      10.   Write方法  
  在Delphi对象式管理的对象中有两类对象的方法都有称为Write的:Stream对象和Filer对象。Stream对象的Write方法将数据写进流中。Filer对象通过相关的流传递数据,在后文中会介绍这类方法。  
  Stream对象的Write方法声明如下:  
 
            function   Write(const   Buffer;   Count:   Longint):   Longint;   virtual;   abstract;    
 
        Write方法将Buffer中的Count个字节写入流中,并将当前位置指针向流的尾部移动Count个字节,函数返回写入的字节数。  
      TStream的Write方法是抽象的,每个继承的Stream对象都要通过覆盖该方法来提供向特定存储媒介(内存、磁盘文件等)写数据的特定方法。流的其它所有写数据的方法(如WriteBuffer、WriteComponent)都调用Write担当实际的写操作。  
11.   WriteBuffer方法  
  声明:procedure   WriteBuffer(const   Buffer;   Count:   Longint);    
  WriteBuffer的功能与Write相似。WriteBuffer方法调用Write来执行实际的写操作,如果流没能写所有字节,WriteBuffer会触发一个EWriteError异常事件。  
  12.   WriteComponent方法  
  在Stream对象和Filer对象都有被称为WriteComponent的方法。Stream对象的WriteComponent方法将Instance所指定的部件和它所包含的所有部件都写入流中;Writer对象的WriteComponent将指定部件的属性值写入Writer对象的流中。  
  Stream对象的WriteComponent方法声明是这样的:  
              procedure   WriteComponent(Instance:   Tcomponent);    
 
  WriteComponent创建一个Writer对象,并调用Writer的WriteRootComponent方法将Instance及其拥有的对象写入流。  
  13.   WriteComponentRes方法  
  声明:WriteComponentRes(const   ResName:   String;   Instance:   TComponent);    
  WriteComponentRes方法首先往流中写入标准Windows   资源文件头,然后将Instance指定的部件写入流中。要读由WriteComponentRes写入的部件,必须调用ReadComponentRes方法。  
  WriteComponentRes使用ResName传入的字符串作为资源文件头的资源名,然后调用WriteComponent方法将Instance和它拥有的部件写入流。  
  14.   WriteDescendant方法  
  声明:procedure   WriteDescendant(Instance   Ancestor:   TComponent);    
  Stream对象的WriteDescendant方法创建一个Writer对象,然后调入该对象的WriteDescendant方法将Instance部件写入流中。Instance可以是从Ancestor部件继承的窗体,也可以是在从祖先窗体中继承的窗体中相应于祖先窗体中Ancestor部件的部件。  
  15.   WriteDescendantRes方法  
  声明:procedure   WriteDescendantRes(const   ResName:   String;  
                                                                                Instance,   Ancestor:   TComponent);  
  WriteDescendantRes方法将Windows资源文件头写入流,并使用ResName作用资源名,然后调用WriteDescendant方法,将Instance写入流。  
 
20.1.1.2   TStream的实现原理  
 
  TStream对象是Stream对象的基础类,这是Stream对象的基础。为了能在不同媒介上的存储数据对象,后继的Stream对象主要是在Read和Write方法上做了改进,。因此,了解TStream是掌握Stream对象管理的核心。Borland公司虽然提供了Stream对象的接口说明文档,但对于其实现和应  
用方法却没有提及,笔者是从Borland   Delphi   2.0   Client/Server   Suite   提供的源代码和部分例子程序中掌握了流式对象技术。  
  下面就从TStream的属性和方法的实现开始。  
  1.   TStream属性的实现  
  前面介绍过,TStream具有Position和Size两个属性,作为抽象数据类型,它抽象了在各种存储媒介中读写数据所需要经常访问的域。那么它们是怎样实现的呢?  
  在自定义部件编写这一章中介绍过部件属性定义中的读写控制。Position和Size也作了读写控制。定义如下:  
 
        property   Position:   Longint   read   GetPosition   write   SetPosition;  
        property   Size:   Longint   read   GetSize;  
 
  由上可知,Position是可读写属性,而Size是只读的。  
  Position属性的实现就体现在GetPosition和SetPosition。当在程序运行过程中,任何读取Position的值和给Position赋值的操作都会自动触发私有方法GetPosition和SetPosition。两个方法的声明如下:  
 
        function   TStream.GetPosition:   Longint;  
        begin  
            Result   :=   Seek(0,   1);  
        end;  
 
        procedure   TStream.SetPosition(Pos:   Longint);  
        begin  
            Seek(Pos,   0);  
        end;  
 
        在设置位置时,Delphi编译机制会自动将Position传为Pos。  
  前面介绍过Seek的使用方法,第一参数是移动偏移量,第二个参数是移动的起点,返回值是移动后的指针位置。  
  Size属性的实现只有读控制,完全屏蔽了写操作。读控制方法GetSize实现如下:  
 
        function   TStream.GetSize:   Longint;  
        var  
            Pos:   Longint;  
        begin  
            Pos   :=   Seek(0,   1);  
            Result   :=   Seek(0,   2);  
            Seek(Pos,   0);  
        end;  
 
        2.   TStream方法的实现  
  ⑴   CopyFrom方法  
  CopyFrom是Stream对象中很有用的方法,它用于在不同存储媒介中拷贝数据。例如,内存与外部文件之间、内存与数据库字段之间等。它简化了许多内存分配、文件打开和读写等的细节,将所有拷贝操作都统一到Stream对象上。  
  前面曾介绍:CopyFrom方法带Source和Count两个参数并返回长整型。该方法将Count个字节的内容从Source拷贝到当前流中,如果Count值为0则拷贝所有数据。  
 
        function   TStream.CopyFrom(Source:   TStream;   Count:   Longint):   Longint;  
        const  
            MaxBufSize   =   $F000;  
        var  
            BufSize,   N:   Integer;  
            Buffer:   PChar;  
        begin  
            if   Count   =   0   then  
            begin  
                Source.Position   :=   0;  
                Count   :=   Source.Size;  
            end;  
            Result   :=   Count;  
            if   Count   >   MaxBufSize   then   BufSize   :=   MaxBufSize   else   BufSize   :=   Count;  
            GetMem(Buffer,   BufSize);  
            try  
                while   Count   <>   0   do  
                begin  
                    if   Count   >   BufSize   then    
                        N   :=   BufSize    
                    else  
                        N   :=   Count;  
                    Source.ReadBuffer(Buffer^,   N);  
                    WriteBuffer(Buffer^,   N);  
                    Dec(Count,   N);  
                end;  
            finally  
                FreeMem(Buffer,   BufSize);  
            end;  
        end;  
 
  ⑵   ReadBuffer方法和WriteBuffer方法  
  ReadBuffer方法和WriteBuffer方法简单地调用虚拟函数Read、Write来读写流中数据,它比Read和Write增加了读写数据出错时的异常处理。  
 
        procedure   TStream.ReadBuffer(var   Buffer;   Count:   Longint);  
        begin  
            if   (Count   <>   0)   and   (Read(Buffer,   Count)   <>   Count)   then  
                raise   EReadError.CreateRes(SReadError);  
        end;  
 
        procedure   TStream.WriteBuffer(const   Buffer;   Count:   Longint);  
        begin  
            if   (Count   <>   0)   and   (Write(Buffer,   Count)   <>   Count)   then  
                raise   EWriteError.CreateRes(SWriteError);  
        end;  
 
  ⑶   ReadComponent、ReadResHeader和ReadComponentRes方法  
  ReadComponent方法从当前流中读取部件。在实现上ReadComponent方法创建了一个TStream对象,并用TReader的ReadRootComponent方法读部件。在Delphi对象式管理中,Stream对象和Filer对象结合很紧密。Stream对象的许多方法的实现需要Filer对象的支持,而Filer对象的构造函数  
直接就以Stream对象为参数。在ReadComponent方法的实现中就可清楚地看到这一点:  

function   TStream.ReadComponent(Instance:   TComponent):   TComponent;  
        var  
            Reader:   TReader;  
        begin  
            Reader   :=   TReader.Create(Self,   4096);  
            try  
                Result   :=   Reader.ReadRootComponent(Instance);  
            finally  
                Reader.Free;  
            end;  
        end;  
 
        ReadResHeader方法用于读取Windows资源文件的文件头,由ReadComponentRes方法在读取Windows资源文件中的部件时调用,通常程序员不需自己调用。如果读取的不是资源文件ReadResH   :=   FSize   +   Offset;  
                    end;  
                    Result   :=   FPosition;  
                end;  
 
  Offse代表移动的偏移量。Origin代表移动的起点,值为0表示从文件头开始,值为1表示从当前位置开始,值为2表示从文件尾往前,这时OffSet一般为负数。Seek的实现没有越界的判断。  
  3.   SaveToStream和SaveToFile方法  
  SaveToStream方法是将MemoryStream对象中的内容写入Stream所指定的流。其实现如下:  
 
                procedure   TCustomMemoryStream.SaveToStream(Stream:   TStream);  
                begin  
                    if   FSize   <>   0   then   Stream.WriteBuffer(FMemory^,   FSize);  
                end;  
 
  SaveToStream方法调用了Stream的WriteBuffer方法,直接将FMemory中的内容按FSize字节长度写入流中。  
  SaveToFile方法是与SaveToStream方法相关的。SaveToFile方法首先创建了一个FileStream对象,然后把该文件Stream对象作为SaveToStream的参数,由SaveToStream   方法执行写操作,其实现如下:  
 
                procedure   TCustomMemoryStream.SaveToFile(const   FileName:   string);  
                var  
                    Stream:   TStream;  
                begin  
                    Stream   :=   TFileStream.Create(FileName,   fmCreate);  
                    try  
                        SaveToStream(Stream);  
                    finally  
                        Stream.Free;  
                    end;  
                end;  
 
  在Delphi   的许多对象的SaveToStream   和SaveToFile、LoadFromStream和LoadFromFile方法的实现都有类似的嵌套结构。  
 
20.1.5   TMemoryStream对象  
 
       
TMemoryStream对象是一个管理动态内存中的数据的Stream对象,它是从TCustomMemoryStream中继承下来的,除了从TCustomMemoryStream中继承的属性和方法外,它还增加和覆盖了一些用于从磁盘文件和其它注台读数据的方法。它还提供了写入、消除内存内容的动态内存管理方法。下面  
介绍它的这些属性和方法。  
 
20.1.5.1   TMemoryStream的属性和方法  
 
  1.   Capacity属性  
  声明:property   Copacity:   Longint;    
        Capacity属性决定了分配给内存流的内存池的大小。这与Size属性有些不同。Size属性是描述流中数据的大小。在程序中可以将Capacity   的值设置的比数据所需最大内存大一些,这样可以避免频繁地重新分配。  
  2.   Realloc方法  
  声明:function   Realloc(var   NewCapacity:   Longint):   Pointer;   virtual;    
        Realloc方法,以8K为单位分配动态内存,内存的大小由NewCapacity指定,函数返回指向所分配内存的指针。  
  3.   SetSize方法  
  SetSize方法消除内存流中包含的数据,并将内存流中内存池的大小设为Size字节。如果Size为零,是SetSize方法将释放已有的内存池,并将Memory属性置为nil;否则,SetSize方法将内存池大小调整为Size。  
        4.   Clear方法  
  声明:procedure   Clear;    
        Clear方法释放内存中的内存池,并将Memory属性置为nil。在调用Clear方法后,Size和Position属性都为0。  
  5.   LoadFromStream方法  
  声明:procedure   LoadFromStream(Stream:   TStream);    
        LoadFromStream方法将Stream指定的流中的全部内容复制到MemoryStream中,复制过程将取代已有内容,使MemoryStream成为Stream的一份拷贝。  
  6.   LoadFromFile方法  
  声明:procedure   LoadFromFile(count   FileName:   String);    
        LoadFromFile方法将FileName指定文件的所有内容复制到MemoryStream中,并取代已有内容。调用LoadFromFile方法后,MemoryStream将成为文件内容在内存中的完整拷贝。  
 
20.1.5.2   TMemoryStream对象的实现原理  
 
  TMemoryStream从TCustomMemoryStream对象直接继承,因此可以享用TCustomMemoryStream的属性和方法。前面讲过,TCustomMemoryStream是用于内存中数据操作的抽象对象,它为MemoryStream对象的实现提供了框架,框架中的内容还要由具体MemoryStream对象去填充。TMemoryStrea  
m对象就是按动态内存管理的需要填充框架中的具体内容。下面介绍TMemoryStream对象的实?   FBuffer   :=   AllocMem(FDataSet.RecordSize);  
                            FRecord   :=   FBuffer;  
                            if   not   FDataSet.GetCurrentRecord(FBuffer)   then   Exit;  
                            OpenMode   :=   dbiReadOnly;  
                end   else  
                        begin  
                            if   not   (FDataSet.State   in   [dsEdit,   dsInsert])   then   DBError(SNotEditing);  
                            OpenMode   :=   dbiReadWrite;  
                        end;  
                        Check(DbiOpenBlob(FDataSet.Handle,   FRecord,   FFieldNo,   OpenMode));  
                    end;  
                    FOpened   :=   True;  
                    if   Mode   =   bmWrite   then   Truncate;  
                end;  
 
     该方法首先是用传入的Field参数给FField,FDataSet,FRecord和FFieldNo赋值。方法中用AllocMem按当前记录大小分配内存,并将指针赋给FBuffer,用DataSet部件的GetCurrentRecord方法,将记录的值赋给FBuffer,但不包括BLOB数据。  
  方法中用到的DbiOpenBlob函数是BDE的API函数,该函数用于打开数据库中的BLOB字段。  
  最后如果方法传入的Mode参数值为bmWrite,就调用Truncate将当前位置指针以后的  
数据删除。  
  分析这段源程序不难知道:  
  ●   读写BLOB字段,不允许BLOB字段所在DataSet部件有Filter,否则产生异常事件  
  ●   要读写BLOB字段,必须将DataSet设为编辑或插入状态  
      ●   如果BLOB字段中的数据作了修改,则在创建BLOB   流时,不再重新调用DBiOpenBlob函数,而只是简单地将FOpened置为True,这样可以用多个BLOB   流对同一个BLOB字段读写  
 
  Destroy方法释放BLOB字段和为FBuffer分配的缓冲区,其实现如下:  
 
                destructor   TBlobStream.Destroy;  
                begin  
                    if   FOpened   then  
                    begin  
                        if   FModified   then   FField.FModified   :=   True;  
                        if   not   FField.FModified   then  
                            DbiFreeBlob(FDataSet.Handle,   FRecord,   FFieldNo);  
                    end;  
                    if   FBuffer   <>   nil   then   FreeMem(FBuffer,   FDataSet.RecordSize);  
                    if   FModified   then  
                    try  
                        FField.DataChanged;  
                    except  
                        Application.HandleException(Self);  
                    end;  
                end;  
 
  如果BLOB流中的数据作了修改,就将FField的FModified置为True;如果FField的Modified为False就释放BLOB字段,如果FBuffer不为空,则释放临时内存。最后根据FModified的值来决定是否启动FField的事件处理过程DataChanged。  
  不难看出,如果BLOB字段作了修改就不释放BLOB字段,并且对BLOB   字段的修改只有到Destroy时才提交,这是因为读写BLOB字段时都避开了FField,而直接调用BDE   API函数。这一点是在应用BDE   API编程中很重要,即一定要修改相应数据库部件的状态。  
2.   Read和Write方法的实现  
  Read和Write方法都调用BDE   API函数完成数据库BLOB字段的读写,其实现如下:  
    
                function   TBlobStream.Read(var   Buffer;   Count:   Longint):   Longint;  
                var  
                    Status:   DBIResult;  
                begin  
                    Result   :=   0;  
                    if   FOpened   then  
                    begin  
                        Status   :=   DbiGetBlob(FDataSet.Handle,   FRecord,   FFieldNo,   FPosition,  
                                                                                                                      Count,   @Buffer,   Result);  
                        case   Status   of  
                            DBIERR_NONE,   DBIERR_ENDOFBLOB:  
                                begin  
                                    if   FField.FTransliterate   then  
                                        NativeToAnsiBuf(FDataSet.Locale,   @Buffer,   @Buffer,   Result);  
                                    Inc(FPosition,   Result);  
                                end;  
                            DBIERR_INVALIDBLOBOFFSET:  
                                {Nothing};  
                        else  
                            DbiError(Status);  
                        end;  
                    end;  
                end;  
 
  Read方法使用了BDE    
API的DbiGetBlob函数从FDataSet中读取数据,在本函数中,各参数的含义是这样的:FDataSet.Handle代表DataSet的BDE句柄,FReacord表示BLOB字段所在记录,FFieldNo表示BLOB字段号,FPosition表示要读的的数据的起始位置,Count表示要读的字节数,Buffer是读出数据所占的内存,  
Result是实际读出的字节数。该BDE函数返回函数调用的错误状态信息。  
  Read方法还调用了NativeToAnsiBuf进行字符集的转换。  
 
                function   TBlobStream.Write(const   Buffer;   Count:   Longint):   Longint;  
                var  
                    Temp:   Pointer;  
                begin  
                    Result   :=   0;  
                    if   FOpened   then  
                    begin  
                        if   FField.FTransliterate   then  
                        begin  
                            GetMem(Temp,   Count);  
                            try  
                                AnsiToNativeBuf(FDataSet.Locale,   @Buffer,   Temp,   Count);  
                                Check(DbiPutBlob(FDataSet.Handle,   FRecord,   FFieldNo,   FPosition,  
                                    Count,   Temp));  
                            finally  
                                FreeMem(Temp,   Count);  
                            end;  
                        end   else  
                            Check(DbiPutBlob(FDataSet.Handle,   FRecord,   FFieldNo,   FPosition,  
                                                                                                            Count,   @Buffer));  
                        Inc(FPosition,   Count);  
                        Result   :=   Count;  
                        FModified   :=   True;  
                    end;  
                end;  
 
        Write方法调用了BDE   API的DbiPutBlob函数实现往数据库BLOB字段存储数据。  
        该函数的各参数含义如下:  
 
                          表20.2     调用函数DbiPutBlob的各传入参数的含义  
     ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━  
         参数名           含义  
        ──────────────────────────────  
            FDataSetHandle                       写入的数据库的BDE句柄  
            FRecord                                     写入数据的BLOB字段所在的记录  
              FFieldNo                                   BLOB字段号  
            FPosition                                   写入的起始位置  
            Count                                         写入的数据的字节数  
            Buffer                                         所写入的数据占有的内存地址  
      ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━  
 
标志,该标志意味着后面存储有一连串的项目。Reader对象,在读这一连串项目时先调用ReadListBegin方法读取该标志位,然后用EndOfList判断是否列表结束,并用循环语句读取项目。在调用WriteListBegin方法的后面必须调用WriteListEnd方法写列表结束标志,相应的在Reader对象中  
有ReadListEnd方法读取该结束标志。  
  5.   WriteListEnd方法  
  声明:procedure   WriteListEnd;    
        WriteListEnd方法在流中,写入项目列表结束标志,它是与WriteListBegin相匹配的方法。  
  6.   WriteBoolean方法  
  声明:procedure   WriteBoolean(Value:   Boolean);    
        WriteBoolean方法将Value传入的布尔值写入流中。  
  7.   WriteChar方法  
  声明:procedure   WriteChar(Value:   char);    
        WriteChar方法将Value中的字符写入流中。  
  8.   WriteFloat方法  
  声明:procedure   WriteFloat(Value:   Extended);    
        WriteFloat方法将Value传入的浮点数写入流中。  
  9.   WriteInteger方法  
  声明:procedure   WriteInteger(Value:   Longint);    
        WriteInteger方法将Value中的整数写入流中。  
  10.   WriteString方法  
  声明:procedure   WriteString(const   Value:   string);    
        WriteString方法将Value中的字符串写入流中。  
  11.   WriteIdent方法  
  声明:procedure   WriteIdent(const   Ident:   string);    
        WriteIdent方法将Ident传入的标识符写入流中。  
  12.   WriteSignature方法  
  声明:procedure   WriteSignature;    
        WriteSignature方法将Delphi   Filer对象标签写入流中。WriteRootComponent方法在将部件写入流之前先调用WriteSignature方法写入Filer标签。Reader对象在读部件之前调用ReadSignature方法读取该标签以指导读操作。  
  13.   WritComponent方法  
  声明:procedure   WriteComponent(Component:   TComponent);    
        WriteComponent方法调用参数Component的WriteState方法将部件写入流中。在调用WriteState之前,WriteComponent还将Component的ComponetnState属性置为csWriting。当WriteState返回时再清除csWriting.  
        14.   WriteRootComponent方法  
  声明:procedure   WriteRootComponent(Root:   TComponent);    
        WriteRootComponent方法将Writer对象Root属性设为参数Root带的值,然后调用WriteSignature方法往流中写入Filer对象标签,最后调用WriteComponent方法在流中存储Root部件。

你可能感兴趣的:(流式对象的实现原理和应用)