手机站
网通分站
电信主站
密 码:
用户名:
当前位置 : 主页>程序设计>C/C++>列表

在C Builder中使用Delphi控件

来源:互联网 作者:west263.com 时间:2008-02-23
西部数码-全国虚拟主机10强!40余项虚拟主机管理功能,全国领先!双线多线虚拟主机南北访问畅通无阻!免费赠送企业邮局,.CN域名,自助建站480元起,免费试用7天,满意再付款! P4主机租用799元/月.月付免压金!
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类似的组件形式使得产品在同一产品时代保持一定的互用性,来增加产品群的生命力.




文章整理:西部数码--专业提供域名注册虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

热点关注
IDC资讯 虚拟主机 域名注册 托管租用 vps主机 智能建站
网站运营 建站经验 策划盈利 搜索优化 网站推广 免费资源
网站联盟 联盟新闻 联盟介绍 联盟点评 网赚技巧
行业资讯 业界动态 搜索引擎 网络游戏 门户动态 电子商务 广告传媒
网络编程 Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术 Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷 Internet Explorer
网页制作 FrontPages Dreamweaver Javascript css photoshop fireworks Flash
程序设计 Java技术 C/C++ VB delphi
网络知识 网络协议 网络安全 网络管理 组网方案 Cisco技术
操作系统 Win2000 WinXP Win2003 Mac OS Linux FreeBSD
返回首页 |关于我们 | 联系我们 | 付款方式 | 创业联盟 | 价格总览 | 资讯中心 | 友情链接 | 网站地图 | 招贤纳士 | RSS