• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Delphi 与 VC 共享接口和对象

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

我经常会用 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); virtualstdcallabstract;
    procedure Free; virtualstdcallabstract;
  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 里使用。

代码下载

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
利用MATLAB去除图片中的水印发布时间:2022-07-18
下一篇:
matlab各类数学公式发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap