我經(jīng)常會(huì)用 Delphi 寫(xiě)一些工具和應(yīng)用，為了擴(kuò)展方便，大部分都會(huì)做成插件形式。

迫于某些原因，我的插件不但不用其他開(kāi)發(fā)工具來(lái)完成，比如 VC。

于是有個(gè)大問(wèn)題需要解決：如何讓 D 和 VC 互相通信、互相操作。

最普遍的做法，無(wú)非是定義一些方法，VC 寫(xiě) Dll 導(dǎo)出這些方法，D 載入 Dll 調(diào)用。

但問(wèn)題是稍大點(diǎn)規(guī)模的應(yīng)用，這種方式非常麻煩，也不夠直觀(guān)。

于是花了點(diǎn)時(shí)間研究 D 和 VC 之間共享接口和對(duì)象的一些方法，現(xiàn)將要點(diǎn)共享發(fā)布出來(lái)，希望對(duì)大家有用。

基礎(chǔ)事項(xiàng)：

在 D 和 VC 中，要共享的接口、對(duì)象中的方法的調(diào)用約定必須為 stdcall

1. class 的 使用

Delphi 和 VC 中都使用抽象類(lèi)，將方法都定義為純虛方法，成員的聲明順序請(qǐng)保持一致。

需要注意的是 Delphi 的類(lèi)方法。一般的靜態(tài)類(lèi)方法在 VC 中直接跳過(guò)即可，虛的類(lèi)方法在 VC 定義為一般的虛函數(shù)即可。

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，成員的聲明順序請(qǐng)保持一致

注意，D 中接口支持屬性定義，但是 VC 不支持，因此 D 接口中的屬性定義請(qǐng)放在聲明的最后

如果接口的實(shí)例化是在 VC 中，有點(diǎn)有意思的小細(xì)節(jié)要注意，詳見(jiàn)代碼的注釋

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 里實(shí)現(xiàn)了一個(gè)接口提供給 VC DLL，在 VC DLL 里實(shí)現(xiàn)了一個(gè)接口和一個(gè)類(lèi)提供給 D 里使用。

更多信息請(qǐng)查看IT技術(shù)專(zhuān)欄