程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中動態鏈接庫兩種調用方式的比較

Delphi中動態鏈接庫兩種調用方式的比較

編輯:Delphi

  一、動態鏈接庫的概念

  動態鏈接庫(Dynamic Link Library,縮寫為DLL)是一個可以被其它應用程序共享的程序模塊,其中封裝了一些可以被共享的例程和資源。動態鏈接庫文件的擴展名一般是dll,也有可能是drv、sys和fon,它和可執行文件(exe)非常類似,區別在於DLL中雖然包含了可執行代碼卻不能單獨執行,而應由Windows應用程序直接或間接調用。

  動態鏈接是相對於靜態鏈接而言的。所謂靜態鏈接是指把要調用的函數或者過程鏈接到可執行文件中,成為可執行文件的一部分。換句話說,函數和過程的代碼就在程序的exe文件中,該文件包含了運行時所需的全部代碼。當多個程序都調用相同函數時,內存中就會存在這個函數的多個拷貝,這樣就浪費了寶貴的內存資源。而動態鏈接所調用的函數代碼並沒有被拷貝到應用程序的可執行文件中去,而是僅僅在其中加入了所調用函數的描述信息(往往是一些重定位信息)。僅當應用程序被裝入內存開始運行時,在Windows的管理下,才在應用程序與相應的DLL之間建立鏈接關系。當要執行所調用DLL中的函數時,根據鏈接產生的重定位信息,Windows才轉去執行DLL中相應的函數代碼。

  一般情況下,如果一個應用程序使用了動態鏈接庫,Win32系統保證內存中只有DLL的一份復制品,這是通過內存映射文件實現的。DLL首先被調入Win32系統的全局堆棧,然後映射到調用這個DLL的進程地址空間。在Win32系統中,每個進程擁有自己的32位線性地址空間,如果一個DLL被多個進程調用,每個進程都會收到該DLL的一份映像。與16位Windows不同,在Win32中DLL可以看作是每個進程自己的代碼。

  二、動態鏈接庫的優點

  1. 共享代碼、資源和數據

  使用DLL的主要目的就是為了共享代碼,DLL的代碼可以被所有的Windows應用程序共享。

  2. 隱藏實現的細節

  DLL中的例程可以被應用程序訪問,而應用程序並不知道這些例程的細節。

  3. 拓展開發工具如Delphi的功能

  由於DLL是與語言無關的,因此可以創建一個DLL,被C++、VB或任何支持動態鏈接庫的語言調用。這樣如果一種語言存在不足,就可以通過訪問另一種語言創建的DLL來彌補。

  三、動態鏈接庫的實現方法

  1. Load-time Dynamic Linking

  這種用法的前提是在編譯之前已經明確知道要調用DLL中的哪幾個函數,編譯時在目標文件中只保留必要的鏈接信息,而不含DLL函數的代碼;當程序執行時,利用鏈接信息加載DLL函數代碼並在內存中將其鏈接入調用程序的執行空間中,其主要目的是便於代碼共享。

  2. Run-time Dynamic Linking

  這種方式是指在編譯之前並不知道將會調用哪些DLL函數,完全是在運行過程中根據需要決定應調用哪個函數,並用LoadLibrary和GetProcAddress動態獲得DLL函數的入口地址。

  四、DLL的兩種調用方式在Delphi中的比較

  編寫DLL的目的是為了輸出例程供其他程序調用,因此在DLL的工程文件中要把輸出的例程用Exports關鍵字引出。在調用DLL的應用程序中,需要聲明用到的DLL中的方法,聲明格式要和DLL中的聲明一樣。訪問DLL中的例程有靜態調用和動態調用兩種方式。靜態調用方式就是在單元的Interface部分用External指示字列出要從DLL中引入的例程;動態調用方式就是通過調用Windows的API包括LoadLibrary函數、GetProcAddress函數以及FreeLibrary函數動態的引入DLL中的例程。

  靜態調用方式所需的代碼較動態調用方式所需的少,但存在著一些不足,一是如果要加載的DLL不存在或者DLL中沒有要引入的例程,這時候程序就自動終止運行;二是DLL一旦加載就一直駐留在應用程序的地址空間,即使DLL已不再需要了。動態調用方式就可解決以上問題,它在需要用到DLL的時候才通過LoadLibrary函數引入,用完後通過FreeLibrary函數從內存中卸載,而且通過調GetProcAddress函數可以指定不同的例程。最重要的是,如果指定的DLL出錯,至多是API調用失敗,不會導致程序終止。以下將通過具體的實例說明說明這調用方式的使用方法。

  1. 靜態調用方式

  示例程序創建了一個DLL,其中僅包含一個求兩個整數的和的函數,在主程序中輸入兩個整數,通過調用該DLL,即可求出兩個整數的和。

  該DLL的程序代碼如下:

