其它應(yīng)用程序?qū)⒂眯旅?/FONT>(MyInstr)調(diào)用該過程或函數(shù)。如果仍利用原來的名字(InStr)，則在程序執(zhí)行到引用點(diǎn)時(shí)會(huì)引發(fā)一個(gè)系統(tǒng)錯(cuò)誤。

　　2.Index

　　Index指示為過程或函數(shù)分配一個(gè)順序號(hào)。如果不使用Index指示，則由編譯器按順序進(jìn)行分配。

　　Index后所接數(shù)字的范圍為1...32767。使用Index可以加速調(diào)用過程。

　　3.resident

　　使用resident，則當(dāng)DLLs裝入時(shí)特定的輸出信息始終保持在內(nèi)存中。這樣當(dāng)其它應(yīng)用程序調(diào)用該過程時(shí)，可以比利用名字掃描DLL入口降低時(shí)間開銷。

　　對(duì)于那些其它應(yīng)用程序常常要調(diào)用的過程或函數(shù)，使用resident指示是合適的。例如：　

exports

InStr name MyInStr resident;　

10.2.1.3 DLLs中的變量和段　

一個(gè)DLLs擁有自己的數(shù)據(jù)段(DS)，因而它聲明的任何變量都為自己所私有。調(diào)用它的模塊不能直接使用它定義的變量。要使用必須通過過程或函數(shù)界面才能完成。而對(duì)DLLs來說，它永遠(yuǎn)都沒有機(jī)會(huì)使用調(diào)用它的模塊中聲明的變量。

　　一個(gè)DLLs沒有自己的堆棧段(SS)，它使用調(diào)用它的應(yīng)用程序的堆棧。因此在DLL中的過程、函數(shù)絕對(duì)不要假定DS = SS。一些語言在小模式編譯下有這種假設(shè)，但使用Delphi可以避免這種情況。Delphi絕不會(huì)產(chǎn)生假定DS = SS的代碼，Delphi的任何運(yùn)行時(shí)間庫過程/函數(shù)也都不作這種假定。需注意的是如果讀者想嵌入?yún)R編語言代碼，絕不要使SS和DS登錄同一個(gè)值?！?/P>

10.2.1.4 DLLs中的運(yùn)行時(shí)間錯(cuò)和處理　

　　由于DLLs無法控制應(yīng)用程序的運(yùn)行，導(dǎo)致很難進(jìn)行異常處理，因此編寫DLLs時(shí)要十分小心，以確保被調(diào)用時(shí)能正常執(zhí)行 。當(dāng)DLLs中發(fā)生一個(gè)運(yùn)行時(shí)間錯(cuò)時(shí)，相應(yīng)DLLs并不一定從內(nèi)存中移去（因?yàn)榇藭r(shí)其它應(yīng)用程序可能正在用它），而調(diào)用DLLs的程序異常中止。這樣造成的問題是當(dāng)DLLs已被修改，重新進(jìn)行調(diào)用時(shí)，內(nèi)存中保留的仍然可能是以前的版本，修改后的程序并沒有得到驗(yàn)證。對(duì)于這個(gè)問題，有以下兩種解決方法：

　　1.在程序的異常處理部分顯式將DLL卸出內(nèi)存；

　　2.完全退出Windows，而后重新啟動(dòng)，運(yùn)行相應(yīng)的程序。

　　同一般的應(yīng)用程序相比，DLL中運(yùn)行時(shí)間錯(cuò)的處理是很困難的，而造成的后果也更為嚴(yán)重。因此要求程序設(shè)計(jì)者在編寫代碼時(shí)要有充分、周到的考慮。　

10.2.1.5 庫初始化代碼的編寫　

　　傳統(tǒng)Windows中動(dòng)態(tài)鏈接庫的編寫，需要兩個(gè)標(biāo)準(zhǔn)函數(shù)：LibMain和WEP，用于啟動(dòng)和關(guān)閉DLL。在LibMain中，可以執(zhí)行開鎖DLL數(shù)據(jù)段、分配內(nèi)存、初始化變量等初始化工作；而WEP在從內(nèi)存中移去DLLs前被調(diào)用，一般用于進(jìn)行必要的清理工作，如釋放內(nèi)存等。Delphi用自己特有的方式實(shí)現(xiàn)了這兩個(gè)標(biāo)準(zhǔn)函數(shù)的功能。這就是在工程文件中的begin...end部分添加初始化代碼。和傳統(tǒng)Windows編程方法相比，它的主要特色是：

