ReadComponent方法主要是調(diào)用ReadComponent方法從Reader對(duì)象的流中讀取一連串相關(guān)聯(lián)的部件，并分解相互引用關(guān)系。

　　procedure TReader.ReadComponents(AOwner, AParent: TComponent;

　　Proc: TReadComponentsProc);

　　var

　　Component: TComponent;

　　begin

　　Root := AOwner;

　　Owner := AOwner;

　　Parent := AParent;

　　BeginReferences;

　　try

　　while not EndOfList do

　　begin

　　ReadSignature;

　　Component := ReadComponent(nil);

　　Proc(Component);

　　end;

　　FixupReferences;

　　finally

　　EndReferences;

　　end;

　　end;

　　ReadComponents首先用AOwner和AParent參數(shù)給Root,Owner和Parent賦值，用于重建各部件的相互引用。然后用一個(gè)While循環(huán)讀取部件并用由Proc傳入的方法進(jìn)行處理。在重建引用關(guān)系時(shí)，用了BeginReferences、FixUpReferences和EndReferences嵌套模式。

　　ReadRootComponent方法從Reader對(duì)象的流中將部件及其擁有的部件全部讀出。如果Component參數(shù)為nil，則創(chuàng)建一個(gè)相同類型的部件，最后返回該部件：

　　function TReader.ReadRootComponent(Root: TComponent): TComponent;

　　function FindUniqueName(const Name: string): string;

　　begin

　　…

　　end;

　　var

　　I: Integer;

　　Flags: TFilerFlags;

　　begin

　　ReadSignature;

　　Result := nil;

　　try

　　ReadPrefix(Flags, I);

　　if Root = nil then

　　begin

　　Result := TComponentClass(FindClass(ReadStr)).Create(nil);

　　Result.Name := ReadStr;

　　end else

　　begin

　　Result := Root;

　　ReadStr; { Ignore class name }

　　if csDesigning in Result.ComponentState then

　　ReadStr else

　　Result.Name := FindUniqueName(ReadStr);

　　end;

　　FRoot := Result;

　　if GlobalLoaded <> nil then

　　FLoaded := GlobalLoaded else

　　FLoaded := TList.Create;

　　try

　　FLoaded.Add(FRoot);

　　FOwner := FRoot;

　　Include(FRoot.FComponentState, csLoading);

　　Include(FRoot.FComponentState, csReading);

　　FRoot.ReadState(Self);

　　Exclude(FRoot.FComponentState, csReading);

　　if GlobalLoaded = nil then

　　for I := 0 to FLoaded.Count - 1 do TComponent(FLoaded[I]).Loaded;

　　finally

　　if GlobalLoaded = nil then FLoaded.Free;

　　FLoaded := nil;

　　end;

　　GlobalFixupReferences;

　　except

　　RemoveFixupReferences(Root, '');

　　if Root = nil then Result.Free;

　　raise;

　　end;

　　end;

　　ReadRootComponent首先調(diào)用ReadSignature讀取Filer對(duì)象標(biāo)簽。然后在try…except循環(huán)中執(zhí)行讀取任務(wù)。如果Root參數(shù)為nil，則用ReadStr讀出的類名創(chuàng)建新部件，并以流中讀出部件的Name屬性;否則，忽略類名，并判斷Name屬性的唯一性。最后用Root的ReadState方法讀取屬性和其擁有的擁有并處理引用關(guān)系。

　　7. SetName方法和OnSetName事件

　　因?yàn)樵贠nSetName事件中，Name參數(shù)是var型的，所以可以用OnSetName事件處理過(guò)程修改所讀部件的名字。而OnSetName事件處理過(guò)程是在SetName方法中實(shí)現(xiàn)的。

　　procedure TReader.SetName(Component: TComponent; var Name: string);

　　begin

　　if Assigned(FOnSetName) then FOnSetName(Self, Component, Name);

　　Component.Name := Name;

