我经常会用 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;
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;
};
{
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;
[ ' {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;
};
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 里使用。
代码下载
