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過程的使用支持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ì)象打開由FileName指定的DFM文件，然后用Stream對(duì)象的ReadComponentRes方法讀出Instance，并將讀的結(jié)果作為函數(shù)的返回值。
20.3.1.3 讀取Delphi應(yīng)用程序資源中的部件
函數(shù)InternalReadComponentRes可以讀取Delphi應(yīng)用程序資源中的部件。Delphi 的DFM文件在程序經(jīng)過編譯鏈接后被嵌入應(yīng)用程序的資源中，而且格式發(fā)生了改變，即少了資源文件頭。
在第一節(jié)中曾經(jīng)介紹過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ù)用了資源訪問API函數(shù)FindResource來測(cè)定是否存在ResName所描述資源。因?yàn)樵赥ResourceStream的創(chuàng)建過程還有FindResource等操作，所以函數(shù)中調(diào)用了FreeResource。最后函數(shù)調(diào)用了Stream對(duì)象的ReadComponent方法讀出部件。因?yàn)楹瘮?shù)的Instance是var類型的參數(shù)，所以可以訪問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命令直接打開DFM文件或者選擇窗體設(shè)計(jì)窗口的彈出式菜單上的View as Text命令時(shí)，就會(huì)在編輯器中出現(xiàn)文本形式的信息。我們姑且將這種文本形式稱之為窗體設(shè)計(jì)腳本。Delphi提供的這種腳本編輯功能是對(duì)Delphi可視化設(shè)計(jì)的一大補(bǔ)充。當(dāng)然這個(gè)腳本編輯能力是有限制的，比方說不能在腳本任意地添加和刪除部件，因?yàn)榇a和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)過Delphi開發(fā)環(huán)境自動(dòng)轉(zhuǎn)化的，而且Delphi VCL中的Classes庫(kù)單元中提供了在二進(jìn)制流中的文件DFM和它的腳本之相互轉(zhuǎn)化的過程。它們是ObjectBinaryToText和ObjectTextBinary、ObjectResourceToText和ObjectTextToResource。
ObjectBinaryToText過程將二進(jìn)制流中存儲(chǔ)的部件轉(zhuǎn)化為基于文本的表現(xiàn)形式，這樣就可以用文本處理函數(shù)進(jìn)行處理，還可以用文本編輯器進(jìn)行查找和替代操作，最后可以將文本再轉(zhuǎn)化成二進(jìn)制流中的部件。
ObjectBinaryToText過程的主程序是這樣的：
procedure ObjectBinaryToText（Input, Output: TStream）;
var
NestingLevel: Integer;
SaveSeparator: Char;
Reader: TReader;
Writer: TWriter;
procedure WriteIndent;
const
Blanks: array[01] 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;
過程中調(diào)用的ConvertObject過程是個(gè)遞歸過程，用于將DFM文件中的每一個(gè)部件轉(zhuǎn)化為文本形式。因?yàn)橛捎诓考膿碛嘘P(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是寫入每一行起始字符前的空格，ConvertHeader過程是處理部件的繼承標(biāo)志信息。轉(zhuǎn)換成的頭信息文本有兩種形式。
Inherited TestForm1: TTestForm[2]
或者：
Object TestForm1: TTestForm
前者是ffInherited和ffChildPos置位，后面是都沒置位。
ConvertProperty過程用于轉(zhuǎn)化屬性。
procedure ConvertProperty;
begin
WriteIndent;
WriteStr（Reader.ReadStr）;
WriteStr（' = '）;
ConvertValue;
WriteStr（#13#10）;
end;
WriteIndent語(yǔ)句寫入屬性名前的空格，WriteStr（Reader.ReadStr）語(yǔ)句寫入屬性名ConvertValue過程根據(jù)屬性的類型將屬性值轉(zhuǎn)化為字符串，然后寫入流中。
ObjectTextToBinary過程執(zhí)行的功能與ObjectBinaryToText相反，將TXT文件轉(zhuǎn)換為二進(jìn)制流中的部件，而且只要TXT文件內(nèi)容的書寫符合DFM腳本語(yǔ)法，ObjectTextToBinary可將任何程序生成的TXT文件轉(zhuǎn)換為部件，這一功能也為DFM 文件的動(dòng)態(tài)生成和編輯奠定了基礎(chǔ)。ObjectTextToBinary過程的主程序如下：
procedure ObjectTextToBinary（Input, Output: TStream）;
var
SaveSeparator: Char;
Parser: TParser;
Writer: TWriter;
…
begin
Parser := TParser.Create（Input）;
SaveSeparator := DecimalSeparator;
DecimalSeparator := '.';
try
Writer := TWriter.Create（Output, 4096）;
try
Writer.WriteSignature;
ConvertObject;
finally
Writer.Free;
end;
finally
DecimalSeparator := SaveSeparator;
Parser.Free;
end;
end;
在程序流程和結(jié)構(gòu)上與ObjectBinaryToText差不多。ConvertObject也是個(gè)遞歸過程：
procedure ConvertObject;
var
InheritedObject: Boolean;
begin
InheritedObject := False;
if Parser.TokenSymbolIs（'INHERITED'） then
InheritedObject := True
else
Parser.CheckTokenSymbol（'OBJECT'）;
Parser.NextToken;
ConvertHeader（InheritedObject）;
while not Parser.TokenSymbolIs（'END'） and
not Parser.TokenSymbolIs（'OBJECT'） and
not Parser.TokenSymbolIs（'INHERITED'） do ConvertProperty;
Writer.WriteListEnd;
while not Parser.TokenSymbolIs（'END'） do ConvertObject;
Writer.WriteListEnd;
Parser.NextToken;
end;
DFM文件與DFM腳本語(yǔ)言之間相互轉(zhuǎn)換的任務(wù)由ObjectResourceToText和ObjextTextToResource兩個(gè)過程完成。
procedure ObjectResourceToText（Input, Output: TStream）;
begin
Input.ReadResHeader;
ObjectBinaryToText（Input, Output）;
end;
ObjectTextToResource過程就比較復(fù)雜，因?yàn)镈FM文件資源頭中要包含繼承標(biāo)志信息，因此在調(diào)用ObjectTextToBinary后，就讀取標(biāo)志信息，然后寫入資源頭。
procedure ObjectTextToResource（Input, Output: TStream）;
var
Len: Byte;
Tmp: Longint;
MemoryStream: TMemoryStream;
MemorySize: Longint;
Header: array[079] of Char;
begin
MemoryStream := TMemoryStream.Create;
try
ObjectTextToBinary（Input, MemoryStream）;
MemorySize := MemoryStream.Size;
FillChar（Header, SizeOf（Header）, 0）;
MemoryStream.Position := SizeOf（Longint）; { Skip header }
MemoryStream.Read（Len, 1）;
if Len and $F0 = $F0 then
begin
if ffChildPos in TFilerFlags（（Len and $F0）） then
begin
MemoryStream.Read（Len, 1）;
case TValueType（Len） of
vaInt8: Len := 1;
vaInt16: Len := 2;
vaInt32: Len := 4;
end;
MemoryStream.Read（Tmp, Len）;
end;
MemoryStream.Read（Len, 1）;
end;
MemoryStream.Read（Header[3], Len）;
StrUpper（@Header[3]）;
Byte（（@Header[0]）^） := $FF;
Word（（@Header[1]）^） := 10;
Word（（@Header[Len + 4]）^） := $1030;
Longint（（@Header[Len + 6]）^） := MemorySize;
Output.Write（Header, Len + 10）;
Output.Write（MemoryStream.Memory^, MemorySize）;
finally
MemoryStream.Free;
end;
end;
ReadComponentResFile函數(shù)帶有兩個(gè)參數(shù)FileName和Instance。FileName參數(shù)指定要讀DFM文件名，Instance參數(shù)指定從DFM文件中要讀的部件。該函數(shù)從DFM文件中將Instance和它擁有的所有部件，并返回該部件。
這個(gè)函數(shù)的意義在于，配合WriteComponentResFile過程的使用支持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ì)象打開由FileName指定的DFM文件，然后用Stream對(duì)象的ReadComponentRes方法讀出Instance，并將讀的結(jié)果作為函數(shù)的返回值。
20.3.1.3 讀取Delphi應(yīng)用程序資源中的部件
函數(shù)InternalReadComponentRes可以讀取Delphi應(yīng)用程序資源中的部件。Delphi 的DFM文件在程序經(jīng)過編譯鏈接后被嵌入應(yīng)用程序的資源中，而且格式發(fā)生了改變，即少了資源文件頭。
在第一節(jié)中曾經(jīng)介紹過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ù)用了資源訪問API函數(shù)FindResource來測(cè)定是否存在ResName所描述資源。因?yàn)樵赥ResourceStream的創(chuàng)建過程還有FindResource等操作，所以函數(shù)中調(diào)用了FreeResource。最后函數(shù)調(diào)用了Stream對(duì)象的ReadComponent方法讀出部件。因?yàn)楹瘮?shù)的Instance是var類型的參數(shù)，所以可以訪問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命令直接打開DFM文件或者選擇窗體設(shè)計(jì)窗口的彈出式菜單上的View as Text命令時(shí)，就會(huì)在編輯器中出現(xiàn)文本形式的信息。我們姑且將這種文本形式稱之為窗體設(shè)計(jì)腳本。Delphi提供的這種腳本編輯功能是對(duì)Delphi可視化設(shè)計(jì)的一大補(bǔ)充。當(dāng)然這個(gè)腳本編輯能力是有限制的，比方說不能在腳本任意地添加和刪除部件，因?yàn)榇a和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)過Delphi開發(fā)環(huán)境自動(dòng)轉(zhuǎn)化的，而且Delphi VCL中的Classes庫(kù)單元中提供了在二進(jìn)制流中的文件DFM和它的腳本之相互轉(zhuǎn)化的過程。它們是ObjectBinaryToText和ObjectTextBinary、ObjectResourceToText和ObjectTextToResource。
ObjectBinaryToText過程將二進(jìn)制流中存儲(chǔ)的部件轉(zhuǎn)化為基于文本的表現(xiàn)形式，這樣就可以用文本處理函數(shù)進(jìn)行處理，還可以用文本編輯器進(jìn)行查找和替代操作，最后可以將文本再轉(zhuǎn)化成二進(jìn)制流中的部件。
ObjectBinaryToText過程的主程序是這樣的：
procedure ObjectBinaryToText（Input, Output: TStream）;
var
NestingLevel: Integer;
SaveSeparator: Char;
Reader: TReader;
Writer: TWriter;
procedure WriteIndent;
const
Blanks: array[01] 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;
過程中調(diào)用的ConvertObject過程是個(gè)遞歸過程，用于將DFM文件中的每一個(gè)部件轉(zhuǎn)化為文本形式。因?yàn)橛捎诓考膿碛嘘P(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是寫入每一行起始字符前的空格，ConvertHeader過程是處理部件的繼承標(biāo)志信息。轉(zhuǎn)換成的頭信息文本有兩種形式。
Inherited TestForm1: TTestForm[2]
或者：
Object TestForm1: TTestForm
前者是ffInherited和ffChildPos置位，后面是都沒置位。
ConvertProperty過程用于轉(zhuǎn)化屬性。
procedure ConvertProperty;
begin
WriteIndent;
WriteStr（Reader.ReadStr）;
WriteStr（' = '）;
ConvertValue;
WriteStr（#13#10）;
end;
WriteIndent語(yǔ)句寫入屬性名前的空格，WriteStr（Reader.ReadStr）語(yǔ)句寫入屬性名ConvertValue過程根據(jù)屬性的類型將屬性值轉(zhuǎn)化為字符串，然后寫入流中。
ObjectTextToBinary過程執(zhí)行的功能與ObjectBinaryToText相反，將TXT文件轉(zhuǎn)換為二進(jìn)制流中的部件，而且只要TXT文件內(nèi)容的書寫符合DFM腳本語(yǔ)法，ObjectTextToBinary可將任何程序生成的TXT文件轉(zhuǎn)換為部件，這一功能也為DFM 文件的動(dòng)態(tài)生成和編輯奠定了基礎(chǔ)。ObjectTextToBinary過程的主程序如下：
procedure ObjectTextToBinary（Input, Output: TStream）;
var
SaveSeparator: Char;
Parser: TParser;
Writer: TWriter;
…
begin
Parser := TParser.Create（Input）;
SaveSeparator := DecimalSeparator;
DecimalSeparator := '.';
try
Writer := TWriter.Create（Output, 4096）;
try
Writer.WriteSignature;
ConvertObject;
finally
Writer.Free;
end;
finally
DecimalSeparator := SaveSeparator;
Parser.Free;
end;
end;
在程序流程和結(jié)構(gòu)上與ObjectBinaryToText差不多。ConvertObject也是個(gè)遞歸過程：
procedure ConvertObject;
var
InheritedObject: Boolean;
begin
InheritedObject := False;
if Parser.TokenSymbolIs（'INHERITED'） then
InheritedObject := True
else
Parser.CheckTokenSymbol（'OBJECT'）;
Parser.NextToken;
ConvertHeader（InheritedObject）;
while not Parser.TokenSymbolIs（'END'） and
not Parser.TokenSymbolIs（'OBJECT'） and
not Parser.TokenSymbolIs（'INHERITED'） do ConvertProperty;
Writer.WriteListEnd;
while not Parser.TokenSymbolIs（'END'） do ConvertObject;
Writer.WriteListEnd;
Parser.NextToken;
end;
DFM文件與DFM腳本語(yǔ)言之間相互轉(zhuǎn)換的任務(wù)由ObjectResourceToText和ObjextTextToResource兩個(gè)過程完成。
procedure ObjectResourceToText（Input, Output: TStream）;
begin
Input.ReadResHeader;
ObjectBinaryToText（Input, Output）;
end;
ObjectTextToResource過程就比較復(fù)雜，因?yàn)镈FM文件資源頭中要包含繼承標(biāo)志信息，因此在調(diào)用ObjectTextToBinary后，就讀取標(biāo)志信息，然后寫入資源頭。
procedure ObjectTextToResource（Input, Output: TStream）;
var
Len: Byte;
Tmp: Longint;
MemoryStream: TMemoryStream;
MemorySize: Longint;
Header: array[079] of Char;
begin
MemoryStream := TMemoryStream.Create;
try
ObjectTextToBinary（Input, MemoryStream）;
MemorySize := MemoryStream.Size;
FillChar（Header, SizeOf（Header）, 0）;
MemoryStream.Position := SizeOf（Longint）; { Skip header }
MemoryStream.Read（Len, 1）;
if Len and $F0 = $F0 then
begin
if ffChildPos in TFilerFlags（（Len and $F0）） then
begin
MemoryStream.Read（Len, 1）;
case TValueType（Len） of
vaInt8: Len := 1;
vaInt16: Len := 2;
vaInt32: Len := 4;
end;
MemoryStream.Read（Tmp, Len）;
end;
MemoryStream.Read（Len, 1）;
end;
MemoryStream.Read（Header[3], Len）;
StrUpper（@Header[3]）;
Byte（（@Header[0]）^） := $FF;
Word（（@Header[1]）^） := 10;
Word（（@Header[Len + 4]）^） := $1030;
Longint（（@Header[Len + 6]）^） := MemorySize;
Output.Write（Header, Len + 10）;
Output.Write（MemoryStream.Memory^, MemorySize）;
finally
MemoryStream.Free;
end;
end;