在Delphi中調用C語言編寫的DLL

1、 使用Visual C++ 6.0編寫和連結DLL

開啟Visual C++ 6.0整合式開發環境，建立一個Win32 Dynamic-Link Library類型的工程CDLL，在工程中建立一個C語言源檔案cdll.c。源檔案中的內容如下：

__declspec(dllexport) int max(int x,int y) /* 比較兩個整型變數大小的函數max */

{

       if (x>y)

              return x;

       else

              return y;

}

輸入完畢後按下F7鍵來編譯和連結CDLL.dll，之後可以在存放該工程的檔案夾的Debug子檔案夾中找到一個名為CDLL的DLL檔案，該檔案即以上的C語言來源程式產生的DLL。

2、 使用Delphi 7編寫調用該DLL的應用程式

開啟Delphi 7整合式開發環境，在預設產生的表單Form1上拖放3個Edit控制項Edit1、Edit2、Edit3和1個Button控制項Button1，並在Object Inspector中將3個Edit控制項的Text屬性都清空。然後在預設產生的Unit1.pas檔案的implementation後輸入：

function max(x,y: Integer): Integer; stdcall external 'CDLL.DLL';

返回Form1，雙擊Button1控制項，在產生的事件處理常式中輸入：

Edit3.Text:=IntToStr(max(StrToInt(Edit1.Text), StrToInt(Edit2.Text)));

輸入完畢後，儲存這個Project。最後，將CDLL.dll檔案copy到儲存該Project的檔案夾中。

3、 測試

在Delphi整合式開發環境下，按下F9來運行剛剛編寫的Project。在Edit1中輸入2，Edit2中輸入4，然後單擊Button1，可以看到Edit3中會出現4，測試成功。