2011等考Delphi：開(kāi)發(fā)Delphi對(duì)象式數(shù)據(jù)管理功能

　　第二十章　開(kāi)發(fā)Delphi對(duì)象式數(shù)據(jù)管理功能

　　面向?qū)ο蠹夹g(shù)是九十年代的主流技術(shù)，各類(lèi)應(yīng)用軟件如果以面向?qū)ο蟮姆椒��?gòu)造并且滲透面向?qū)ο蟮娘L(fēng)格將使軟件具有更高的品質(zhì)。在面向?qū)ο蟪绦蛟O(shè)計(jì)中，對(duì)象式數(shù)據(jù)管理占有很重要的地位。在Delphi中，對(duì)對(duì)象式數(shù)據(jù)管理的支持方式是其一大特色。

　　Delphi是一個(gè)面向?qū)ο蟮目梢暬�設(shè)計(jì)與面向?qū)ο蟮恼Z(yǔ)言相結(jié)合的集成開(kāi)發(fā)環(huán)境。Delphi的核心是部件。部件是對(duì)象的一種。Delphi應(yīng)用程序完全是由部件來(lái)構(gòu)造的，因此開(kāi)發(fā)高性能的Delphi應(yīng)用程序必然會(huì)涉及對(duì)象式數(shù)據(jù)管理技術(shù)。

　　對(duì)象式數(shù)據(jù)管理包括兩方面的內(nèi)容：

　　● 用對(duì)象來(lái)管理數(shù)據(jù)

　　● 對(duì)各類(lèi)數(shù)據(jù)對(duì)象(包括對(duì)象和部件)的管理

　　Delphi在這兩方面都做的相當(dāng)出色。在Delphi的早期版本Turbo Pascal 中就曾有流(Stream)、群(Collection)和資源(Resource)等專(zhuān)門(mén)用于對(duì)象式數(shù)據(jù)管理的類(lèi)。在Delphi中，這些功能得到了大大的加強(qiáng)。Delphi將對(duì)象式數(shù)據(jù)管理類(lèi)歸結(jié)為Stream對(duì)象(Stream)和Filer對(duì)象(Filer)，并將它們應(yīng)用于可視部件類(lèi)庫(kù)(VCL)的方方面面。它們不僅提供了在內(nèi)存、外存和Windows資源中管理對(duì)象的功能，還提供了在數(shù)據(jù)庫(kù)BLOB字段中對(duì)象的功能。

　　在本章中將介紹Stream對(duì)象和Filer對(duì)象的實(shí)現(xiàn)原理、應(yīng)用方法以及在超媒體系統(tǒng)中的應(yīng)用。這對(duì)于運(yùn)用Delphi 開(kāi)發(fā)高級(jí)應(yīng)用是很重要的。

　　20.1 流式對(duì)象的實(shí)現(xiàn)原理和應(yīng)用

　　Stream對(duì)象，又稱(chēng)流式對(duì)象，是TStream、THandleStream、TFileStream、TMemoryStream、TResourceStream和TBlobStream等的統(tǒng)稱(chēng)。它們分別代表了在各種媒介上存儲(chǔ)數(shù)據(jù)的能力，它們將各種數(shù)據(jù)類(lèi)型(包括對(duì)象和部件) 在內(nèi)存、外存和數(shù)據(jù)庫(kù)字段中的管理操作抽象為對(duì)象方法，并且充分利用了面向?qū)ο蠹夹g(shù)的優(yōu)點(diǎn)，應(yīng)用程序可以相當(dāng)容易地在各種Stream對(duì)象中拷貝數(shù)據(jù)。

　　下面介紹各種對(duì)象的數(shù)據(jù)和方法及使用方法。

　　20.1.1 TStream對(duì)象

　　TStream對(duì)象是能在各種媒介中存儲(chǔ)二進(jìn)制數(shù)據(jù)的對(duì)象的抽象對(duì)象。從TStream 對(duì)象繼承的對(duì)象用于在內(nèi)存、Windows資源文件、磁盤(pán)文件和數(shù)據(jù)庫(kù)字段等媒介中存儲(chǔ)數(shù)據(jù)。