　　end;

　　SetName方法和OnSetName事件在動(dòng)態(tài)DFM文件的編程中有很重要的作用。

　　8. TReader的錯(cuò)誤處理

　　TReader的錯(cuò)誤處理是由Error方法和OnError事件的配合使用完成的。OnError 事件處理過(guò)程的Handled參數(shù)是var型的布爾變量，通過(guò)將Handled設(shè)為T(mén)rue或False可影響TReader 的錯(cuò)誤處理。OnError事件處理過(guò)程是在Error方法中調(diào)用的。

　　function TReader.Error(const Message: string): Boolean;

　　begin

　　Result := False;

　　if Assigned(FOnError) then FOnError(Self, Message, Result);

　　end;

　　9. FindMethod和OnFindMethod事件

　　有時(shí)，在程序運(yùn)行期間，給部件的方法指針(主要是事件處理過(guò)程)動(dòng)態(tài)賦值是很有用的，這樣就能動(dòng)態(tài)地改變部件響應(yīng)事件的方式。在流中讀取部件捍做到一點(diǎn)就要利用OnFindMehtod事件。OnFIndMethod事件是在FindMethod方法中被調(diào)用的。

　　function TReader.FindMethod(Root: TComponent;

　　const MethodName: string): Pointer;

　　var

　　Error: Boolean;

　　begin

　　Result := Root.MethodAddress(MethodName);

　　Error := Result = nil;

　　if Assigned(FOnFindMethod) then FOnFindMethod(Self, MethodName, Result,

　　Error);

　　if Error then PropValueError;

　　end;

　　OnFindMethod 方法除了可以給部件的MethodName所指定的方法指針動(dòng)態(tài)賦值外，還可修改Error參數(shù)來(lái)決定是否處理Missing Method錯(cuò)誤。方法中調(diào)用的MehtodAddress 方法定義在TObject中，它是個(gè)很有用的方法，它可以得到對(duì)象中定義的public方法的地址。FindMethod方法和OnFindMethod事件在動(dòng)態(tài)DFM的編程中有很重要的作用。

　　20.3 Delphi對(duì)象式數(shù)據(jù)管理應(yīng)用實(shí)例

　　Delphi 2.0無(wú)論是其可視化設(shè)計(jì)工具，還是可視化部件類庫(kù)(VCL)，都處處滲透了對(duì)象存儲(chǔ)技術(shù)，本節(jié)將從Delphi可視化設(shè)計(jì)內(nèi)部機(jī)制、VCL中的數(shù)據(jù)存儲(chǔ)、BLOB數(shù)據(jù)操作和動(dòng)態(tài)生成部件的存儲(chǔ)幾方面介紹對(duì)象存儲(chǔ)功能的實(shí)例應(yīng)用。

　　20.3.1 Delphi 動(dòng)態(tài)DFM文件及部件的存取在超媒體系統(tǒng)中的應(yīng)用

　　Delphi的可視化設(shè)計(jì)工具是同其部件類庫(kù)緊密結(jié)合在一起的。

　　每個(gè)部件只有通過(guò)一段注冊(cè)程序并通過(guò)Delphi的Install Component功能，才能出現(xiàn)在Component Palette上;部件的屬性才有可能出現(xiàn)在Object Inspector窗口中;部件的屬性編輯器才能被Delphi環(huán)境使用。因?yàn)檫@種渾然天成的關(guān)系，DFM文件存取必然得到VCL在程序上的支持。

　　DFM文件的部件存取是Delphi可視化設(shè)計(jì)環(huán)境中文件存取的中心問(wèn)題。因?yàn)镈elphi可視化設(shè)計(jì)的核心是窗體的設(shè)計(jì)。每個(gè)窗體對(duì)應(yīng)一個(gè)庫(kù)單元，是應(yīng)用程序的模塊，窗體在磁盤(pán)上的存儲(chǔ)就是DFM文件。

