网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的考试资料:

 

标题 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 里使用。
    名单
随便看

 

在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/23 17:13:09