怎么才能动态Call一个BPL(类似DLL),可以使用BPL里的Class和Method.(100分)

  • 主题发起人 主题发起人 borlandor
  • 开始时间 开始时间
B

borlandor

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么才能动态Call一个BPL(类似DLL),可以使用BPL里的Class和Method.
最好给出一个示例,谢谢!
 
给你一个tips:
用loadpackage和getclassbyname的组合吧?
示例就免了,毕竟不可以指望别人把菜做好了端上来,如果你是厨师。
 
据暗所知,十分麻烦.
好像首先要定义一个接口,然后LoadPackage,然后……暗也不太清楚了.
听说Delphi5有自带的例子,有空找找看.
 
看看这个你就明白了。

sysPackageH:=loadpackage(PkgName);
if sysPackageH<>0 then
try
Result:=True;
sysPackageClassV:=TFormClass(getClass(PkgClassName));
if sysPackageClassV<>nil then
begin
Result:=True;
with sysPackageClassV.Create(Application) do
try
show;
//showmodal;

finally
//free;
end;
end
else
Result:=False;
finally
//unloadpackage(sysPackageH);
end;
 
后退
顶部