　　TStream中定義了兩個(gè)屬性：Size和Position。它們分別以字節(jié)為單位表示的流的大小和當(dāng)前指針位置。TStream中定義的方法用于在各種流中讀、寫(xiě)和相互拷貝二進(jìn)制數(shù)據(jù)。因?yàn)樗�有的Stream對(duì)象都是從TStream中繼承來(lái)的，所以在TStream中定義的域和方法都能被Stream對(duì)象調(diào)用和訪問(wèn)。此外，又由于面向?qū)ο蠹夹g(shù)的動(dòng)態(tài)聯(lián)編功能，TStream為各種流的應(yīng)用提供了統(tǒng)一的接口，簡(jiǎn)化了流的使用;不同Stream對(duì)象是抽象了對(duì)不同存儲(chǔ)媒介的數(shù)據(jù)上的操作，因此，TStream的需方法為在不同媒介間的數(shù)據(jù)拷貝提供了最簡(jiǎn)捷的手段。

　　20.1.1.1 TStream的屬性和方法

　　1. Position屬性

　　聲明：property Position: Longint;

　　Position屬性指明流中讀寫(xiě)的當(dāng)前偏移量。

　　2. Size屬性

　　聲明：property Size: Longint;

　　Size屬性指明了以字節(jié)為單位的流的的大小，它是只讀的。

　　3. CopyFrom方法

　　聲明：function CopyFrom(Source: TStream; Count: Longint): Longint;

　　CopyFrom從Source所指定的流中拷貝Count個(gè)字節(jié)到當(dāng)前流中， 并將指針從當(dāng)前位置移動(dòng)Count個(gè)字節(jié)數(shù)，函數(shù)返回值是實(shí)際拷貝的字節(jié)數(shù)。

　　4. Read方法

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

　　Read方法從當(dāng)前流中的當(dāng)前位置起將Count個(gè)字節(jié)的內(nèi)容復(fù)制到Buffer中，并把當(dāng)前指針向后移動(dòng)Count個(gè)字節(jié)數(shù)，函數(shù)返回值是實(shí)際讀的字節(jié)數(shù)。如果返回值小于Count，這意味著讀操作在讀滿(mǎn)所需字節(jié)數(shù)前指針已經(jīng)到達(dá)了流的尾部。

　　Read方法是抽象方法。每個(gè)后繼Stream對(duì)象都要根據(jù)自己特有的有關(guān)特定存儲(chǔ)媒介的讀操作覆蓋該方法。而且流的所有其它的讀數(shù)據(jù)的方法(如：ReadBuffer，ReadComponent等)在完成實(shí)際的讀操作時(shí)都調(diào)用了Read方法。面向?qū)ο蟮膭?dòng)態(tài)聯(lián)編的優(yōu)點(diǎn)就體現(xiàn)在這兒。因?yàn)楹罄^Stream對(duì)象只需覆蓋Read方法，而其它讀操作(如ReadBuffer、ReadComponent等)都不需要重新定義，而且TStream還提供了統(tǒng)一的接口。

　　5. ReadBuffer方法

　　聲明：procedure ReadBuffer(var Buffer; Count: Longint);

　　ReadBuffer方法從流中將Count個(gè)字節(jié)復(fù)制到Buffer 中， 并將流的當(dāng)前指針向后移動(dòng)Count個(gè)字節(jié)。如讀操作超過(guò)流的尾部，ReadBuffer方法引起EReadError異常事件。

　　6. ReadComponent方法

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

　　ReadComponent方法從當(dāng)前流中讀取由Instance所指定的部件，函數(shù)返回所讀的部件。ReadComponent在讀Instance及其擁有的所有對(duì)象時(shí)創(chuàng)建了一個(gè)Reader對(duì)象并調(diào)用它的ReadRootComponent方法。

　　如果Instance為nil，ReadComponent的方法基于流中描述的部件類(lèi)型信息創(chuàng)建部件，并返回新創(chuàng)建的部件。

　　7. ReadComponentRes方法

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

　　ReadComponentRes方法從流中讀取Instance指定的部件，但是流的當(dāng)前位置必須是由WriteComponentRes方法所寫(xiě)入的部件的位置。

