DELPHI基础教程：开发Delphi对象式数据管理功能（五）[2]

ObjectTextToBinary过程执行的功能与ObjectBinaryToText相反 将TXT文件转换为二进制流中的部件 而且只要TXT文件内容的书写符合DFM脚本语法 ObjectTextToBinary可将任何程序生成的TXT文件转换为部件 这一功能也为DFM 文件的动态生成和编辑奠定了基础 ObjectTextToBinary过程的主程序如下

procedure ObjectTextToBinary（Input Output: TStream）

var

SaveSeparator: Char;

Parser: TParser;

Writer: riter;

…

begin

Parser := TParser Create（Input）

SaveSeparator := DecimalSeparator;

DecimalSeparator := ;

try

Writer := riter Create（Output ）

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[ ] of Char;

begin

MemoryStream := TMemoryStream Create;

try

ObjectTextToBinary（Input MemoryStream）

MemorySize := MemoryStream Size;

FillChar（Header SizeOf（Header） ）

MemoryStream Position := SizeOf（Longint） { Skip header }

MemoryStream Read（Len ）

if Len and $F = $F then

begin

if ffChildPos in TFilerFlags（（Len and $F ）） then

begin

MemoryStream Read（Len ）

case TValueType（Len） of

vaInt : Len := ;

vaInt : Len := ;

vaInt : Len := ;

end;

MemoryStream Read（Tmp Len）

end;

MemoryStream Read（Len ）

end;

MemoryStream Read（Header[ ] Len）

StrUpper（@Header[ ]）

Byte（（@Header[ ]）^） := $FF;

Word（（@Header[ ]）^） := ;

Word（（@Header[Len + ]）^） := $ ;

Longint（（@Header[Len + ]）^） := MemorySize;

Output Write（Header Len + ）

Output Write（MemoryStream Memory^ MemorySize）

finally

MemoryStream Free;

end;

end;

动态DFM文件应用揭秘

动态DFM文件概述

动态DFM文件是相对于静态DFM文件而言 所谓静态DFM文件是指在Delphi开发环境中设计的窗体文件 窗体的设计过程就是程序的编制过程 因此 动态DFM文件就是指在程序运行过程生成或存取的DFM文件

动态DFM文件的创建和使用分别如下两种情况

● 在程序运行过程中 由Create方法动态生成窗体或部件 然后动态生成其它部件插入其中生成DFM文件

● 在Delphi开发环境中 设计生成DFM文件 然后用DFM 文件存取函数 或者用Stream对象和Filer对象的方法 将DFM文件读入内存 进行处理 最后又存入磁盘中

由Delphi的窗体设计的常规方法生成的DFM文件在程序运行一开始就规定了部件的结构 因为在窗体设计过程中 窗体中的每个部件都在程序的对象声明中定义了部件变量 这种固定的结构虽然能方便应用 但以牺牲灵活性为代价

在Delphi应用程序中有时需要在运行过程中创建控制 然后将该控制插入另一个部件中 例如

procedure TForm Button Click（Sender: Tobject）

var

Ctrl: TControl

begin

Ctrl := TEdit Create（Self）

Ctrl Top := ;

Ctrl Left := ;

Ctrl Width := ;

Ctrl Height := ;

InsertControl（Ctrl）

end;

动态插入控制的优点是可以在任何时刻 任意位置插入任意数量的任何类型的控制 因为应用程序需求在很多情况下是在程序运行中才知道的 所以动态插入控制就显得很重要 而且在很多情况下 需要保存这些界面元素 留待程序再次调用 例如应用程序界面的定制 系统状态的保存 对话框的保存等 这时生成动态DFM文件是最佳选择

动态插入控制的不足之处是在插入控制前 无法直观地看到控制的大小 风格 位置等 也就是动态插入控制的过程是非可视化的 但可以借助于静态DFM文件的可视化设计 这就是生成和使用动态DFM文件的第二种方法 也就是在应用程序运行前 在Delphi开发环境中 使用可视化开发工具设计所需窗口或部件的样式 以DFM文件保存 然后在应用程序运行过程中 将DFM文件读入内存 Delphi的Stream对象和Filer对象在读取DFM文件时 会根据DFM文件的内容自动创建部件及其拥有的所有部件

