Delphi 与 VC 共享接口和对象
2013-10-12 16:02
369 查看
转自
http://www.cnblogs.com/sephil/archive/2012/11/18/shareobj.html
我经常会用 Delphi 写一些工具和应用,为了扩展方便,大部分都会做成插件形式。
迫于某些原因,我的插件不得不用其他开发工具来完成,比如 VC。
于是有个大问题需要解决:如何让 D 和 VC 互相通信、互相操作。
最普遍的做法,无非是定义一些方法,VC 写 Dll 导出这些方法,D 载入 Dll 调用。
但问题是稍大点规模的应用,这种方式非常麻烦,也不够直观。
于是花了点时间研究 D 和 VC 之间共享接口和对象的一些方法,现将要点共享发布出来,希望对大家有用。
基础事项:
在 D 和 VC 中,要共享的接口、对象中的方法的调用约定必须为 stdcall
1. class 的 使用
Delphi 和 VC 中都使用抽象类,将方法都定义为纯虚方法,成员的声明顺序请保持一致。
需要注意的是 Delphi 的类方法。一般的静态类方法在 VC 中直接跳过即可,虚的类方法在 VC 定义为一般的虚函数即可。
D:
VC:
2. 接口
D 的 IInterface / IUnknown,在 VC 中定义为 interface /*class*/ : public IUnknown,成员的声明顺序请保持一致
注意,D 中接口支持属性定义,但是 VC 不支持,因此 D 接口中的属性定义请放在声明的最后
如果接口的实例化是在 VC 中,有点有意思的小细节要注意,详见后面下载的代码里的注释
D:
VC:
示例代码中,在 D 里实现了一个接口提供给 VC DLL,在 VC DLL 里实现了一个接口和一个类提供给 D 里使用。
代码下载
代码下载备份地址 : http://pan.baidu.com/s/1CC4Tw
http://www.cnblogs.com/sephil/archive/2012/11/18/shareobj.html
我经常会用 Delphi 写一些工具和应用,为了扩展方便,大部分都会做成插件形式。
迫于某些原因,我的插件不得不用其他开发工具来完成,比如 VC。
于是有个大问题需要解决:如何让 D 和 VC 互相通信、互相操作。
最普遍的做法,无非是定义一些方法,VC 写 Dll 导出这些方法,D 载入 Dll 调用。
但问题是稍大点规模的应用,这种方式非常麻烦,也不够直观。
于是花了点时间研究 D 和 VC 之间共享接口和对象的一些方法,现将要点共享发布出来,希望对大家有用。
基础事项:
在 D 和 VC 中,要共享的接口、对象中的方法的调用约定必须为 stdcall
1. class 的 使用
Delphi 和 VC 中都使用抽象类,将方法都定义为纯虚方法,成员的声明顺序请保持一致。
需要注意的是 Delphi 的类方法。一般的静态类方法在 VC 中直接跳过即可,虚的类方法在 VC 定义为一般的虚函数即可。
D:
TTestObj = class public class procedure Foo; procedure Update(Intf: ITestIntf); virtual; stdcall; abstract; procedure Free; virtual; stdcall; abstract; end;
VC:
class ITestObj { public: virtual void __stdcall Update(ITestIntf* pIntf) = 0; virtual void __stdcall Free() = 0; };
2. 接口
D 的 IInterface / IUnknown,在 VC 中定义为 interface /*class*/ : public IUnknown,成员的声明顺序请保持一致
注意,D 中接口支持属性定义,但是 VC 不支持,因此 D 接口中的属性定义请放在声明的最后
如果接口的实例化是在 VC 中,有点有意思的小细节要注意,详见后面下载的代码里的注释
D:
ITestIntf = interface ['{781E6521-8768-4ADA-B843-445ECE548C27}'] function GetText: PAnsiChar; stdcall; procedure SetText(AValue: PAnsiChar); stdcall; function GetValue: Integer; stdcall; procedure SetValue(AValue: Integer); stdcall; property Text: PAnsiChar read GetText write SetText; property Value: Integer read GetValue write SetValue; end;
VC:
interface DECLSPEC_UUID("781E6521-8768-4ADA-B843-445ECE548C27") ITestIntf : public IUnknown { public: virtual LPCSTR __stdcall GetText() = 0; virtual void __stdcall SetText(LPCSTR lpszMsg) = 0; virtual int __stdcall GetValue() = 0; virtual void __stdcall SetValue(int value) = 0; };
示例代码中,在 D 里实现了一个接口提供给 VC DLL,在 VC DLL 里实现了一个接口和一个类提供给 D 里使用。
代码下载
代码下载备份地址 : http://pan.baidu.com/s/1CC4Tw
相关文章推荐
- Delphi 与 VC 共享接口和对象
- Delphi 与 VC 共享接口和对象
- Delphi 与 VC 共享接口和对象
- VC调用Delphi对象接口
- Delphi面向对象学习随笔六:接口
- Delphi 接口使用中,对象生命周期管理,如何释放需要注意的问题
- VC++实现的类似Delphi的TStringList对象列表类
- Delphi接口的底层实现(接口在内存中仍然有其布局,它依附在对象的内存空间中,有汇编解释)——接口的内存结构图,简单清楚,深刻 good
- Delphi 接口使用中,对象生命周期管理,如何释放需要注意的问题
- Delphi面向对象学习随笔六:接口
- 在Delphi与C++之间实现函数与对象共享
- Delphi面向对象学习随笔六:接口
- Delphi面向对象学习随笔六:接口
- 【原创】使用vc向导简历的ATL COM简单对象好像没有IUnknown接口的实现?
- 在Delphi与C++之间实现函数与对象共享
- VC++实现的类似Delphi的TStringList对象列表类
- Delphi面向对象学习随笔六:接口
- Delphi 接口使用中,对象生命周期管理,如何释放需要注意的问题
- Delphi中调用VC编写的DLL内对象
- Delphi面向对象学习随笔六:接口(转)