　　ReadComponentRes 首先調(diào)用ReadResHeader方法從流中讀取資源頭，然后調(diào)用ReadComponent方法讀取Instance。如果流的當(dāng)前位置不包含一個(gè)資源頭。ReadResHeader將引發(fā)一個(gè)EInvalidImage異常事件。在Classes庫(kù)單元中也包含一個(gè)名為ReadComponentRes的函數(shù)，該函數(shù)執(zhí)行相同的操作，只不過(guò)它基于應(yīng)用程序包含的資源建立自己的流。

　　8. ReadResHeader方法

　　聲明：procedure ReadResHeader;

　　ReadResHeader方法從流的當(dāng)前位置讀取Windows資源文件頭，并將流的當(dāng)前位置指針移到該文件頭的尾部。如果流不包含一個(gè)有效的資源文件頭，ReadResHeader將引發(fā)一個(gè)EInvalidImage異常事件。

　　流的ReadComponentRes方法在從資源文件中讀取部件之前，會(huì)自動(dòng)調(diào)用ReadResHeader方法，因此，通常程序員通常不需要自己調(diào)用它。

　　9. Seek方法

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

　　Seek方法將流的當(dāng)前指針移動(dòng)Offset個(gè)字節(jié)，字節(jié)移動(dòng)的起點(diǎn)由Origin指定。如果Offset是負(fù)數(shù)，Seek方法將從所描述的起點(diǎn)往流的頭部移動(dòng)。下表中列出了Origin的不同取值和它們的含義：

　　表20.1 函數(shù)Seek的參數(shù)的取值

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　常量　值　Seek的起點(diǎn) Offset的取值

　　─────────────────────────────────

　　SoFromBeginning 0 流的開(kāi)頭 正 數(shù)

　　SoFromCurrent 1 流的當(dāng)前位置 正數(shù)或負(fù)數(shù)

　　SoFromEnd 2 流的結(jié)尾 負(fù) 數(shù)

　　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　　10. Write方法

　　在Delphi對(duì)象式管理的對(duì)象中有兩類(lèi)對(duì)象的方法都有稱(chēng)為Write的：Stream對(duì)象和Filer對(duì)象。Stream對(duì)象的Write方法將數(shù)據(jù)寫(xiě)進(jìn)流中。Filer對(duì)象通過(guò)相關(guān)的流傳遞數(shù)據(jù)，在后文中會(huì)介紹這類(lèi)方法。

　　Stream對(duì)象的Write方法聲明如下：

　　function Write(const Buffer; Count: Longint): Longint; virtual; abstract;

　　Write方法將Buffer中的Count個(gè)字節(jié)寫(xiě)入流中，并將當(dāng)前位置指針向流的尾部移動(dòng)Count個(gè)字節(jié)，函數(shù)返回寫(xiě)入的字節(jié)數(shù)。

　　TStream的Write方法是抽象的，每個(gè)繼承的Stream對(duì)象都要通過(guò)覆蓋該方法來(lái)提供向特定存儲(chǔ)媒介(內(nèi)存、磁盤(pán)文件等)寫(xiě)數(shù)據(jù)的特定方法。流的其它所有寫(xiě)數(shù)據(jù)的方法(如WriteBuffer、WriteComponent)都調(diào)用Write擔(dān)當(dāng)實(shí)際的寫(xiě)操作。

　　11. WriteBuffer方法

　　聲明：procedure WriteBuffer(const Buffer; Count: Longint);

　　WriteBuffer的功能與Write相似。WriteBuffer方法調(diào)用Write來(lái)執(zhí)行實(shí)際的寫(xiě)操作，如果流沒(méi)能寫(xiě)所有字節(jié)，WriteBuffer會(huì)觸發(fā)一個(gè)EWriteError異常事件。

　　12. WriteComponent方法

　　在Stream對(duì)象和Filer對(duì)象都有被稱(chēng)為WriteComponent的方法。Stream對(duì)象的WriteComponent方法將Instance所指定的部件和它所包含的所有部件都寫(xiě)入流中;Writer對(duì)象的WriteComponent將指定部件的屬性值寫(xiě)入Writer對(duì)象的流中。

　　Stream對(duì)象的WriteComponent方法聲明是這樣的：

　　procedure WriteComponent(Instance: Tcomponent);

