20.3.1.4 DFM文件與標准文本文件(TXT文件)的相互轉換
在Delphi可視化設計環境中，允許程序員在代碼編輯器中以文本的方式浏覽和修改DFM文件內容。當用File/Open命令直接打開DFM文件或者選擇窗體設計窗口的彈出式菜單上的View as Text命令時，就會在編輯器中出現文本形式的信息。我們姑且將這種文本形式稱之為窗體設計腳本。Delphi提供的這種腳本編輯功能是對Delphi可視化設計的一大補充。當然這個腳本編輯能力是有限制的，比方說不能在腳本任意地添加和刪除部件，因為代碼和DFM腳本是緊密相連的，任意添加和修改會導致不一致性。然而在動態生成的DFM文件中，就不存在這一限制，後面會介紹DFM動態生成技術的應用。
實際上，DFM文件內容是二進制數據，它的腳本是經過Delphi開發環境自動轉化的，而且Delphi VCL中的Classes庫單元中提供了在二進制流中的文件DFM和它的腳本之相互轉化的過程。它們是ObjectBinaryToText和ObjectTextBinary、ObjectResourceToText和ObjectTextToResource。
ObjectBinaryToText過程將二進制流中存儲的部件轉化為基於文本的表現形式，這樣就可以用文本處理函數進行處理，還可以用文本編輯器進行查找和替代操作，最後可以將文本再轉化成二進制流中的部件。
ObjectBinaryToText過程的主程序是這樣的：
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;
過程中調用的ConvertObject過程是個遞歸過程，用於將DFM文件中的每一個部件轉化為文本形式。因為由於部件的擁有關系，所以部件成嵌套結構，采用遞歸是最好的方式：
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過程是處理部件的繼承標志信息。轉換成的頭信息文本有兩種形式。
Inherited TestForm1: TTestForm[2]
或者：
Object TestForm1: TTestForm
前者是ffInherited和ffChildPos置位，後面是都沒置位。
ConvertProperty過程用於轉化屬性。
procedure ConvertProperty;
begin
WriteIndent;
WriteStr(Reader.ReadStr);
WriteStr(' = ');
ConvertValue;
WriteStr(#13#10);
end;
WriteIndent語句寫入屬性名前的空格，WriteStr(Reader.ReadStr)語句寫入屬性名ConvertValue過程根據屬性的類型將屬性值轉化為字符串，然後寫入流中。
ObjectTextToBinary過程執行的功能與ObjectBinaryToText相反，將TXT文件轉換為二進制流中的部件，而且只要TXT文件內容的書寫符合DFM腳本語法，ObjectTextToBinary可將任何程序生成的TXT文件轉換為部件，這一功能也為DFM 文件的動態生成和編輯奠定了基礎。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腳本語言之間相互轉換的任務由ObjectResourceToText和ObjextTextToResource兩個過程完成。
procedure ObjectResourceToText(Input, Output: TStream);
begin
Input.ReadResHeader;
ObjectBinaryToText(Input, Output);
end;
ObjectTextToResource過程就比較復雜，因為DFM文件資源頭中要包含繼承標志信息，因此在調用ObjectTextToBinary後，就讀取標志信息，然後寫入資源頭。
procedure ObjectTextToResource(Input, Output: TStream);
var
Len: Byte;
Tmp: Longint;
MemoryStream: TMemoryStream;
MemorySize: Longint;
Header: array[0..79] 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;
