BPL文件调用

最新推荐文章于 2021-02-12 22:02:21 发布

竹背篼

最新推荐文章于 2021-02-12 22:02:21 发布

阅读量3.1k

点赞数

文章标签： initialization class integer fp string build

1、先建一个BPL文件

****************************************************************

 initialization registerclass(Class_Name);
 finalization unregisterclass(Class_Name);

注： Class_Name:为注册的组件类名。在初始化是要对类进行注册在结束的时候要对类注册了的类进行注销。 ****************************************************************

2、调用BPL文件

A、要把Component->Install Packages->Runtime packages 里面的 Build with runtime packages勾上。

B、 *********************************************************

procedure proc_name; 
var H:integer; AClass: TPersistentClass; 
begin 
H:=LoadPackage("BPL_Filename"); //调入BPL文件 
AClass:=GetClass("Class_name"); //获得BPL文件中注册是Class_name; UnloadPackage(H); 
end;

**********************************************************

3、如果要调用BPL文件中的过程（方法），实现方法和DLL调用等同

**************************************************************

procedure proc_create(FP:pointer;Fuser_id,Fuser_name,FButton_power:Pchar); 
exports proc_create;
implementation
 {$R *.dfm} 
procedure proc_create( FP:pointer;Fuser_id,Fuser_name,FButton_power:Pchar); 
begin 
//过程体
end;







 ******************************************************************** 

如果要传String 最好使用Pchar类型