　　WriteComponent創(chuàng)建一個(gè)Writer對(duì)象，并調(diào)用Writer的WriteRootComponent方法將Instance及其擁有的對(duì)象寫(xiě)入流。

　　13. WriteComponentRes方法

　　聲明：WriteComponentRes(const ResName: String; Instance: TComponent);

　　WriteComponentRes方法首先往流中寫(xiě)入標(biāo)準(zhǔn)Windows 資源文件頭，然后將Instance指定的部件寫(xiě)入流中。要讀由WriteComponentRes寫(xiě)入的部件，必須調(diào)用ReadComponentRes方法。

　　WriteComponentRes使用ResName傳入的字符串作為資源文件頭的資源名，然后調(diào)用WriteComponent方法將Instance和它擁有的部件寫(xiě)入流。

　　14. WriteDescendant方法

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

　　Stream對(duì)象的WriteDescendant方法創(chuàng)建一個(gè)Writer對(duì)象，然后調(diào)入該對(duì)象的WriteDescendant方法將Instance部件寫(xiě)入流中。Instance可以是從Ancestor部件繼承的窗體，也可以是在從祖先窗體中繼承的窗體中相應(yīng)于祖先窗體中Ancestor部件的部件。

　　15. WriteDescendantRes方法

　　聲明：procedure WriteDescendantRes(const ResName: String;

　　Instance, Ancestor: TComponent);

　　WriteDescendantRes方法將Windows資源文件頭寫(xiě)入流，并使用ResName作用資源名，然后調(diào)用WriteDescendant方法，將Instance寫(xiě)入流。

　　20.1.1.2 TStream的實(shí)現(xiàn)原理

　　TStream對(duì)象是Stream對(duì)象的基礎(chǔ)類(lèi)，這是Stream對(duì)象的基礎(chǔ)。為了能在不同媒介上的存儲(chǔ)數(shù)據(jù)對(duì)象，后繼的Stream對(duì)象主要是在Read和Write方法上做了改進(jìn)，。因此，了解TStream是掌握Stream對(duì)象管理的核心。Borland公司雖然提供了Stream對(duì)象的接口說(shuō)明文檔，但對(duì)于其實(shí)現(xiàn)和應(yīng)用方法卻沒(méi)有提及，筆者是從Borland Delphi 2.0 Client/Server Suite 提供的源代碼和部分例子程序中掌握了流式對(duì)象技術(shù)。

　　下面就從TStream的屬性和方法的實(shí)現(xiàn)開(kāi)始。

　　1. TStream屬性的實(shí)現(xiàn)

　　前面介紹過(guò)，TStream具有Position和Size兩個(gè)屬性，作為抽象數(shù)據(jù)類(lèi)型，它抽象了在各種存儲(chǔ)媒介中讀寫(xiě)數(shù)據(jù)所需要經(jīng)常訪問(wèn)的域。那么它們是怎樣實(shí)現(xiàn)的呢?

　　在自定義部件編寫(xiě)這一章中介紹過(guò)部件屬性定義中的讀寫(xiě)控制。Position和Size也作了讀寫(xiě)控制。定義如下：

　　property Position: Longint read GetPosition write SetPosition;

　　property Size: Longint read GetSize;

　　由上可知，Position是可讀寫(xiě)屬性，而Size是只讀的。

　　Position屬性的實(shí)現(xiàn)就體現(xiàn)在GetPosition和SetPosition。當(dāng)在程序運(yùn)行過(guò)程中，任何讀取Position的值和給Position賦值的操作都會(huì)自動(dòng)觸發(fā)私有方法GetPosition和SetPosition。兩個(gè)方法的聲明如下：

　　function TStream.GetPosition: Longint;

　　begin

　　Result := Seek(0, 1);

　　end;

　　procedure TStream.SetPosition(Pos: Longint);

　　begin

　　Seek(Pos, 0);

　　end;

　　在設(shè)置位置時(shí)，Delphi編譯機(jī)制會(huì)自動(dòng)將Position傳為Pos。

　　前面介紹過(guò)Seek的使用方法，第一參數(shù)是移動(dòng)偏移量，第二個(gè)參數(shù)是移動(dòng)的起點(diǎn)，返回值是移動(dòng)后的指針位置。

　　Size屬性的實(shí)現(xiàn)只有讀控制，完全屏蔽了寫(xiě)操作。讀控制方法GetSize實(shí)現(xiàn)如下：

