您的位置: 首页 > 软件教程 > C++ Builder教程专题 > 在C++Builder中使用Delphi控件

在C++Builder中使用Delphi控件

8.1分
出处:网络 时间:2011-06-27

您可能感兴趣的话题: C++ Builder  

核心提示:Delphi的出现将一大批程序员带入了Windows下的可视化编程,为一些C&C++的死党程序员所羡慕、感叹

  Delphi的出现将一大批程序员带入了Windows下的可视化编程,为一些C&C++的死党程序员所羡慕、感叹。直到C++Builder的出现这些Programer才用到了梦寐以求的编程工具,也将一些不得已\"投敌\"到Delphi下的程序员又拉回到C++的怀抱。她正真将Windows下的可视化编程和面向对象编程语言有机的融合在一起。但是由于C++Builder面市时间较短固而可用的控件不多,而且控件的使用也只针对某一版本,相互之间的可互用性不好,除非你有SourceCode;对于Delphi就更不用说了,C++Builder根本不能用,当然如果你有SourceCode那么你可以转写成C++Builder的控件,不过你还得经过n遍的Complie…m遍的Step&Go.

  Delphi拥有强大的控件群,如何使用这些控件一直苦恼着我们这些C++Builder的追随者,我通过一些项目的实践掌握了一些如何在C++Builder中使用Delphi控件的方法。

  我的使C++Builder使用DelphiVCL类库的方法基于Windows中较通用的DLL方式。在实际应用中找到了将VCL控件转化为DLL库,在C++Builder动态调用DLL.此法适用于非可视VCL控件。

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

  一:Delphi中DLL的制作

  1.在Delphi中新建一DLL项目SampleDLL,时在此项目中Create一个新的类TTtempcomp基类为TComponent即也为一个控件,在其中加入一个constructorCreate1,但不作任何动作;

  2.在DLL中加入要导出的属性的Function(Actived、Pro1、Pro2)&Create、Destroy的框架,Exports中加入导出的Function、Procdure名称;

  3.在DLL的主过程中对TTempcomp的实例temp1进行Create1,另外保存出口和设置ExitProc;

  4.在OpenSample的函数中加入HwCtrl:=Sample1.Create(temp1)对Sample进行实例化,对CloseSample和其它属性加入相应的语句;

  二:C++Builder中DLL的使用

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

  2.在头文件中加入 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);

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

  三:参考DLLSource如下: librarySampleDLL;

  uses SysUtils,Classes,Sample;

  TYPE

   TTempcomp=class(TComponent)

   private

   public

   constructorCreate1;

   published

  end;

  var

  Sample1:Sample;

  SaveExit:Pointer;

  temp1:TTempcomp;

  constructorTTempcomp.Create1;

  begin

  //inheritedCreate(self);

  end;

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

  functionOpenSample:Boolean;stdcall;export;

  begin

   HwCtrl:=Sample1.Create(temp1);

   IfSample1.Activedthenresult:=true;

  end;

  procedureCloseSample;stdcall;export;

  begin

   Sample1.Destroy;

  end;

  functionActived:Boolean;stdcall;export;

  begin

   result:=Sample1.Actived;

  end;

  functionPro1:Interger;stdcall;export;

  begin

   result:=Sample1.Pro1;

  end;

  functionPro2:Interger;stdcall;export;

  begin

   result:=Sample1.Pro2;

  end;

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

  procedurelibexit;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并且也是Component,VCL控件的Create、Destroy都由控件的拥有者来动作,也就是AOwner;所以我在此DLL中新设置了一个TTempcomp类继承于Tcomponent且性设置了一个constructor(构造函数)Create1,而实际构造时什么都不做,以次作为要Create的Aowner;

  其他还有一种办法就是用Application作为Aowner但是它是基于Tform的作出来的DLL太大;

  其实,Inprise(原Borland)尽可以象MicroSoft一样用一些象DCOM类似的组件形式使得产品在同一产品时代保持一定的互用性,来增加产品群的生命力。

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]