使用Delphi调用C++编写的DLL

http://blog.youkuaiyun.com/peter1983/article/details/2898046

1、C++编写的DLL代码如下：

该Dll的功能比较简单，就是实现一个整数加法；

IAddBase 是一个抽象类，IAdd实现了IAddBase的方法，并采用了单例模式；

GetAddInstance()为dll对外的接口，返回一个IAdd的对象指针；

调用者使用该实例就可以调用Add方法

1. class IAddBase
2. {
3. public:
4. int virtual __stdcall Add(int a, int b) = 0;
5. };
7. class IAdd : public IAddBase
8. {
9. private:
10. static Idd* m_Instance;
11. protected:
12. IAdd(){}
13. ~IAdd()
14. {
15. if (m_Instance != NULL)
16. delete m_Instance;
17. }
18. public:
19. int __stdcall Add(int a, int b)
20. {
21. return a + b;
22. }
24. static IAdd* GetAddInstance()
25. {
26. if (m_Instance == NULL)
27. m_Instance = new Idd();
28. return m_Instance;
29. }
30. };
32. Idd* IAdd::m_Instance = NULL;
33. extern "C" __declspec(dllexport) IAddBase* GetAddInstance()
34. {
35. return Idd::GetAddInstance();
36. }

2、在Delphi下调用该Dll，这里采用静态调用方法

 

1. //在type中声明IAddBase，相当于C++中的.h 文件
2. Type
3. IAddBase = class
4. public
5. function Add(a, b : Integer):Integer;virtual;stdcall;abstract;
6. end;
8. function GetAddInstance : IAddBase ; cdecl ; external 'TestAdd.dll';
10. var
11. myAdd : IAddBase;
13. implemetation
15. //调用IAddBase中的Add方法
16. function DoAdd(a,b:Integer):Integer;
17. begin
18. myAdd := GetAddInstance;
19. result := myAdd.Add(a,b);
20. end;

3、注意的问题

3.1 dll和delphi 定义的类函数需要声明为stdcall，有疑问可以Google关键字：Delphi C++ stdcall

3.2 函数重载问题

如果在c++的dll中定义了一个具有相同函数名的类，则在Delphi中无法保证调用正确的函数，这里要指出的是即使在定义时

声明该函数为overload也无法保证正确调用dll中的对应函数

3.3函数定义的顺序

Delphi中定义的类函数的顺序必须和C++ .h文件中定义的类函数顺序保持一致，否则调用将会出错。