无痛使用Delphi Package

喜欢站在山上 2021-01-21

展开全文

Package的优点

应用程序可以被高度的模块化，而且可以逐渐交付完成的功能给客户
维护方便，可以只更新单一的模块功能
提升程序的载入速度

Package的缺点

有些情形下使用Package只能间接參考的方式取得资料(变量, 类 …).
Package Name 不能重复.
Contains 中的 Unit Name 不能在所有的Package中重复出现，只能出现一次
PackageA有使用到PackageB必需要在Requires中引用但是PackageA及PackageB不能彼此循环引用.

Package种类

当用户运行应用程序时，运行时程序包提供功能。设计时程序包用于在IDE中安装组件并为自定义组件创建特殊的属性编辑器。单个包可以在设计时和运行时均起作用，并且设计时包经常通过在其require子句中引用运行时包来工作。

设计期包（Designtime only） -用来在DELPHI的IDE环境安装控件和为控件建立特殊的属性编辑器。设计期包允许包含控件、属性和控件编辑器等等，
运行期包（Runtime only）-当运行程序时提供VCL和库函数的支持，操作上很类似标准的动态链接库。Install按钮无法使用。
设计和运行期包（Designtime and Runtime ）：设计与运行时都能用

Package文件说明

BPL 英文全称 Borland Package library ，是一种特殊的DLL文件，用于代码重用和减少可执行文件。编译bpl时，仅需要添加相应功能的pas文件，如果有窗体，则需要添加dfm文件。既然是DLL文件，那就是在运行时所需要的文件。BPL相当于C++中的DLL

DCP 英文全称：delphi compiled package，是 package 编译时跟 bpl 一起产生出来的，记录着 package 中公开的 class、procedure、function、variable、const.... 等等的名称和相对位置。如果某个控件包 A 引用了控件包 B，当控件包 A 编译时，需要控件包 B.dcp，若控件包 B 有修改，更改了公开的界面，则控件包 A 必须在控件包 B 编译之后重新编译，以引用新的 B.dcp。否则，当控件包 A 执行时，执行到引用自控件包 B 的内容时，就会出现错误。DCP相当于C++中的Lib，编译时需要。

DCU 英文全称：Delphi Compiled Unit File，是delphi单元文件.pas文件编译后产生的文件，感觉没有太大用处。

Package加载方式

Package中的代码

unit Unit2;interfaceuses Vcl.Dialogs;//函数案例function add(Num1, Num2: Integer): Integer; stdcall;//过程案例procedure ShowMsg(Str: String); stdcall;type//类的案例  TUser = class  public    function ShowString(): string;  end;  // 需要像DLL一样声明导出函数的列表，如果是静态导入此项可以省略exports add, ShowMsg;implementationprocedure ShowMsg(Str: String);begin  showmessage(Str);end;function add(Num1, Num2: Integer): Integer;begin  Result := Num1 + Num2;end;{ TUser }function TUser.ShowString: string;begin  Result := 'HelloWorld';end;end.

静态加载

一般大家在用Delphi時都是使用『静态载入』, 像VCL的Package就是这种方式, 这种方式的好处是设计者不用去理会Package 的载入和释放, 其实设计者根本感觉不到设用这项技术; 当然也可以手动将Package加入到项目中『project->Options->Packages->Build with runtime packages中加入Package Name彼此的分隔符是分号』

动态载入代码

基本上是无痛使用，只要路径配置没有问题，基本上和使用普通单元没有区别

implementationuses  Unit2, Unit3;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin  showmessage(TUser.create().showString());  var  From3 := TForm3.create(nil);  From3.visible := true;end;

动态加载

动态加载和静态加载相反，无论是载入还是释放都要自己来处理，看起来好像是动态载入,这种方式个人感觉相当麻烦，虽然本质上和dll的动态加载一样，但是因为在导入的元素中多了类的概念，所以还需要使用反射的方式创建类的对象才能实现类成员的引用

implementationuses rtti, System.StrUtils;{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);var  // 声明和Package导出列表中一致结构的过程  add01: procedure(Msg: String); stdcall;  // 声明和Package导出列表中一致结构的函数  add02: function(Num1: Integer; Num2: Integer): Integer; stdcall;begin  // 载入bpl格式的Package  var  PackageHandle := LoadPackage('Package1.bpl');  if PackageHandle <> 0 then  begin    // 载入成功之后获取对应函数、过程的指针    @add01 := GetProcAddress(PackageHandle, 'ShowMsg');    @add02 := GetProcAddress(PackageHandle, 'add');    if @add01 <> nil then    begin      // 调用      add01('HelloWorld');      showmessage(add02(1, 2).Tostring);    end;  end;  // 对于类我们需要先创建类的对象然后才可以实现类中函数的调用  var    // 创建运行期上下问对象  rc := TRttiContext.create;  var    // 载入对应单元中的类，注意此处需要写单元名+类名  ClassType := rc.FindType('Unit2.TUser');  var    // 获取元类实例(对象)  Instance := ClassType.AsInstance;  var    // 获取该实例的元信息类型  QRClass := Instance.MetaclassType;  var    // 获取用于创建TUser类型的构造方法  CreateMethod := Instance.GetMethod('Create');  var    // 利用获取到的构造方法对象，创建TUser类对象  User := CreateMethod.Invoke(QRClass, []);  var    // 函数调用  rs := ClassType.GetMethod('ShowString').Invoke(User, []);  // 显示返回值  showmessage(rs.asstring);  //卸载包  UnloadPackage(PackageHandle);end;

从上面动态加载的代码可以看出涉及到反射相关的知识，个人感觉这种方式在使用起来不太方便，当然如果对反射比较熟悉的话那就没问题了

动态载入参考代码

我在搜索Package相关内容的使用看到下面这段代码，它也可以实现创建类的对象，只是中间出现的类型的强制转换，个人不是特别推荐，只是记录一下作为笔记参考

function CreateFormByClassName(ClassName: string): integer;var  AClass: TPersistentClass;  AForm: TCustomForm;begin  Result := mrNone;  AClass := GetClass(ClassName);  if AClass <> nil then  begin    AForm := TComponentClass(AClass).Create(Application) as TCustomForm;    Result := AForm.ShowModal;  end;