　　function TStream.GetSize: Longint;

　　var

　　Pos: Longint;

　　begin

　　Pos := Seek(0, 1);

　　Result := Seek(0, 2);

　　Seek(Pos, 0);

　　end;

　　2. TStream方法的實(shí)現(xiàn)

　�、� CopyFrom方法

　　CopyFrom是Stream對(duì)象中很有用的方法，它用于在不同存儲(chǔ)媒介中拷貝數(shù)據(jù)。例如，內(nèi)存與外部文件之間、內(nèi)存與數(shù)據(jù)庫(kù)字段之間等。它簡(jiǎn)化了許多內(nèi)存分配、文件打開(kāi)和讀寫(xiě)等的細(xì)節(jié)，將所有拷貝操作都統(tǒng)一到Stream對(duì)象上。

　　前面曾介紹：CopyFrom方法帶Source和Count兩個(gè)參數(shù)并返回長(zhǎng)整型。該方法將Count個(gè)字節(jié)的內(nèi)容從Source拷貝到當(dāng)前流中，如果Count值為0則拷貝所有數(shù)據(jù)。

　　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;

　　CouNG="ZH-CN">資源文件中的部件時(shí)調(diào)用，通常程序員不需自己調(diào)用。如果讀取的不是資源文件ReadResHeader，將觸發(fā)異常事件。

　　procedure TStream.ReadResHeader;

　　var

　　ReadCount: Longint;

　　Header: array[0..79] of Char;

　　begin

　　FillChar(Header, SizeOf(Header), 0);

　　ReadCount := Read(Header, SizeOf(Header) - 1);

　　if (Byte((@Header[0])^) = $FF) and (Word((@Header[1])^) = 10) then

　　Seek(StrLen(Header + 3) + 10 - ReadCount, 1)

　　else

　　raise EInvalidImage.CreateRes(SInvalidImage);

　　end;

　　ReadComponentRes在Windows資源文件中讀取部件，為了判斷是否是資源文件，它首先調(diào)用ReadResHeader方法，然后調(diào)用ReadComponent方法讀取Instance指定的部件。下面是它的實(shí)現(xiàn)：

　　function TStream.ReadComponentRes(Instance: TComponent): TComponent;

　　begin

　　ReadResHeader;

　　Result := ReadComponent(Instance);

　　end;

　　與ReadComponentRes相應(yīng)的寫(xiě)方法是WriteComponentRes，Delphi 調(diào)用這兩個(gè)方法讀寫(xiě)窗體文件(DFM文件)，在后面書(shū)中會(huì)舉用這兩個(gè)方法讀取DFM文件的例子。

　�、� WriteComponent和WriteDescendant方法

　　Stream對(duì)象的WriteDescendant方法在實(shí)現(xiàn)過(guò)程中，創(chuàng)建了TWriter對(duì)象，然后利用TWriter的WriteDescendant方法將Instance寫(xiě)入流。而WriteComponent方法只是簡(jiǎn)單地調(diào)用WriteDescendant方法將Instance寫(xiě)入流。它們的實(shí)現(xiàn)如下：

　　procedure TStream.WriteComponent(Instance: TComponent);

　　begin

　　WriteDescendent(Instance, nil);

　　end;

　　procedure TStream.WriteDescendent(Instance, Ancestor: TComponent);

　　var

　　Writer: TWriter;

　　begin

　　Writer := TWriter.Create(Self, 4096);

　　try

　　Writer.WriteDescendent(Instance, Ancestor);

　　finally

　　Writer.Free;

　　end;

　　end;

　�、� WriteDescendantRes和WriteComponentRes方法

　　WriteDescendantRes方法用于將部件寫(xiě)入Windows資源文件;而WriteComponentRes 方法只是簡(jiǎn)單地調(diào)用WriteDescendantRes方法，它們的實(shí)現(xiàn)如下：

　　procedure TStream.WriteComponentRes(const ResName: string; Instance:

　　TComponent);

　　begin

　　WriteDescendentRes(ResName, Instance, nil);

　　end;

　　procedure TStream.WriteDescendentRes(const ResName: string; Instance,

　　Ancestor: TComponent);

