Delphi中开发基于BPL的MDI应用程序.pdfVIP

Delphi 中开发基于BPL 的MDI 应用程序 马庆功 朱 轮 （江苏工业学院网络中心，江苏常州 213016） ［摘 要］ 随着计算机编程技术的不断发展，软件架构越来越多的倾向去模块化开发，传统的把所有功能模块都编译在一个exe 文件中的方 式越来越暴露出其缺陷性，无论从开发进度、维护成本方面来讲，设计者越来越倾向于把软件功能分成各个模块来进行管理。模块化开发， 更多的人选择用EXE+DLL 的方式。 ［关键词］Delphi；动态载入；静态载入；释放 相信很多Delphi 爱好者都曾将想过将自己的应用程序分割成多个 动态载入过程代码如下 Package 进行分发，这样做的好处是可以在很大程度上减小exe 应用 procedure PackageLoad (PackageName, ClassName :String; 程序的大小，需要更新软件的某一功能的时候，只要单一的更新其对应 FormType :Integer); 的package （.BPL）就可以了，大大提高了软件的升级扩展能力。而 var 且BPL 还有一个DLL 没有的好处，就是所有的BPL 可以有一个共同 FilePath:String; 的记忆区块（包括公共变量、函数、过程等），这样使用起来，非常方 AClass :TPersistentClass; 便，而且，由于系统在运行的时候，同一时刻在内存种只有一份BPL begin 的拷贝，可以极大的节省系统资源，提高软件的运行效率。但是，事实 AClass :=GetClass(ClassName); 上，很多人都因为package 使用上的限制而最终放弃BPL 的架构模 FilePath:=ExtractFilePath(ParamStr(0)); 式，本文就来介绍一种基于BPL 构架的MDI 应用程序的开发 PackageModule :=LoadPackage(PackageFileName); 1 BPL 的两种载入方式 SetLength(ArrPModule,Length(ArrPModule)+1); 静态载入：一般大家在用Delphi 时都是使用静态载入的方式，象 ArrPModule[Length(ArrPModule)- 1]:=PackageModule; VCL 的Package 就是这个方式，这种方式的好处是设计者不用去理会 case FormType of Package 的载入及释放，其实设计者根本感觉不到在使用这种技术。 0:CreateFormByClassName(ClassName,FormModel); 缺点是，系统加载的时候，将加载全部BPL，有些可能暂时用不着的 1:CreateDataModuleByClassName(ClassName) 模块也被一次性载入系统，占用系统资源。严格意义上讲，这种方式和 end; 使用一般的应用程序开发方法相差不大。 end; 动态载入：动态载入，顾名思义，就是和静态载入相反。不论是 需要提供包的名称、类别名称、窗口显示模式。为了能够手动释 载入还是释放都要设计者自己来处理。看起来好像动态载入一无是处， 放BPL，我们将每一个动态载入的包放在一个全局数组里面，释放的 无端的增加设计者很多额外的工作量用来处理载入释放的处理工程。其 时候，逐一释放。以上代码为BPL 的初始化。 实，动态载入可以做到需要使用