使用Delphi呼叫C++編寫的DLL

peter1983發表於2008-09-08
C++

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檔案中定義的類函式順序保持一致，否則呼叫將會出錯。

 

相關文章