　　var

　　HeaderSize: Integer;

　　Origin, ImageSize: Longint;

　　Header: array[0..79] of Char;

　　begin

　　Byte((@Header[0])^) := $FF;

　　Word((@Header[1])^) := 10;

　　HeaderSize := StrLen(StrUpper(StrPLCopy(@Header[3], ResName, 63))) + 10;

　　Word((@Header[HeaderSize - 6])^) := $1030;

　　Longint((@Header[HeaderSize - 4])^) := 0;

　　WriteBuffer(Header, HeaderSize);

　　Origin := Position;

　　WriteDescendent(Instance, Ancestor);

　　ImageSize := Position - Origin;

　　Position := Origin - 4;

　　WriteBuffer(ImageSize, SizeOf(Longint));

　　Position := Origin + ImageSize;

　　end;

　　WriteCompnentRes是與ReadComponentRes相應(yīng)的對(duì)象寫(xiě)方法，這兩個(gè)方法相互配合可讀取Delphi的DFM文件，從而利用Delphi系統(tǒng)的功能。

　　20.1.2 THandleStream對(duì)象

　　THandleStream對(duì)象的行為特別象FileStream對(duì)象，所不同的是它通過(guò)已創(chuàng)建的文件句柄而不是文件名來(lái)存儲(chǔ)流中的數(shù)據(jù)。

　　THandleStream對(duì)象定義了Handle屬性，該屬性提供了對(duì)文件句柄的只讀訪問(wèn)，并且Handle屬性可以作為Delphi的RTL文件管理函數(shù)的參數(shù)，利用文件類(lèi)函數(shù)來(lái)讀寫(xiě)數(shù)據(jù)。THandleStream覆蓋了構(gòu)造函數(shù)Create，該函數(shù)帶有Handle 參數(shù)，該參數(shù)指定與THandleStream對(duì)象相關(guān)的文件句柄。

　　20.1.2.1 THandleStream的屬性的方法：

　　1. Handle屬性

　　聲明：property Handle: Integer;

　　Handle屬性提供了對(duì)文件句柄的只讀訪問(wèn)，該句柄由THandleStream的構(gòu)造方法Create傳入。因此除了用THandleStream提供的方法外，也可以用文件管理函數(shù)對(duì)句柄進(jìn)行操作。實(shí)際上，THandleStream的方法在實(shí)現(xiàn)上也是運(yùn)用文件管理函數(shù)進(jìn)行實(shí)際的讀寫(xiě)操作。

　　2. Create方法

　　聲明：constructor Create(AHandle: Integer);

　　Create方法使用傳入的Handle參數(shù)創(chuàng)建一個(gè)與特定文件句柄相聯(lián)的THandleStream對(duì)象，并且將AHandle賦給流的Handle屬性。

　　3. Read、Write和Seek方法

　　這三個(gè)方法是TStream的虛方法，只是在THandleStream 中覆蓋了這三個(gè)方法，以實(shí)現(xiàn)特定媒介──文件的數(shù)據(jù)存取。后面會(huì)詳細(xì)介紹這三個(gè)方法的實(shí)現(xiàn)。

　　20.1.2.2 THandleStream的實(shí)現(xiàn)原理

　　THandleStream是從TStream繼承來(lái)的，因此可以共用TStream中的屬性和大多數(shù)方法。THandleStream在實(shí)現(xiàn)上主要是增加了一個(gè)屬性Handle和覆蓋了Create、Read、Write和Seek四個(gè)方法。

　　1. 屬性的實(shí)現(xiàn)

　　Handle屬性的實(shí)現(xiàn)正如Delphi大多數(shù)屬性的實(shí)現(xiàn)那樣，先在對(duì)象定義的private部分聲明一個(gè)存放數(shù)據(jù)的變量FHandle，然后在定義的public部分聲明屬性Handle，其中屬性定義的讀寫(xiě)控制部分加上只讀控制，讀控制只是直接讀取FHandle變量的值，其實(shí)現(xiàn)如下：

　　THandleStream = class(TStream)

　　private

　　FHandle: Integer;

　　public

　　…

　　property Handle: Integer read FHandle;

　　end;

　　2. 方法的實(shí)現(xiàn)