　　1.初始化代碼是可選的。一些必要的工作（如開鎖數(shù)據(jù)段）可以由系統(tǒng)自動(dòng)完成。所以大部分情況下用戶不會(huì)涉及到；

　　2.可以設(shè)置多個(gè)退出過程，退出時(shí)按順序依次被調(diào)用；

　　3.LibMain和WEP對(duì)用戶透明，由系統(tǒng)自動(dòng)調(diào)用。

　　1.初始化變量、分配全局內(nèi)存塊、登錄窗口對(duì)象等初始化工作。在(10.3.2)節(jié)“利用DLLs實(shí)現(xiàn)應(yīng)用程序間的數(shù)據(jù)傳輸”中，用于數(shù)據(jù)共享的全局內(nèi)存塊就是在初始化代碼中分配的。

　　2.設(shè)置DLLs退出時(shí)的執(zhí)行過程。Delphi有一個(gè)預(yù)定義變量ExitProc用于指向退出過程的地址。用戶可以把自己的過程名賦給ExitProc。系統(tǒng)自動(dòng)調(diào)用WEP函數(shù)，把ExitProc指向的地址依次賦給WEP執(zhí)行，直到ExitProc為nil。

　　下邊的一段程序包含一個(gè)退出過程和一段初始化代碼，用來說明如何正確設(shè)置退出過程?！?/P>

library Test;

{$S-}

uses WinTypes, WinProcs;

var

SaveExit: Pointer;　

procedure LibExit; far;

begin

if ExitCode = wep_System_Exit then

begin

{ 系統(tǒng)關(guān)閉時(shí)的相應(yīng)處理 }

end

else

begin

{ DLL卸出時(shí)的相應(yīng)處理 }

end;

ExitProc := SaveExit; { 恢復(fù)原來的退出過程指針 }

end;　

begin

{DLL的初始化工作 }

SaveExit := ExitProc; { 保存原來的退出過程指針 }

ExitProc := @LibExit; { 安裝新的退出過程 }

end.

　　在初始化代碼中，首先把原來的退出過程指針保存到一個(gè)變量中，而后再把新的退出過程地址賦給ExitProc。而在自定義退出過程LibExit結(jié)束時(shí)再把ExitProc的值恢復(fù)。由于ExitProc是一個(gè)系統(tǒng)全局變量，所以在結(jié)束時(shí)恢復(fù)原來的退出過程是必要的。

　　退出過程LibExit中使用了一個(gè)系統(tǒng)定義變量ExitCode，用于標(biāo)志退出時(shí)的狀態(tài)。 ExitCode的取值與意義如下：　

表10.1 ExitCode的取值與意義

━━━━━━━━━━━━━━━━━━━━━

取 值 意 義

—————————————————————

　　WEP_System_Exit Windows關(guān)閉　

WEP_Free_DLLx DLLs被卸出

━━━━━━━━━━━━━━━━━━━━━　

　　退出過程編譯時(shí)必須關(guān)閉stack_checking，因而需設(shè)置編譯指示 {$S-} ?！?/P>

10.2.1.6 編寫一般DLLs的應(yīng)用舉例　

　　在下面的程序中我們把一個(gè)字符串操作的函數(shù)儲(chǔ)存到一個(gè)DLLs中，以便需要的時(shí)候調(diào)用它。應(yīng)該注意的一點(diǎn)是：為了保證這個(gè)函數(shù)可以被其它語言編寫的程序所調(diào)用，作為參數(shù)傳遞的字符串應(yīng)該是無結(jié)束符的字符數(shù)組類型(即PChar類型)，而不是Object Pascal的帶結(jié)束符的Srting類型。程序清單如下：

library Example;

uses

SysUtils,

Classes;

{返回字符在字符串中的位置}

function InStr(SourceStr: PChar;Ch: Char): Integer; export;

var

Len,i: Integer;

begin

Len := strlen(SourceStr);

for i := 0 to Len-1 do

if SourceStr[i] = ch then

begin

Result := i;

Exit;

end;

Result := -1;

end;

exports

Instr Index 1 name 'MyInStr' resident;

begin

end.　

10.2.2 調(diào)用DLLs

　　有兩種方法可用于調(diào)用一個(gè)儲(chǔ)存在DLLs中的過程。

　　1.靜態(tài)調(diào)用或顯示裝載

　　使用一個(gè)外部聲明子句，使DLLs在應(yīng)用程序開始執(zhí)行前即被裝入。例如：　

　　function Instr(SourceStr : PChar;Check : Char); Integer; far; external 'UseStr';

