如果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);

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页