　　THandleStream的Create方法，以AHandle作為參數(shù)，在方法里面只是簡(jiǎn)單的將AHandle的值賦給FHandle，其實(shí)現(xiàn)如下：

　　constructor THandleStream.Create(AHandle: Integer);

　　begin

　　FHandle := AHandle;

　　end;

　　為實(shí)現(xiàn)針對(duì)文件的數(shù)據(jù)對(duì)象存儲(chǔ)，THandleStream的Read、Write和Seek方法覆蓋了TStream中的相應(yīng)方法。它們的實(shí)現(xiàn)都調(diào)用了Windows的文件管理函數(shù)。

　　Read方法調(diào)用FileRead函數(shù)實(shí)現(xiàn)文件讀操作，其實(shí)現(xiàn)如下：

　　function THandleStream.Read(var Buffer; Count: Longint): Longint;

　　begin

　　Result := FileRead(FHandle, Buffer, Count);

　　if Result = -1 then Result := 0;

　　end;

　　Write方法調(diào)用FileWrite函數(shù)實(shí)現(xiàn)文件寫(xiě)操作，其實(shí)現(xiàn)如下：

　　function THandleStream.Write(const Buffer; Count: Longint): Longint;

　　begin

　　Result := FileWrite(FHandle, Buffer, Count);

　　if Result = -1 then Result := 0;

　　end;

　　Seek方法調(diào)用FileSeek函數(shù)實(shí)現(xiàn)文件指針的移動(dòng)，其實(shí)現(xiàn)如下：

　　function THandleStream.Seek(Offset: Longint; Origin: Word): Longint;

　　begin

　　Result := FileSeek(FHandle, Offset, Origin);

　　end;

　　20.1.3 TFileStream對(duì)象

　　TFileStream對(duì)象是在磁盤(pán)文件上存儲(chǔ)數(shù)據(jù)的Stream對(duì)象。TFileStream是從THandleStream繼承下來(lái)的，它和THandleStream一樣都是實(shí)現(xiàn)文件的存取操作。不同之處在于THandleStream用句柄訪問(wèn)文件，而TFileStream用文件名訪問(wèn)文件。實(shí)際上TFileStream是THandleStream上的一層包裝，其內(nèi)核是THandleStream的屬性和方法。

　　TFileStream中沒(méi)有增加新的屬性和方法。它只是覆蓋了的構(gòu)造方法Create和析構(gòu)方法Destory。在Create方法中帶兩個(gè)參數(shù)FileName和Mode。FileName描述要?jiǎng)?chuàng)建或打開(kāi)的文件名，而Mode描述文件模式如fmCreate、fmOpenRead和fmOpenWrite等。Create方法首先使用FileCreate或FileOpen函數(shù)創(chuàng)建或打開(kāi)名為FileName的文件，再將得到的文件句柄賦給FHandle。TFileStream的文件讀寫(xiě)操作都是由從THandleStream繼承的Read

　　var

　　Stream: TStream;

　　begin

　　Stream := TFileStream.Create(FileName, fmCreate);

　　try

　　SaveToStream(Stream);

　　finally

　　Stream.Free;

　　end;

　　end;

　　在Delphi 的許多對(duì)象的SaveToStream 和SaveToFile、LoadFromStream和LoadFromFile方法的實(shí)現(xiàn)都有類(lèi)似的嵌套結(jié)構(gòu)。

　　20.1.5 TMemoryStream對(duì)象

　　TMemoryStream對(duì)象是一個(gè)管理動(dòng)態(tài)內(nèi)存中的數(shù)據(jù)的Stream對(duì)象，它是從TCustomMemoryStream中繼承下來(lái)的，除了從TCustomMemoryStream中繼承的屬性和方法外，它還增加和覆蓋了一些用于從磁盤(pán)文件和其它注臺(tái)讀數(shù)據(jù)的方法。它還提供了寫(xiě)入、消除內(nèi)存內(nèi)容的動(dòng)態(tài)內(nèi)存管理方法。下面介紹它的這些屬性和方法。

　　20.1.5.1 TMemoryStream的屬性和方法

　　1. Capacity屬性

　　聲明：property Copacity: Longint;

