动态载入BPL包的完整过程及其他

最新推荐文章于 2023-09-01 10:31:26 发布

原创最新推荐文章于 2023-09-01 10:31:26 发布 · 2.5k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#application #initialization #function #integer #string #build

本文详细介绍了在Delphi中动态加载BPL包的步骤及注意事项，包括解决常见错误的方法、BPL包的正确构建方式、如何加载表单与数据模块等关键技术点。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1.出现'A CLASS NAMED Already exists' 错误

如果你是动态载入BPL包,那有一原因是在呼叫BPL的程序已经USES了那个包中的类或模块;删除USES中的名字

2.出现'无法注册窗体'
在呼叫程式的component/install packages的build with runtime packages里面,把基类包含进去,在动态载入BPL中表单的时候,常常会出现这个问题;

3.整个动态载入bpl包的过程:
预备动作:
1).在呼叫程式的component/install packages的build with runtime packages里面,把基类包含进去
2)在呼叫程式的uses中把当前程式中的类或模块包含进去,并且决不能包含动态载入的BPL包中的任何东西;
3)编写bpl包时,要把基类的.dcp文件包含到requires中,并且注意:在呼叫程式和BPL中都应当包含VCL.dcp,否则呼叫程式无法识别BPL包的注册.
4).在bpl包中的form初始化阶段,要将它对应的DATAMODULE建立,方法如下:

uses datamodulename;

procedure tform1.create(sender:tobject);
begin
if fmdatamodulename=nil then application.createform(tdatamodulename,fmdatamodulename);
inherited;
end;
datamodulename是指数据模块中.pas的名字,fmdatamodulename是指表单的名字,tdatamodulename是它的类名;
5)只要是被外部呼叫的东西,在它pas中都应当注册,如下:

initialization
RegisterClass(Tfmname);
finalization
RegisterClass(Tfmname);

tfmname是指这个表单的类名;
这两个标识放在implementation之后,end.之前任意的非过程内即可;
6)注意编译BPL包存放的位置,编译后有三个档案是有用的:.bpl是打包给别人用的,.dcu是记录性质的文档,.dcp是包含在呼叫程式的运行时程式中的.

载入bpl包:
1)载入bpl包
var
   moduleinstance:HMODULE;
begin
    ModuleInstance := LoadPackage(FileName);
end;
2)载入数据模块:
function CreateDataModuleByClassName(const ClassName: string): TDataModule;
var dmTemp: TDataModule;
    AClass: TPersistentClass;
begin
Result := nil;
AClass := GetClass(ClassName);
if (AClass <> nil) then
begin
    dmTemp := TComponentClass(AClass).Create(Application) as TDataModule;
    Result := dmTemp;
end;
end;

3)载入表单
function CreateFormByClassName(const ClassName: string): TCustomForm;
var
AClass: TPersistentClass;
begin
{ Note that TApplication "owns" this form and thus it must be freed prior
    to unloading the package }
AClass := GetClass(ClassName);
if AClass <> nil then
    Result := TComponentClass(AClass).Create(Application) as TCustomForm
else
    raise Exception.CreateFmt(sErrorCreateForm, [ClassName]);
end;
4)显示表单
function ShowModalFormByClassName(const ClassName: string;const IsShowModal: shortstring): integer;
var
frm: TCustomForm;
begin
Result:=0;
frm := CreateFormByClassName(ClassName);
try
    if IsShowModal='Y' then
    Result := frm.ShowModal
    else
    frm.Show;
finally
    if IsShowModal='Y' then frm.Release;
end;
end;

卸载包:
UnRegisterModuleClasses(ModuleInstance);
UnloadPackage(ModuleInstance);
如果用完了就卸,无所谓,否则就要把它ModuleInstance全局定义一下.