一. TStream类

1.1 TStream类概述

     
20.1.1 TStream对象
 
　　TStream对象是能在各种媒介中存储二进制数据的对象的抽象对象。从TStream 对象继承的对象用于在内存、Windows资源文件、磁盘文件和数据库字段等媒

介中存储数据。

　　TStream中定义了两个属性：Size和Position。它们分别以字节为单位表示的流的大小和当前指针位置。TStream中定义的方法用于在各种流中读、写和相互

拷贝二进制数据。因为所有的Stream对象都是从TStream中继承来的，所以在TStream中定义的域和方法都能被Stream对象调用和访问。此外，又由于面向对象技

术的动态联编功能，TStream为各种流的应用提供了统一的接口，简化了流的使用；不同Stream对象是抽象了对不同存储媒介的数据上的操作，因此，TStream的

需方法为在不同媒介间的数据拷贝提供了最简捷的手段。

1.2 重要方法

1.2.1 Seek方法

　　 声明：function Seek(Offset: Longint; Origin: Word): Longint; virtual; abstract; 

     Seek方法将流的当前指针移动Offset个字节，字节移动的起点由Origin指定。如果Offset是负数，Seek方法将从所描述的起点往

 流的头部移动。下表中列出了Origin的不同取值和它们的含义：
 
                    表1  函数Seek的参数的取值
　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　常量　　　　　　　值　　 　　　Seek的起点        Offset的取值
  ─────────────────────────────────
　SoFromBeginning    0          　流的开头             正 数
　SoFromCurrent      1             流的当前位置       正数或负数  
　SoFromEnd         2             流的结尾             负 数
　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

1.2.2 CopyFrom方法

　　  声明：function CopyFrom(Source: TStream; Count: Int64): Int64; 

      CopyFrom从Source所指定的流中拷贝Count个字节到当前流中，并将指针从当前位置移动Count个字节数，函数返回值是实际拷贝的字节数。值得注意的是：

  在CopyFrom中定义了常量，const MaxBufSize = $F000;如果参数Count = 0 ，表示按Source流的大小读取流；如果Count < MaxBufSize，则读取Count大小

  的流字节。如果Count > MaxBufSize，则在Buffer中只会保留（Count - MaxBuffSize）的那部分值。如图：

1.2.3 ReadComponent方法

   　 声明：function ReadComponent(Instance: TComponent): TComponent; 

      ReadComponent方法从当前流中读取由Instance所指定的部件，函数返回所读的部件。ReadComponent在读Instance及其拥有的所有对象时创建了一个

  Reader对象并调用它的ReadRootComponent方法。

　　  如果Instance为nil，ReadComponent的方法基于流中描述的部件类型信息创建部件，并返回新创建的部件。

1.2.4 ReadComponentRes方法

　  　声明：function ReadComponentRes(Instance: TComponent): TComponent; 

      ReadComponentRes方法从流中读取Instance指定的部件，但是流的当前位置必须是由WriteComponentRes方法所写入的部件的位置。ReadComponentRes

 首先调用ReadResHeader方法从流中读取资源头，然后调用ReadComponent方法读取Instance。如果流的当前位置不包含一个资源头。ReadResHeader将引发一个

 EInvalidImage异常事件。在Classes库单元中也包含一个名为ReadComponentRes的函数，该函数执行相同的操作，只不过它基于应用程序包含的资源建立自己的

 流。

1.2.5 Read方法

　　 声明：function Read(var Buffer; Count: Longint): Longint; virtual; abstract; 

     Read方法从当前流中的当前位置起将Count个字节的内容复制到Buffer中，并把当前指针向后移动Count个字节数，函数返回值是实际读的字节数。如果返回值

 小于Count，这意味着读操作在读满所需字节数前指针已经到达了流的尾部。

1.2.6 WriteDescendant方法

　　 声明：procedure WriteDescendant(Instance Ancestor: TComponent); 

Stream对象的WriteDescendant方法创建一个Writer对象，然后调入该对象的WriteDescendant方法将Instance部件写入流中。Instance可以是从Ancestor

部件继承的窗体，也可以是在从祖先窗体中继承的窗体中相应于祖先窗体中Ancestor部件的部件。

二. 疑问与解答

2.1 关于类中方法间调用的意图

    如图，在TStream类中为了实现Size特性，竟然有三个相似的SetSize方法；他们其中的调用关系如图所示，现在有个疑团就是在VCL中为什么要这样设计呢？

    答：其实由于SetSize方法是虚函数,在派生类中可以覆盖此方法。所以，当派生类对象访问Size特性时，就通过SetSize64过程调用过程procedure

SetSize(const NewSize: Int64); overload; virtual;而大家注意此时的调用的SetSize过程其实是派生类覆盖后的过程了。这样就访问到了当前的Size值了。