　　DFM文件結(jié)構(gòu)我們前面介紹過(guò)了。它實(shí)際上是存儲(chǔ)窗體及其擁有的所有部件的屬性。這種擁有關(guān)系是遞歸的。問(wèn)題在于如何將這些屬性數(shù)據(jù)與程序中的變量(屬性)代碼聯(lián)系起來(lái)。

　　在Delphi中處理這種聯(lián)系的過(guò)程分為兩種情況：設(shè)計(jì)時(shí)和運(yùn)行時(shí)。

　　在設(shè)計(jì)時(shí)，建立聯(lián)系表現(xiàn)為讀取DFM 文件，建立DFM文件中的部件及其屬性與可視化設(shè)計(jì)工具(Object Inspector、窗體設(shè)計(jì)窗口和代碼編輯器)的聯(lián)系，也就是說(shuō)讓這些部件及其屬性能出現(xiàn)在這些窗口中，并與代碼中的屬性定義聯(lián)系起來(lái);分解聯(lián)系表現(xiàn)為存儲(chǔ)DFM文件，將窗體窗口中的部件及其屬性寫(xiě)入DFM文件。

　　在運(yùn)行時(shí)，主要是建立聯(lián)系的過(guò)程，即讀取DFM文件。這時(shí)，DFM文件不是作為獨(dú)立的磁盤(pán)文件，而是以應(yīng)用程序資源中的RCDATA類型的二進(jìn)制數(shù)據(jù)存在。建立聯(lián)系的過(guò)程表現(xiàn)為將資源中的部件及其屬性與應(yīng)用程序中的對(duì)象及其數(shù)據(jù)域聯(lián)系起來(lái)。其過(guò)程為：根據(jù)DFM中的部件類名創(chuàng)建對(duì)象，再將用DFM中的部件屬性值給程序中的部件屬性賦值。當(dāng)然要完成這一過(guò)程，還必須在代碼中有相應(yīng)的窗體定義，因?yàn)榉椒ǖ却�碼是不存入部件的。

　　VCL對(duì)讀取DFM文件在代碼上的支持是通過(guò)Stream對(duì)象和Filer對(duì)象達(dá)到的。在20. 1和20.1節(jié)中，我們可以看到Stream對(duì)象和Filer對(duì)象中有大量的用于存取部件及其屬性的方法，尤其在TReader對(duì)象中，還有關(guān)于錯(cuò)誤處理和動(dòng)態(tài)的方法賦值的方法。下面我們就通過(guò)程序?qū)嵗�介紹存取DFM文件方法、步驟和注意事項(xiàng)。

　　20.3.1.1寫(xiě)DFM文件的過(guò)程：WriteComponentResFie

　　該過(guò)程帶有兩個(gè)參數(shù)FileName和Instance。FileName參數(shù)指定要寫(xiě)入的DFM文件名，Instance參數(shù)是TComponent類型的，它指定要寫(xiě)入的部件名，一般是TForm對(duì)象的子類。該過(guò)程將Instance部件和其擁有的所有部件寫(xiě)入DFM文件。

　　這個(gè)過(guò)程的意義在于，可以在程序運(yùn)行過(guò)程中產(chǎn)生Delphi的窗體部件和在窗體中插入部件，并由該函數(shù)將窗體寫(xiě)入DFM文件，支持了動(dòng)態(tài)DFM文件的重用性。

　　該過(guò)程的程序是這樣的：

　　procedure WriteComponentResFile(const FileName: string; Instance: TComponent);

　　var

　　Stream: TStream;

　　begin

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

　　try

　　Stream.WriteComponentRes(Instance.ClassName, Instance);

　　finally

　　Stream.Free;

　　end;

　　end;

　　函數(shù)中，用FileStream創(chuàng)建文件，用Stream對(duì)象的WriteComponetRes方法將Instance寫(xiě)入流中。

　　20.3.1.2 讀DFM文件的函數(shù)：ReadComponentResFile