　　Capacity屬性決定了分配給內(nèi)存流的內(nèi)存池的大小。這與Size屬性有些不同。Size屬性是描述流中數(shù)據(jù)的大小。在程序中可以將Capacity 的值設(shè)置的比數(shù)據(jù)所需最大內(nèi)存大一些，這樣可以避免頻繁地重新分配。

　　2. Realloc方法

　　聲明：function Realloc(var NewCapacity: Longint): Pointer; virtual;

　　Realloc方法，以8K為單位分配動(dòng)態(tài)內(nèi)存，內(nèi)存的大小由NewCapacity指定，函數(shù)返回指向所分配內(nèi)存的指針。

　　3. SetSize方法

　　SetSize方法消除內(nèi)存流中包含的數(shù)據(jù)，并將內(nèi)存流中內(nèi)存池的大小設(shè)為Size字節(jié)。如果Size為零，是SetSize方法將釋放已有的內(nèi)存池，并將Memory屬性置為nil;否則，SetSize方法將內(nèi)存池大小調(diào)整為Size。

　　4. Clear方法

　　聲明：procedure Clear;

　　Clear方法釋放內(nèi)存中的內(nèi)存池，并將Memory屬性置為nil。在調(diào)用Clear方法后，Size和Position屬性都為0。

　　5. LoadFromStream方法

　　聲明：procedure LoadFromStream(Stream: TStream);

　　LoadFromStream方法將Stream指定的流中的全部?jī)?nèi)容復(fù)制到MemoryStream中，復(fù)制過(guò)程將取代已有內(nèi)容，使MemoryStream成為Stream的一份拷貝。

　　6. LoadFromFile方法

　　聲明：procedure LoadFromFile(count FileName: String);

　　LoadFromFile方法將FileName指定文件的所有內(nèi)容復(fù)制到MemoryStream中，并取代已有內(nèi)容。調(diào)用LoadFromFile方法后，MemoryStream將成為文件內(nèi)容在內(nèi)存中的完整拷貝。

　　20.1.5.2 TMemoryStream對(duì)象的實(shí)現(xiàn)原理

　　TMemoryStream從TCustomMemoryStream對(duì)象直接繼承，因此可以享用TCustomMemoryStream的屬性和方法。前面講過(guò)，TCustomMemoryStream是用于內(nèi)存中數(shù)據(jù)操作的抽象對(duì)象，它為MemoryStream對(duì)象的實(shí)現(xiàn)提供了框架，框架中的內(nèi)容還要由具體MemoryStream對(duì)象去填充。TMemoryStream對(duì)象就是按動(dòng)態(tài)內(nèi)存管理的需要填充框架中的具體內(nèi)容。下面介紹TMemoryStream對(duì)象的實(shí)現(xiàn)。

　　1. TMemoryStream屬性的實(shí)現(xiàn)

　　TMemoryStream在其protected部分增加了一個(gè)Capacity屬性，該屬性決定了MemoryStream所占動(dòng)態(tài)內(nèi)存的大小。TMemoryStream首先在private部分聲明了FCapacity變量作為存儲(chǔ)Capacity屬性值的數(shù)據(jù)域，然后在protected部分聲明了該屬性。在屬性聲明的讀控制部分簡(jiǎn)單讀取FCapacity的值，在寫(xiě)控制處調(diào)用了方法SetCapacity。該方法除了給FCapacity賦值外還執(zhí)行了修改Capacity屬性所必需操作如狀態(tài)改變等。

　　下面是屬性的實(shí)現(xiàn)：

　　TMemoryStream = class(TCustomMemoryStream)

　　private

　　FCapacity: Longint;

　　procedure SetCapacity(NewCapacity: Longint);

　　protected

　　…

　　property Capacity: Longint read FCapacity write SetCapacity;

　　public

　　…

　　end;

　　寫(xiě)控制方法SetCapacity的實(shí)現(xiàn)是這樣的：

　　procedure TMemoryStream.SetCapacity(NewCapacity: Longint);

　　begin

　　SetPointer(Realloc(NewCapacity), FSize);

　　FCapacity := NewCapacity;

　　end;

　　在SetCapacity 方法先是調(diào)用Realloc重新分配內(nèi)存，然后用NewCapacity的值給FCapacity賦值。Realloc方法進(jìn)行某些對(duì)象狀態(tài)的改變。