20.3.1.2 讀DFM文件的函數(shù)：ReadComponentResFile
ReadComponentResFile函數(shù)帶有兩個參數(shù)FileName和Instance。FileName參數(shù)指定要讀DFM文件名，Instance參數(shù)指定從DFM文件中要讀的部件。該函數(shù)從DFM文件中將Instance和它擁有的所有部件，并返回該部件。
這個函數(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對象打開由FileName指定的DFM文件，然后用Stream對象的ReadComponentRes方法讀出Instance，并將讀的結果作為函數(shù)的返回值。
20.3.1.3 讀取Delphi應用程序資源中的部件
函數(shù)InternalReadComponentRes可以讀取Delphi應用程序資源中的部件。Delphi 的DFM文件在程序經(jīng)過編譯鏈接后被嵌入應用程序的資源中，而且格式發(fā)生了改變，即少了資源文件頭。
在第一節(jié)中曾經(jīng)介紹過TResourceStream對象，該對象是操作資源媒介上的數(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是一個Delphi VCL定義的全局變量，代表當前應用程序的句柄。函數(shù)用了資源訪問API函數(shù)FindResource來測定是否存在ResName所描述資源。因為在TResourceStream的創(chuàng)建過程還有FindResource等操作，所以函數(shù)中調(diào)用了FreeResource。最后函數(shù)調(diào)用了Stream對象的ReadComponent方法讀出部件。因為函數(shù)的Instance是var類型的參數(shù)，所以可以訪問Instance，得到讀出的部件。
20.3.1.4 DFM文件與標準文本文件（TXT文件）的相互轉(zhuǎn)換
在Delphi可視化設計環(huán)境中，允許程序員在代碼編輯器中以文本的方式瀏覽和修改DFM文件內(nèi)容。當用File/Open命令直接打開DFM文件或者選擇窗體設計窗口的彈出式菜單上的View as Text命令時，就會在編輯器中出現(xiàn)文本形式的信息。我們姑且將這種文本形式稱之為窗體設計腳本。Delphi提供的這種腳本編輯功能是對Delphi可視化設計的一大補充。當然這個腳本編輯能力是有限制的，比方說不能在腳本任意地添加和刪除部件，因為代碼和DFM腳本是緊密相連的，任意添加和修改會導致不一致性。然而在動態(tài)生成的DFM文件中，就不存在這一限制，后面會介紹DFM動態(tài)生成技術的應用。
實際上，DFM文件內(nèi)容是二進制數(shù)據(jù)，它的腳本是經(jīng)過Delphi開發(fā)環(huán)境自動轉(zhuǎn)化的，而且Delphi VCL中的Classes庫單元中提供了在二進制流中的文件DFM和它的腳本之相互轉(zhuǎn)化的過程。它們是ObjectBinaryToText和ObjectTextBinary、ObjectResourceToText和ObjectTextToResource。
ObjectBinaryToText過程將二進制流中存儲的部件轉(zhuǎn)化為基于文本的表現(xiàn)形式，這樣就可以用文本處理函數(shù)進行處理，還可以用文本編輯器進行查找和替代操作，最后可以將文本再轉(zhuǎ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過程是個遞歸過程，用于將DFM文件中的每一個部件轉(zhuǎn)化為文本形式。因為由于部件的擁有關系，所以部件成嵌套結構，采用遞歸是的方式：
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過程是處理部件的繼承標志信息。轉(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語句寫入屬性名前的空格，WriteStr（Reader.ReadStr）語句寫入屬性名ConvertValue過程根據(jù)屬性的類型將屬性值轉(zhuǎn)化為字符串，然后寫入流中。
ObjectTextToBinary過程執(zhí)行的功能與ObjectBinaryToText相反，將TXT文件轉(zhuǎn)換為二進制流中的部件，而且只要TXT文件內(nèi)容的書寫符合DFM腳本語法，ObjectTextToBinary可將任何程序生成的TXT文件轉(zhuǎn)換為部件，這一功能也為DFM 文件的動態(tài)生成和編輯奠定了基礎。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;
在程序流程和結構上與ObjectBinaryToText差不多。ConvertObject也是個遞歸過程：
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腳本語言之間相互轉(zhuǎn)換的任務由ObjectResourceToText和ObjextTextToResource兩個過程完成。
procedure ObjectResourceToText（Input, Output: TStream）;
begin
Input.ReadResHeader;
ObjectBinaryToText（Input, Output）;
end;
ObjectTextToResource過程就比較復雜，因為DFM文件資源頭中要包含繼承標志信息，因此在調(diào)用ObjectTextToBinary后，就讀取標志信息，然后寫入資源頭。
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ù)帶有兩個參數(shù)FileName和Instance。FileName參數(shù)指定要讀DFM文件名，Instance參數(shù)指定從DFM文件中要讀的部件。該函數(shù)從DFM文件中將Instance和它擁有的所有部件，并返回該部件。
這個函數(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對象打開由FileName指定的DFM文件，然后用Stream對象的ReadComponentRes方法讀出Instance，并將讀的結果作為函數(shù)的返回值。
20.3.1.3 讀取Delphi應用程序資源中的部件
函數(shù)InternalReadComponentRes可以讀取Delphi應用程序資源中的部件。Delphi 的DFM文件在程序經(jīng)過編譯鏈接后被嵌入應用程序的資源中，而且格式發(fā)生了改變，即少了資源文件頭。
在第一節(jié)中曾經(jīng)介紹過TResourceStream對象，該對象是操作資源媒介上的數(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是一個Delphi VCL定義的全局變量，代表當前應用程序的句柄。函數(shù)用了資源訪問API函數(shù)FindResource來測定是否存在ResName所描述資源。因為在TResourceStream的創(chuàng)建過程還有FindResource等操作，所以函數(shù)中調(diào)用了FreeResource。最后函數(shù)調(diào)用了Stream對象的ReadComponent方法讀出部件。因為函數(shù)的Instance是var類型的參數(shù)，所以可以訪問Instance，得到讀出的部件。
20.3.1.4 DFM文件與標準文本文件（TXT文件）的相互轉(zhuǎn)換
在Delphi可視化設計環(huán)境中，允許程序員在代碼編輯器中以文本的方式瀏覽和修改DFM文件內(nèi)容。當用File/Open命令直接打開DFM文件或者選擇窗體設計窗口的彈出式菜單上的View as Text命令時，就會在編輯器中出現(xiàn)文本形式的信息。我們姑且將這種文本形式稱之為窗體設計腳本。Delphi提供的這種腳本編輯功能是對Delphi可視化設計的一大補充。當然這個腳本編輯能力是有限制的，比方說不能在腳本任意地添加和刪除部件，因為代碼和DFM腳本是緊密相連的，任意添加和修改會導致不一致性。然而在動態(tài)生成的DFM文件中，就不存在這一限制，后面會介紹DFM動態(tài)生成技術的應用。
實際上，DFM文件內(nèi)容是二進制數(shù)據(jù)，它的腳本是經(jīng)過Delphi開發(fā)環(huán)境自動轉(zhuǎn)化的，而且Delphi VCL中的Classes庫單元中提供了在二進制流中的文件DFM和它的腳本之相互轉(zhuǎn)化的過程。它們是ObjectBinaryToText和ObjectTextBinary、ObjectResourceToText和ObjectTextToResource。
ObjectBinaryToText過程將二進制流中存儲的部件轉(zhuǎn)化為基于文本的表現(xiàn)形式，這樣就可以用文本處理函數(shù)進行處理，還可以用文本編輯器進行查找和替代操作，最后可以將文本再轉(zhuǎ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過程是個遞歸過程，用于將DFM文件中的每一個部件轉(zhuǎn)化為文本形式。因為由于部件的擁有關系，所以部件成嵌套結構，采用遞歸是的方式：
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過程是處理部件的繼承標志信息。轉(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語句寫入屬性名前的空格，WriteStr（Reader.ReadStr）語句寫入屬性名ConvertValue過程根據(jù)屬性的類型將屬性值轉(zhuǎn)化為字符串，然后寫入流中。
ObjectTextToBinary過程執(zhí)行的功能與ObjectBinaryToText相反，將TXT文件轉(zhuǎn)換為二進制流中的部件，而且只要TXT文件內(nèi)容的書寫符合DFM腳本語法，ObjectTextToBinary可將任何程序生成的TXT文件轉(zhuǎn)換為部件，這一功能也為DFM 文件的動態(tài)生成和編輯奠定了基礎。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;
在程序流程和結構上與ObjectBinaryToText差不多。ConvertObject也是個遞歸過程：
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腳本語言之間相互轉(zhuǎn)換的任務由ObjectResourceToText和ObjextTextToResource兩個過程完成。
procedure ObjectResourceToText（Input, Output: TStream）;
begin
Input.ReadResHeader;
ObjectBinaryToText（Input, Output）;
end;
ObjectTextToResource過程就比較復雜，因為DFM文件資源頭中要包含繼承標志信息，因此在調(diào)用ObjectTextToBinary后，就讀取標志信息，然后寫入資源頭。
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;