首页 / 软件开发 / Delphi / 第二十章-开发Delphi对象式数据管理功能（五）（2）

第二十章-开发Delphi对象式数据管理功能（五）（2）2007-05-0720.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;