使用Object Pascal中的接口访问Visual C++ DLL中的对象

来源：互联网发布：网络词语撩是什么意思编辑：程序博客网时间：2024/04/24 13:48

将软件的界面分离出来是开发普通桌面应用的常用方法，这样可以带来多种好处，比如方便软件的自动更新和维护（我们很少看到将一个软件的所有东西都写到一个EXE里面）。通常的办法是将业务逻辑或者核心封装在一个独立的组件中，例如COM甚至标准的DLL库。我们这里讨论普通的DLL。在DLL中只提供普通的函数或过程肯定是不行的，面向对象的设计和开发，良好的模式应用是必不可少，这需要我们在DLL中提供外界访问其中对象的办法。例如DELPHI可以使用BPL包，或者Interface来访问DLL中的对象，Visual C++就更简单了，MFC扩展DLL甚至允许导出这个类。不过Delphi和VC在开发中各有优势，Delphi其快速开发能力非常的适合做界面，并且还有大量的第3方界面库可用，可以开发出很漂亮的界面，这一点我个人认为要比VC好很多（当然.Net托管C++例外，因为其可以直接使用.Net提供的库）；而VC的优势在于C++语言本身的灵活和高效性，非常适合做软件的核心部分（例如你还可以使用Intel C++编译器来重新编译代码，大幅度提高在Intel平台中的性能）。要是我们可以使用DELPHI来开发软件界面，用VC来开发核心业务逻辑不是很好吗？Delphi访问C++ DLL中的普通导出函数当然没有问题，但怎样通过接口来访问其中的对象呢？我研究了一两天，仔细分析了下C++和Object Pascal的对象模型，终于搞定了，在这里分享一下我的心得： Object Pascal中的interface和C++中的接口是很不同的，例如我们可以象下面申明一个C++接口struct IFoo:public IUnKnown{ virtual int _stdcall Add(int x,int y)=0;//由于需要导出，接口和实现它的类中的虚函数都应使用_stdcall惯例 virtual int _stdcall Divd(int x,int y)=0;}; 然后我们使用一个导出函数来通过这个接口导出C++对象：extern "C" _declspec(dllexport) IFoo* GetMainInterface(){ return dynamic_cast(MainFoo);//MainFoo是实现IFoo的一个类的对象指针，在DLL被加载时初始化};在Delphi中声明对应的接口和接口指针： IFoo = interface function Add(x,y:integer):integer;stdcall; function Divd(x,y:integer):integer;stdcall; end; PIFoo = ^IFoo然后通过下面的步骤来导入对象： GetMainInterface:function:PIFoo;stdcall; //对应C++中的导出函数 ... Libhwnd:=loadlibrary('DLL的路径'); @GetMainInterface:=GetProcAddress(Libhwnd,'GetMainInterface'); MainIntf:=GetMainInterface; // MainIntf的类型就是PIFoo;OK，我最先以为这样就全部搞定了，很简单嘛，但是当我通过MainIntf^.Divd(15,3)来调用时，出了内存错误什么都没发生，后来通过分析才知道Object Pascal中的Interface本来就是一个指针，虽然它的类型不是指针，但是它的确是指向接口VMT的一个指针，PIFoo就是一个指针的指针了，而C++中的IFoo*并不是一个2重指针，看下面的汇编代码：MOV eax,[ebx+$000002fc] //取得接口的首地址给EAX寄存器PUSH eax //不用管它MOV eax,[eax] //将接口内存中的前32位首地址看为一个指针，这个指针的内容就是VMT的入口了...MOV eax,[eax] //最关键的就是这里了，其实这条指令是多余的，这样就不知道指到哪块内存去了，下面的调用当然就会有内存访问错误了。为什么会有这条多余的指令呢？就是上面我所说的原因了，MainIntf是一个2重指针，Delphi的编译器认为要经过两次MOV eax,[eax]才能得到对象VMT的入口，所以就出现了问题，由此也可见Object Pascal、VCL、Delphi IDE的架够确实很优秀，但是结合的却太紧密的。CALL dword ptr [eax+$10] //VMT的入口在加上适当的偏移动就是要调用的方法指针了怎么解决这个问题呢？我们只用把MainIntf这个2重指针强制转化为Delphi里的接口就可以了（IFoo(MainIntf).Divd(15,3)就是一个正确的调用）。