在使用动态DFM文件时有两点需要注意

● 每一个动态插入的控制或部件必须在程序中调用RegisterClass进行注册

● 读入DFM文件自动创建部件后 如果调用了InsertControl方法 则在关闭窗口时要调用RemoveControl方法移去该控制 否则会产生异常事件

动态DFM文件应用之一 超媒体系统的卡片设计

Delphi多种类型的可视部件 如文本部件 编辑部件 图形图像部件 数据库部件 媒体媒放部件和OLE部件等 每一种部件在屏幕中占据一定的区域 具有相当丰富的表现能力 可以作为卡片中的一种媒体 因此可以利用这些可视部件进行超媒体系统的卡片设计

超媒体卡片设计要求卡片中的媒体数目和媒体种类是不受限制的 而且必须能够修改和存取卡片 因此 采用动态DFM文件是比较合适的 而且如果利用Stream对象 将卡片存储在数据库BLOB字段中 就为把超文本与关系数据库技术结合起来创造了契机

下面是超媒体卡片设计子系统中的部分源程序 它演示了如何创建对象 插入对象和存取动态DFM文件

⑴ 在应用程序中注册对象

procedure TMainForm FormCreate（Sender: TObject）

begin

RegisterClass（TLabel）

RegisterClass（TEdit）

RegisterClass（TMemo）

RegisterClass（TButton）

RegisterClass（TPanel）

RegisterClass（TPanelP）

RegisterClass（TBitBtn）

…

end;

⑵ 创建和插入对象

procedure TMDIChild FormClick（Sender: TObject）

var

Ctrl : TControl;

Point: TPoint;

begin

GetCursorPos（Point）

Point := BackGround ScreenToClient（Point）

case CurToolIndex of

: begin

Ctrl := TLabel Create（self）

TLabel（Ctrl） AutoSize := False;

TLabel（ctrl） Caption := Label +S;

TLabel（ctrl） Name := Label ;

TLabel（ctrl） Top := Point Y;

TLabel（ctrl） Left := Point X;

TLabel（Ctrl） Height := Round（ Res/ /Ratio）

TLabel（Ctrl） Width := Round（ Res/ /Ratio）

TLabel（Ctrl） Color := clWhite;

TLabel（Ctrl） Font Color := clBlack;

TLabel（Ctrl） Font Name := Roman ;

TLabel（Ctrl） Font Height := TLabel（Ctrl） Height;

TLabel（Ctrl） Font Pitch := fpFixed;

TLabel（Ctrl） Enabled := False;

TLabel（Ctrl） OnClick := LabelClick;

TLabel（Ctrl） OnMouseMove := ReportPos;

BackGround InsertControl（Ctrl）

CurTool Down := False;

CurTool := nil;

…

end;

: begin

Ctrl := TEdit Create（self）

TEdit（ctrl） AutoSize := True;

TEdit（ctrl） Top := Point Y;

TEdit（ctrl） Left := Point X;

TEdit（Ctrl） Height := ;

BackGround InsertControl（Ctrl）

…

end;

:

…

end;

end;

⑵ 存取动态DFM文件

lishixinzhi/Article/program/Delphi/201311/25089

eplan p8 连接sql提示不是有效在部件数据库 怎么回事

创新的传统：EPLAN Electric P8将带您走向电气设计自动化的崭新境界无论是对电气项目的创建和管理,还是对图纸文件的归档和共享,在高效性、灵活性和全局集成度方面都将达到新的水平您的电气原理图及相关报告、清单和表格将实现前所未有的高效、优质和准确!

以上就是关于DELPHI基础教程：开发Delphi对象式数据管理功能（五）[2]全部的内容，包括:DELPHI基础教程：开发Delphi对象式数据管理功能（五）[2]、eplan p8 连接sql提示不是有效在部件数据库 怎么回事、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！