在Delphi中調(diào)用DLL

《在Delphi中調(diào)用DLL》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、在Delphi中調(diào)用DLL版權(quán)聲明：CSDN是本Blog托管服務(wù)提供商。如本文牽涉版權(quán)問題，CSDN不承擔(dān)相關(guān)責(zé)任，請版權(quán)擁有者直接與文章作者聯(lián)系解決。<一>在Delphi中靜態(tài)調(diào)用DLLtop調(diào)用一個DLL比寫一個DLL要容易一些。首先給大家介紹的是靜態(tài)調(diào)用方法，稍后將介紹動態(tài)調(diào)用方法，并就兩種方法做一個比較。同樣的，我們先舉一個靜態(tài)調(diào)用的例子。unitUnit1;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Form

2、s,Dialogs,StdCtrls;typeTForm1=class(TForm)Edit1:TEdit;Button1:TButton;procedureButton1Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.DFM}//本行以下代碼為我們真正動手寫的代碼functionTestDll(i:integer):int

3、eger;stdcall;external’Delphi.dll’;procedureTForm1.Button1Click(Sender:TObject);beginEdit1.Text:=IntToStr(TestDll(1));end;end.上面的例子中我們在窗體上放置了一個編輯框（Edit）和一個按鈕（Button），并且書寫了很少的代碼來測試我們剛剛編寫的Delphi.dll。大家可以看到我們唯一做的工作是將TestDll函數(shù)的說明部分放在了implementation中，并且用extern

4、al語句指定了Delphi.dll的位置。（本例中調(diào)用程序和Delphi.dll在同一個目錄中。）讓人興奮的是，我們自己編寫的TestDll函數(shù)很快被Delphi認(rèn)出來了。您可做這樣一個實(shí)驗(yàn)：輸入“TestDll（”，很快Delphi就會用fly-by提示條提示您應(yīng)該輸入的參數(shù)是什么，就像我們使用Delphi中定義的其他函數(shù)一樣簡單。注意事項(xiàng)有以下一些：一、調(diào)用參數(shù)用stdcall。和前面提到的一樣，當(dāng)引用DLL中的函數(shù)和過程時也要使用stdcall參數(shù)，原因和前面提到的一樣。二、用external語句

5、指定被調(diào)用的DLL文件的路徑和名稱。正如大家看到的，我們在external語句中指定了所要調(diào)用的DLL文件的名稱。沒有寫路徑是因?yàn)樵揇LL文件和調(diào)用它的主程序在同一目錄下。如果該DLL文件在C:，則我們可將上面的引用語句寫為external’C:Delphi.dll’。注意文件的后綴.dll必須寫上。三、不能從DLL中調(diào)用全局變量。如果我們在DLL中聲明了某種全局變量，如：vars:byte。這樣在DLL中s這個全局變量是可以正常使用的，但s不能被調(diào)用程序使用，既s不能作為全局變量傳遞給調(diào)用程序。不

6、過在調(diào)用程序中聲明的變量可以作為參數(shù)傳遞給DLL。四、被調(diào)用的DLL必須存在。這一點(diǎn)很重要，使用靜態(tài)調(diào)用方法時要求所調(diào)用的DLL文件以及要調(diào)用的函數(shù)或過程等等必須存在。如果不存在或指定的路徑和文件名不正確的話，運(yùn)行主程序時系統(tǒng)會提示“啟動程序時出錯”或“找不到*.dll文件”等運(yùn)行錯誤。<二>在Delphi中動態(tài)調(diào)用DLLtop動態(tài)調(diào)用DLL相對復(fù)雜很多，但非常靈活。為了全面的說明該問題，這次我們舉一個調(diào)用由C++編寫的DLL的例子。首先在C++中編譯下面的DLL源程序。#includeextern”C

7、”_declspec(dllexport)intWINAPITestC(inti){returni;}編譯后生成一個DLL文件，在這里我們稱該文件為Cpp.dll，該DLL中只有一個返回整數(shù)類型的函數(shù)TestC。為了方便說明，我們?nèi)匀灰蒙厦娴恼{(diào)用程序，只是將原來的Button1Click過程中的語句用下面的代碼替換掉了。procedureTForm1.Button1Click(Sender:TObject);typeTIntFunc=function(i:integer):integer;stdcal

8、l;varTh:Thandle;Tf:TIntFunc;Tp:TFarProc;beginTh:=LoadLibrary(’Cpp.dll’);{裝載DLL}ifTh>0thentryTp:=GetProcAddress(Th,PChar(’TestC’));ifTp<>nilthenbeginTf:=TIntFunc(Tp);Edit1.Text:=IntToStr(Tf(1));{調(diào)用TestC函數(shù)}endelseShowMessage