　　ReadComponentResFile函數(shù)帶有兩個(gè)參數(shù)FileName和Instance。FileName參數(shù)指定要讀DFM文件名，Instance參數(shù)指定從DFM文件中要讀的部件。該函數(shù)從DFM文件中將Instance和它擁有的所有部件，并返回該部件。

　　這個(gè)函數(shù)的意義在于，配合WriteComponentResFile過(guò)程的使用支持DFM文件的重用性。

　　該函數(shù)的程序是這樣的：

　　function ReadComponentResFile(const FileName: string; Instance: TComponent):

　　TComponent;

　　var

　　Stream: TStream;

　　begin

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

　　try

　　Result := Stream.ReadComponentRes(Instance);

　　finally

　　Stream.Free;

　　end;

　　end;

　　程序中使用FileStream對(duì)象打開(kāi)由FileName指定的DFM文件，然后用Stream對(duì)象的ReadComponentRes方法讀出Instance，并將讀的結(jié)果作為函數(shù)的返回值。

　　20.3.1.3 讀取Delphi應(yīng)用程序資源中的部件

　　函數(shù)InternalReadComponentRes可以讀取Delphi應(yīng)用程序資源中的部件。Delphi 的DFM文件在程序經(jīng)過(guò)編譯鏈接后被嵌入應(yīng)用程序的資源中，而且格式發(fā)生了改變，即少了資源文件頭。

　　在第一節(jié)中曾經(jīng)介紹過(guò)TResourceStream對(duì)象，該對(duì)象是操作資源媒介上的數(shù)據(jù)的。函數(shù)InternalReadComponentRes用了TResourceStream。程序是這樣的：

　　function InternalReadComponentRes(const ResName: string;

　　var Instance: TComponent): Boolean;

　　var

　　HRsrc: THandle;

　　begin { 避免“EResNotFound”異常事件的出現(xiàn) }

　　HRsrc := FindResource(HInstance, PChar(ResName), RT_RCDATA);

　　Result := HRsrc <> 0;

　　if not Result then Exit;

　　FreeResource(HRsrc);

　　with TResourceStream.Create(HInstance, ResName, RT_RCDATA) do

　　try

　　Instance := ReadComponent(Instance);

　　finally

　　Free;

　　end;

　　Result := True;

　　end;

　　HInstance是一個(gè)Delphi VCL定義的全局變量，代表當(dāng)前應(yīng)用程序的句柄。函數(shù)用了資源訪問(wèn)API函數(shù)FindResource來(lái)測(cè)定是否存在ResName所描述資源。因?yàn)樵赥ResourceStream的創(chuàng)建過(guò)程還有FindResource等操作，所以函數(shù)中調(diào)用了FreeResource。最后函數(shù)調(diào)用了Stream對(duì)象的ReadComponent方法讀出部件。因?yàn)楹瘮?shù)的Instance是var類型的參數(shù)，所以可以訪問(wèn)Instance，得到讀出的部件。

　　20.3.1.4 DFM文件與標(biāo)準(zhǔn)文本文件(TXT文件)的相互轉(zhuǎn)換

　　在Delphi可視化設(shè)計(jì)環(huán)境中，允許程序員在代碼編輯器中以文本的方式瀏覽和修改DFM文件內(nèi)容。當(dāng)用File/Open命令直接打開(kāi)DFM文件或者選擇窗體設(shè)計(jì)窗口的彈出式菜單上的View as Text命令時(shí)，就會(huì)在編輯器中出現(xiàn)文本形式的信息。我們姑且將這種文本形式稱之為窗體設(shè)計(jì)腳本。Delphi提供的這種腳本編輯功能是對(duì)Delphi可視化設(shè)計(jì)的一大補(bǔ)充。當(dāng)然這個(gè)腳本編輯能力是有限制的，比方說(shuō)不能在腳本任意地添加和刪除部件，因?yàn)榇�碼和DFM腳本是緊密相連的，任意添加和修改會(huì)導(dǎo)致不一致性。然而在動(dòng)態(tài)生成的DFM文件中，就不存在這一限制，后面會(huì)介紹DFM動(dòng)態(tài)生成技術(shù)的應(yīng)用。

