Delphi 与 VC 共享接口和对象
我经常会用 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 里使用。
Delphi编写的DLL提供接口,C++中如何用呢?
是一样的。如果要在D中实现,VC调用,应该是:
1.先在D中声明接口;
2.在D中实现接口;
3.在VC中声明接口,记得跟D的保持一致;
4.将D中接口实例传给VC。
能否正确访问跟对象在内存中的布局有关,所以要在D中用接口,在VC中用纯虚类。
另有一点要注意,Delphi的接口在被引用、解除引用时是会自动AddRef/Release的,比如赋值给变量时
varIntf := Intf1会增加Intf1的引用计数,varIntf := nil会减少应用计数。
VC则需要手工调用,尤其是通过D传给VC时要注意。
看清这世界的美丽与残酷
http://www.cnblogs.com/sephil/archive/2012/11/18/shareobj.html
最新文章
- 【踩坑速记】二次依赖?android studio编译运行各种踩坑解决方案,杜绝弯路,总有你想要的~
- 【原创】开源.NET排列组合组件KwCombinatorics使用(二)——排列生成
- Opencv加载和显示图片
- leetcode@ [146] LRU Cache (TreeMap)
- WebApi传递JSON参数
- No ongoing transaction. Did you forget to call multi?
- ExtJs中处理时间,出现NaN-NaN-NaN的解决方式
- iOS Paros 连接在同一WIFI下的网络抓包
- How to install MySQL on CentOS
- visual studio添加lib库
- [Swift]LeetCode1026. 节点与其祖先之间的最大差值 | Maximum Difference Between Node and Ancestor
- Git以一个远程分支为基础新建一个远程分支(转载)
- 『Python CoolBook』使用ctypes访问C代码_下_demo进阶
- js生成的验证码
- 微信h5支付源码DEMO参考
- 如何优雅地等待所有的goroutine退出
- 怎么在eclipse中安装svn插件
- web前端面试小结(1)
- 用一个for循环实现打印乘法口诀表
- paramiko与ssh
热门文章
- Enhancing network controls in mandatory access control computing environments
- 云主机CentOS 7新环境命令行搭建node工程步骤
- 重装huson遇到的一些错误及解决
- 【39.77%】【codeforces 724B】Batch Sort
- git安装使用详解
- .net remoting 使用事件
- Object-c学习笔记(1)
- Android中的事件处理研究
- android4.4系统解决“ERRORcouldn&;#39;t find native method”方法
- Linux性能测试 /proc目录