您的位置: 旅游网 > 女人

如何在C++Builder中使用Delphi控件

发布时间:2019-12-04 03:54:44

使C++Builder使用DelphiVCL类库的方法基于Windows中较通用的DLL方式。在实际应用中找到了将

VCL控件转化为DLL库,在C++Builder动态调用DLL。此法适用于非可视VCL控件。

假令在Delphi中有一Sample控件,有属性Actived、Pro1、Pro2,欲将这个控件转到C++Builder中使用。

一、Delphi中DLL的制作

在Delphi中新建一DLL项目SampleDLL,时在此项目中Create一个新的类TTtempcomp基类为TComponent即也为一个控件,在其中加入一个constructorCreate1,但不作任何动作;在DLL中加入要导出的属性的Function(Actived、Pro1、Pro2)&Create、Destroy的框架,Exports中加入导出的Function、Procdure名称;在DLL的主过程中对TTempcomp的实例temp1进行Create1,另外保存出口和设置ExitProc;在OpenSample的函数中加入HwCtrl:=Sample1.Create(temp1)对Sample进行实例化,对CloseSample和其它属性加入相应的语句;

二、C++Builder中DLL的使用

将Delphi中生成的DLL用implib生成LIB文件加入C++Builder的工程文件;

在头文件中加入

extern "C" __declspec(dllimport) bool _stdcall OpenSample(void);

extern "C" __declspec(dllimport) void _stdcall CloseSample(void);

extern "C" __declspec(dllimport) bool _stdcall Actived (void);

extern "C" __declspec(dllimport) int _stdcall Pro1 (void);

extern "C" __declspec(dllimport) int _stdcall Pro2 (void);

在OpenSample后你就可以使用Delphi中的属性Actived、Pro1、Pro2

三、参考DLL Source如下

library SampleDLL;

uses

SysUtils, Classes, Sample;

TYPE

TTempcomp = class(TComponent)

private

public

constructor Create1;

published

end;

var

Sample1 :Sample;

SaveExit :Pointer;

temp1 :TTempcomp;

constructor TTempcomp.Create1;

begin

// inherited Create(self);

end;

/==============================================

function OpenSample: Boolean; stdcall; export;

begin

HwCtrl:= Sample1.Create(temp1);

If Sample1.Actived then result:=true;

end;

procedure CloseSample; stdcall; export;

begin

Sample1.Destroy;

end;

function Actived: Boolean; stdcall; export;

begin

result:=Sample1.Actived;

end;

function Pro1: Interger; stdcall; export;

begin

result:= Sample1.Pro1;

end;

function Pro2: Interger; stdcall; export;

begin

result:= Sample1.Pro2;

end;

/==============================================

procedure libexit; far

begin

if Sample1.Actived =true then

Sample1.Destroy;

ExitProc:=SaveExit;

temp1.Destroy;

end;

exports

OpenSample,CloseSample,Actived ,Pro1,Pro2;

begin

temp1:=TTempcomp.Create1;

SaveExit:=ExitProc;

ExitProc:=@libexit;

end.

解释:

因为VCL控件都继承于TComponent,TComponent的构造函数需要一个AOwner并且也是TComponent,VCL控件的Create、Destroy都由控件的拥有者来动作,也就是AOwner;所以我在此DLL中新设置了一个TTempcomp类继承于Tcomponent且性设置了一个constructor(构造函数)Create1,而实际构造时什么都不做,以次作为要Create的Aowner;其他还有一种办法就是用Application作为Aowner但是它是基于Tform的作出来的DLL太大;其实,Inprise(原Borland)尽可以象MicroSoft一样用一些象DCOM类似的组件形式使得产品在同一产品时代保持一定的互用性,来增加产品群的生命力.

查看本文来源

长沙市雨花区东山街道社区卫生服务中心预约挂号
郑州国医堂性病医院在线咨询
清远治疗宫颈炎方法
安徽市哪家癫痫病医院最好
信阳治疗性功能障碍医院
猜你会喜欢的
猜你会喜欢的