免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

創(chuàng)建一個(gè)DLL



在進(jìn)行后面的講解之前，我想大家應(yīng)該先清楚一個(gè)概念：例程聲明的是一個(gè)指針變量，調(diào)用函數(shù)/過程，其實(shí)是通過指針轉(zhuǎn)入該函數(shù)/過程的執(zhí)行代碼。

我們先嘗試用Delphi來建立一個(gè)自己的DLL文件。這個(gè)DLL包含一個(gè)標(biāo)準(zhǔn)的目錄刪除（包含子目錄及文件）函數(shù)。
建立DLL
通過Delphi建立一個(gè)DLL是很容易的。New一個(gè)新Project，選擇DLL Wizard，然后會生成一個(gè)非常簡單的單元。該單元不象一般的工程文件以program開始，而是以library開始的。

該工程單元缺省引用了SysUtils、Classes兩個(gè)單元?？梢灾苯釉谠搯卧膗ses之后，begin … end部分之前添加函數(shù)/過程代碼，也可以在工程中添加包含代碼的單元，然后該單元將會被自動(dòng)uses。

接下來是編寫DLL例程的代碼。如果是引用單元里的例程，需要通過聲明時(shí)添加export后綴引出。假如是直接寫在library單元中的，則不必再寫export了。

最后一步是在library單元的begin語句之上，uses部分及函數(shù)定義之下添加exports部分，并列舉需要引出的例程名稱。注意僅僅是名稱，不包含procedure或function關(guān)鍵字，也不需要參數(shù)、返回值和后綴。

exports語句后的語法有三種形式（例程指具體的函數(shù)/過程）：

exports例程名；

exports例程名 index 索引值；

exports例程名 name新名稱；

索引值和新名稱便于其他程序確定函數(shù)地址；也可以不指定，如果沒有使用Index關(guān)鍵字，Delphi將按照exports后的順序從1開始自動(dòng)分配索引號。Exports后可跟多個(gè)例程，之間以逗號分隔。

編譯，build最終的dll文件。

需注意的格式

為了保證生成的DLL能正確與C++等語言兼容，需要注意以下幾點(diǎn)：

1、 盡量使用簡單類型或指針作為參數(shù)及返回值的類型。這里的簡單類型是指C++的簡單類型，所以string字符串類型最好轉(zhuǎn)換成Pchar字符指針。直接使用string的DLL例程在Delphi開發(fā)的程序中調(diào)用是沒有問題的（有資料指出需加入ShareMem做為第一單元以確保正確），但如果使用C++或其他語言開發(fā)的程序調(diào)用，則不能保證參數(shù)傳遞正確；

2、 雖然過程是允許的，但是最好習(xí)慣全部寫成函數(shù)。過程則返回執(zhí)行正確與否的true/false；

3、 對于參數(shù)的指示字比如const（只讀）、out（只寫）等等，為保證調(diào)用的兼容性，最好使用缺省方式（缺省var，即可讀寫的地址）；

4、 使用stdcall聲明后綴，以保證正確的異常處理。16位DLL無法通過這種方式處理異常，所以還得在例程最外層用Try … Except將異常處理掉；

5、 一般不使用far后綴，除非為了保持與16位兼容。

范例代碼

DLL工程單元：

library FileOperate;



uses

SysUtils,

Classes,

uDirectory in 'uDirectory.pas';



{$R *.res}



exports

DeleteDir;



begin

end.



函數(shù)功能實(shí)現(xiàn)單元：

unit uDirectory;



interface



uses

Classes, SysUtils;



function DeleteDir(DirName : Pchar):boolean;export;stdcall;



implementation



function DeleteDir(DirName : Pchar):boolean;

var

FindFile: TSearchRec;

s : string;

begin

s := DirName;

if copy(s,length(s),1) <> '\' then s := s+ '\';

if DirectoryExists(s) then begin

if FindFirst(s + '*.*', faAnyFile, FindFile) = 0 then begin

repeat

if FindFile.Attr <> faDirectory then begin

//文件則刪除

DeleteFile(s + FindFile.Name);

end

else begin

//目錄則嵌套自身

if (FindFile.Name <> '.') and (FindFile.Name <> '..') then

DeleteDir(Pchar(s + FindFile.Name));

end;

until FindNext(FindFile) <> 0;

FindCLose(FindFile);

end;

end;



Result := RemoveDir(s);

end;



end.

初始化及釋放資源



Delphi中初始化有幾種方法。一種是利用Unit的Initalization與Finalization這兩個(gè)小節(jié)（不知道“單元小節(jié)”？你該先去惡補(bǔ)Delphi語法了）進(jìn)行該單元中變量的初始化工作。注意，DLL雖然在內(nèi)存中只有一個(gè)副本，但是例程隸屬于調(diào)用者的不同進(jìn)程空間。如果想初始化公共變量來達(dá)到多進(jìn)程共享是不可行的，同時(shí)也要注意公共變量帶來的沖突問題。

二是在library單元的begin … end部分進(jìn)行DLL的初始化。假如想在DLL結(jié)束時(shí)有對應(yīng)代碼，則可以利用DLL自動(dòng)創(chuàng)建的一個(gè)ExitProc過程變量，這是一個(gè)退出過程的指針。建立一個(gè)自己的過程，并將該過程的地址賦與ExitProc。因?yàn)镋xitProc是DLL創(chuàng)建時(shí)就存在的，所以在begin … end部分就應(yīng)該進(jìn)行此步操作。同時(shí)建立一個(gè)臨時(shí)指針變量保存最初的ExitProc值，在自己的退出過程中將ExitProc值賦回來。這樣做是為了進(jìn)行自己的退出操作后，能完成缺省的DLL退出操作（與在重載的Destory方法中inherated的意義是一樣的，完成了自己的destory，還需要進(jìn)行缺省的父類destory才完整）。

示例如下：

library MyDLL;
　　...

var

OldExitProc: pointer; //公共變量，為的保存最初的ExitProc指針以便賦回

procedure MyExitProc;
　　begin

…//對應(yīng)初始化的結(jié)束代碼
　　ExitProc := OldExitProc; //自己的退出過程中要記住將ExitProc賦回

end;
　　...
　　begin
　　 ... //初始化代碼
　　OldExitProc := ExitProc;
　 　ExitProc := @MyExitProc;
　　end.

第三種方法和ExitProc類似，在System單元中預(yù)定義了一個(gè)指針變量DllProc（該方法需要引用 Windows單元）。在使用DLLProc時(shí), 必須先寫好一個(gè)具有以下原型的程序:
　　procedure DLLHandler(dwReason: DWORD); stdcall;
并在library的begin..end.之間, 將這個(gè)DLLHandler程序的執(zhí)行地址賦給DLLProc中, 這時(shí)就可以根據(jù)參數(shù)Reason的值分別作出相應(yīng)的處理。示例如下:
　　library MyDLL;
　　...
　　procedure MyDLLHandler(dwReason: DWORD);
　　begin
　　　case dwReason of
　　　　DLL_Process_Attach: //進(jìn)程進(jìn)入時(shí)
　　　　DLL_Process_Detach: //進(jìn)程退出時(shí)
　　　　DLL_Thread_Attach: //線程進(jìn)入時(shí)
　　　　DLL_Thread_Detach: //線程退出時(shí)
　　　end;
　　end;
　　...
　　begin
　　 ... //初始化代碼
　　DLLProc := @MyDLLHandler;
　 　MyDLLHandle(DLL_Process_Attach);
　　end.

可見，通過DLLProc 在處理多進(jìn)程時(shí)比ExitProc更加強(qiáng)大和靈活。

靜態(tài)（隱式）調(diào)用DLL




DLL已經(jīng)有了，接下來我們看如何調(diào)用并調(diào)試它。普通的DLL是不需要注冊的，但是要包含在windows搜索路徑中才能被找到。搜索路徑的順序是：當(dāng)前目錄；Path路徑；windows目錄;widows系統(tǒng)目錄（system、system32）。

引入DLL例程的聲明方法

在需要使用外部例程（DLL函數(shù)/過程）的代碼之前預(yù)定義該函數(shù)/過程。即按DLL中的定義原樣聲明，且僅需要聲明。同時(shí)加上external后綴引入，與export引出相對應(yīng)。根據(jù)exports的三種索引語法，也有三種確定例程的方式（以函數(shù)聲明為例）：