　　實(shí)際上，DFM文件內(nèi)容是二進(jìn)制數(shù)據(jù)，它的腳本是經(jīng)過(guò)Delphi開(kāi)發(fā)環(huán)境自動(dòng)轉(zhuǎn)化的，而且Delphi VCL中的Classes庫(kù)單元中提供了在二進(jìn)制流中的文件DFM和它的腳本之相互轉(zhuǎn)化的過(guò)程。它們是ObjectBinaryToText和ObjectTextBinary、ObjectResourceToText和ObjectTextToResource。

　　ObjectBinaryToText過(guò)程將二進(jìn)制流中存儲(chǔ)的部件轉(zhuǎn)化為基于文本的表現(xiàn)形式，這樣就可以用文本處理函數(shù)進(jìn)行處理，還可以用文本編輯器進(jìn)行查找和替代操作，最后可以將文本再轉(zhuǎn)化成二進(jìn)制流中的部件。

　　ObjectBinaryToText過(guò)程的主程序是這樣的：

　　procedure ObjectBinaryToText(Input, Output: TStream);

　　var

　　NestingLevel: Integer;

　　SaveSeparator: Char;

　　Reader: TReader;

　　Writer: TWriter;

　　procedure WriteIndent;

　　const

　　Blanks: array[0..1] of Char = ' ';

　　var

　　I: Integer;

　　begin

　　for I := 1 to NestingLevel do Writer.Write(Blanks, SizeOf(Blanks));

　　end;

　　procedure WriteStr(const S: string);

　　begin

　　Writer.Write(S[1], Length(S));

　　end;

　　procedure NewLine;

　　begin

　　WriteStr(#13#10);

　　WriteIndent;

　　end;

　　procedure ConvertHeader;

　　begin

　　…

　　end;

　　procedure ConvertBinary;

　　begin

　　…

　　end;

　　procedure ConvertValue;

　　begin

　　…

　　end;

　　procedure ConvertProperty;

　　begin

　　…

　　end;

　　procedure ConvertObject;

　　begin

　　…

　　end;

　　begin

　　NestingLevel := 0;

　　Reader := TReader.Create(Input, 4096);

　　SaveSeparator := DecimalSeparator;

　　DecimalSeparator := '.';

　　try

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

　　try

　　Reader.ReadSignature;

　　ConvertObject;

　　finally

　　Writer.Free;

　　end;

　　finally

　　DecimalSeparator := SaveSeparator;

　　Reader.Free;

　　end;

　　end;

　　過(guò)程中調(diào)用的ConvertObject過(guò)程是個(gè)遞歸過(guò)程，用于將DFM文件中的每一個(gè)部件轉(zhuǎn)化為文本形式。因?yàn)橛捎诓考�的擁有關(guān)系，所以部件成嵌套結(jié)構(gòu)，采用遞歸是最好的方式：

　　procedure ConvertObject;

　　begin

　　ConvertHeader;

　　Inc(NestingLevel);

　　while not Reader.EndOfList do ConvertProperty;

　　Reader.ReadListEnd;

　　while not Reader.EndOfList do ConvertObject;

　　Reader.ReadListEnd;

　　Dec(NestingLevel);

　　WriteIndent;

　　WriteStr('end'#13#10);

　　end;

　　NestStingLevel變量表示部件的嵌套層次。WriteIndent是寫(xiě)入每一行起始字符前的空格，ConvertHeader過(guò)程是處理部件的繼承標(biāo)志信息。轉(zhuǎn)換成的頭信息文本有兩種形式。

　　Inherited TestForm1: TTestForm[2]