　　使用這種方法，程序無法在運(yùn)行時(shí)間里決定DLLs的調(diào)用。假如一個(gè)特定的DLLs在運(yùn)行時(shí)無法使用，則應(yīng)用程序?qū)o法執(zhí)行。

　　2.動(dòng)態(tài)調(diào)用或隱式裝載

　　使用Windows API函數(shù)LoadLibray和GetProcAddress可以實(shí)現(xiàn)在運(yùn)行時(shí)間里動(dòng)態(tài)裝載DLLs并調(diào)用其中的過程。

　　若程序只在其中的一部分調(diào)用DLLs的過程，或者程序使用哪個(gè)DLLs， 調(diào)用其中的哪個(gè)過程需要根據(jù)程序運(yùn)行的實(shí)際狀態(tài)來判斷，那么使用動(dòng)態(tài)調(diào)用就是一個(gè)很好的選擇。

　　使用動(dòng)態(tài)調(diào)用，即使裝載一個(gè)DLLs失敗了，程序仍能繼續(xù)運(yùn)行。　

10.2.3 靜態(tài)調(diào)用

　　在靜態(tài)調(diào)用一個(gè)DLLs中的過程或函數(shù)時(shí)，external指示增加到過程或函數(shù)的聲明語句中。被調(diào)用的過程或函數(shù)必須采用遠(yuǎn)調(diào)用模式。這可以使用far過程指示或一個(gè){$F +}編譯指示。

　　Delphi全部支持傳統(tǒng)Windows動(dòng)態(tài)鏈接庫編程中的三種調(diào)用方式，它們是：

　　● 通過過程/函數(shù)名

　　● 通過過程/函數(shù)的別名

　　● 通過過程/函數(shù)的順序號(hào)　

　　通過過程或函數(shù)的別名調(diào)用，給用戶編程提供了靈活性，而通過順序號(hào)(Index)調(diào)用可以提高相應(yīng)DLL的裝載速度。　

10.2.4 動(dòng)態(tài)調(diào)用　

10.2.4.1 動(dòng)態(tài)調(diào)用中的API函數(shù)　

　　動(dòng)態(tài)調(diào)用中使用的Windows API函數(shù)主要有三個(gè),即：Loadlibrary，GetProcAddress和Freelibrary。

　　 1.Loadlibrary: 把指定庫模塊裝入內(nèi)存

　　function Loadlibrary(LibFileName: PChar): THandle;　

LibFileName指定了要裝載DLLs的文件名，如果LibFileName沒有包含一個(gè)路徑，則Windows按下述順序進(jìn)行查找：

　　(1)當(dāng)前目錄；

　　(2)Windows目錄(包含win.com的目錄)。函數(shù)GetWindowDirectory返回這一目錄的路徑；

　　(3)Windows系統(tǒng)目錄(包含系統(tǒng)文件如gdi.exe的目錄)。函數(shù)GetSystemDirectory返回這一目錄的路徑；

　　(4)包含當(dāng)前任務(wù)可執(zhí)行文件的目錄。利用函數(shù)GetModuleFileName可以返回這一目錄的路徑；

　　(5)列在PATH環(huán)境變量中的目錄；

　　(6)網(wǎng)絡(luò)的映象目錄列表。

　　如果函數(shù)執(zhí)行成功，則返回裝載庫模塊的實(shí)例句柄。否則，返回一個(gè)小于HINSTANCE_ERROR的錯(cuò)誤代碼。錯(cuò)誤代碼的意義如下表：　

　　 表10.2 Loadlibrary返回錯(cuò)誤代碼的意義

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

錯(cuò)誤代碼　　　　　　　　　意　　　　　　　　義

　　　 0 系統(tǒng)內(nèi)存不夠，可執(zhí)行文件被破壞或調(diào)用非法

　　　 2 文件沒有被發(fā)現(xiàn)

　　　 3 路徑?jīng)]有被發(fā)現(xiàn)

　　　 5 企圖動(dòng)態(tài)鏈接一個(gè)任務(wù)或者有一個(gè)共享或網(wǎng)絡(luò)保護(hù)錯(cuò)

　　　 6 庫需要為每個(gè)任務(wù)建立分離的數(shù)據(jù)段

　　 　 8 沒有足夠的內(nèi)存啟動(dòng)應(yīng)用程序

　　 10 Windows版本不正確

　　　 11 可執(zhí)行文件非法?；蛘卟皇?/FONT>Windows應(yīng)用程序，或者在.EXE映