library AddNum;
uses
SysUtils,
Classes;
{$R *.res}
function AddNumber(Num1,Num2:integer):integer;stdcall; //定義求和函數
 begin
  result:=Num1+Num2;
 end;
  exports
  AddNumber; //引出求和函數
 begin
end.

  主程序在調用該DLL時,首先在interface部分聲明要調用的函數:

function AddNum(Num1,Num2:integer):integer;stdcall;external 'AddNum.dll'
name 'AddNumber';

  然後在按鈕控件的事件中寫入如下代碼:

procedure TForm1.Button1Click(Sender: TObject);
var
 Number1,Number2:integer;
 Sum:integer;
begin
 Number1:=strtoint(Edit1.Text);
 Number2:=strtoint(Edit2.Text);
 Sum:=AddNum(Number1,Number2); //調用求和函數計算結果
 Edit3.Text:=inttostr(Sum);
end;

  2.動態調用方式

  這個示例程序創建了一個顯示日期的DLL,其中包含一個窗體。

  程序中定義了一個ShowCalendar函數,返回在這個窗體中設定的日期。函數定義如下:

function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime;
var
 DLLForm: TDLLForm;
begin
 Application.Handle := AHandle;
 DLLForm := TDLLForm.Create(Application); //創建並顯示窗體
 try
  DLLForm.Caption := ACaption;
  DLLForm.ShowModal; //顯示方式為模式化
  Result := DLLForm.calDLLCalendar.CalendarDate; //返回設定日期
 finally
  DLLForm.Free; //用完後卸載該窗體
 end;
end;

  在DLL的工程文件中用exports ShowCalendar; 語句引出該函數。下面通過一個簡單的應用程序測試一下該DLL文件。新建一個工程文件,在窗體中放置一個Label控件和一個按鈕控件,在按鈕控件的OnClick事件中編寫如下代碼:

procedure TMainForm.Button1Click(Sender: TObject);
var
 OneHandle : THandle; //定義一個句柄變量
begin
 OneHandle := LoadLibrary('Clendar.dll'); //動態載入DLL,並返回其句柄
 try
  if OneHandle <> 0 then //如果載入成功則獲取ShowCalendar函數的地址
   @ShowCalendar := GetProcAddress(OneHandle, 'ShowCalendar');
   if not (@ShowCalendar = nil) then
    //如果找到該函數則在主窗體的Label1中顯示DLL窗體中設定的日期
    Label1.Caption := DateToStr(ShowCalendar(Application.Handle, Caption))
   else
    RaiseLastWin32Error;
 finally
  FreeLibrary(OneHandle); //調用完畢收回DLL占用的資源
 end;
end;

  從以上程序中可以看到DLL的動態調用方式比靜態調用方式的優越之處。DLL例程在用到時才被調入,用完後就被卸載,大大減少了系統資源的占用。在調用LoadLibrary函數時可以明確指定DLL的完整路徑,如果沒有指定路徑,運行時首先查找應用程序載入的目錄,然後是Windows系統的System目錄和環境變量Path設定的路徑。

  五、結束語

  由於動態鏈接庫可以實現代碼和資源的共享,大大減少系統資源的占用,因此在當今的應用程序開發中起著非常重要的作用。Delphi是現今流行的應用軟件開發工具,本文就如何在Delphi中使用動態鏈接庫給出了一定程度上的闡述。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved