首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

bpl里如何引用基类包

2012-02-11 
bpl里怎么引用基类包我创建一个基类包basebpl.bpl:基类窗体、方法等, 并且在创建几个继承自基类窗体的窗体,

bpl里怎么引用基类包
我创建一个基类包basebpl.bpl:基类窗体、方法等, 并且在创建几个继承自基类窗体的窗体,我想把创建的几个窗体放到一个新包里datashow.bpl, 好像是我的repuires里添加了basebpl.dcp,后又添加了刚创建的几个窗体,可以编译没有问题.

  问题:在于动态加载包是提示说找不到指定的模块。不知道这个要怎么作,请帮忙一下,谢谢!

[解决办法]
rocedure Tmainfrm.loadpkbyname(pkname:string);
var
pkobject:THandle;
CreateNewObject:TCreateNewObject; 
begin
pkname:='PKlib\'+pkname; // package dir
pkobject:=Loadpackage(pkname);
@CreateNewObject:=GetprocAddress(pkobject,'CreateObject');
if integer(@CreateNewObject)<0 then application.messagebox('包加载失败!','Load Package',48)
else
createnewobject;
end;

包中:
可以象写dll一样,export CreateObject 就可以了
至于包中你想放什么放什么,窗体,query,无所谓


--------------------------------------------

热点排行