function 函數(shù)名（參數(shù)表）：返回值；external ’DLL文件名’；

function 函數(shù)名（參數(shù)表）：返回值；external ’DLL文件名’ index 索引號；

function 函數(shù)名（參數(shù)表）：返回值；external ’DLL文件名’ name 新名稱；

如果不確定例程名稱，可以用索引方式引入。如果按原名引入會發(fā)生沖突，則可以用“新名稱”引入。

進(jìn)行聲明后DLL函數(shù)的使用就和一般函數(shù)相同了。靜態(tài)調(diào)用方式簡單，但在啟動(dòng)調(diào)用程序時(shí)即調(diào)入DLL作為備用過程。如果此DLL文件不存在，那么啟動(dòng)時(shí)即會提示錯(cuò)誤并立刻終止程序，不管定義是否使用。

快速查看DLL例程定義可以使用Borland附帶的工具tdump.exe（在Delphi或BCB的bin目錄下），示例如下：

Tdump c:\windows\system\user32.dll > user32.txt

然后打開user32.txt文件，找到Exports from USER32.dll行，之下的部分就是DLL例程定義了，比如：

RVA Ord. Hint Name

-------- ---- ---- ----

00001371 1 0000 ActivateKeyboardLayout

00005C20 2 0001 AdjustWindowRect

0000161B 3 0002 AdjustWindowRectEx

Name列就是例程的名稱，Ord就是該例程索引號。注意，該工具是不能得到例程的參數(shù)表的。如果參數(shù)錯(cuò)誤，調(diào)用DLL例程會引起堆棧錯(cuò)誤而導(dǎo)致調(diào)用程序崩潰。

調(diào)用代碼

建立一個(gè)普通工程，在Main窗體上放置一個(gè)TShellTreeView控件（Samples頁），再放置一個(gè)按鈕，添加代碼如下：

function DeleteDir(DirName : Pchar):boolean;stdcall;external 'FileOperate.dll';


procedure TForm1.Button1Click(Sender: TObject);

begin

if DirectoryExists(ShellTreeView.Path) then

if Application.MessageBox(Pchar('確定刪除目錄'+QuotedStr(ShellTreeView.Path)+'嗎？'), 'Information',MB_YESNO) = IDYes then

if DeleteDir(PChar(ShellTreeView.Path)) then

showmessage('刪除成功');

end;

該范例調(diào)用的就是前面建立的DLL。

注意，聲明時(shí)要包括stdcall后綴，這樣才能保證調(diào)用Delphi開發(fā)的DLL的例程中類似PChar這樣的參數(shù)值傳遞正確。大家有興趣可以試驗(yàn)一下，不加入stdcall或者safecall后綴執(zhí)行上面代碼，將不能保證成功傳遞字符串參數(shù)給DLL函數(shù)。

調(diào)試方法

在Delphi主菜單Run項(xiàng)目中選擇Parameters，打開“Run Parameters”對話框。在Host Application中填入一個(gè)宿主程序（該程序調(diào)用了將要調(diào)試的DLL），還可以在Parameters中輸入?yún)?shù)。保存內(nèi)容，然后就可以在DLL工程中設(shè)置斷點(diǎn)、跟蹤/單步執(zhí)行了。

Run該DLL工程，然后將運(yùn)行宿主程序。執(zhí)行會調(diào)用DLL的操作，然后就能跟蹤進(jìn)入該DLL的代碼，接下來的調(diào)試操作和普通程序是一樣的。

因?yàn)椴僮飨到y(tǒng)或其他軟件影響的原因，可能會出現(xiàn)進(jìn)行了上述步驟仍然無法正常跟蹤/中斷DLL代碼的情況。這時(shí)可以試試在菜單Project |Options 對話框的 Linker 頁面里將 EXE and DLL Options 中的Include TD32 debug info及include remote debug symbols兩個(gè)選項(xiàng)選中。

假如還是不能中斷 -_____-||| 那只好另外建立一個(gè)引用執(zhí)行代碼單元的應(yīng)用程序，寫代碼調(diào)用例程調(diào)試完成后再編譯DLL了（其實(shí)該方法有時(shí)候蠻方便的，但有時(shí)候亦非常麻煩）。