在Delphi中，構(gòu)建一個(gè)三層DLL是相對(duì)簡(jiǎn)單的。三層架構(gòu)是一種常見的軟件設(shè)計(jì)模式，將應(yīng)用程序分為表示層、業(yè)務(wù)邏輯層和數(shù)據(jù)訪問層，以實(shí)現(xiàn)代碼的重用和可維護(hù)性。1. 外部聲明在Delphi中，最常用的訪

在Delphi中，構(gòu)建一個(gè)三層DLL是相對(duì)簡(jiǎn)單的。三層架構(gòu)是一種常見的軟件設(shè)計(jì)模式，將應(yīng)用程序分為表示層、業(yè)務(wù)邏輯層和數(shù)據(jù)訪問層，以實(shí)現(xiàn)代碼的重用和可維護(hù)性。

1. 外部聲明

在Delphi中，最常用的訪問外部例程的方式有兩種：通過名字和通過索引號(hào)。例如，在MYDLL.DLL中有兩個(gè)函數(shù)和一個(gè)過程，可以進(jìn)行如下的外部聲明：

```delphi

function Func1: Integer; stdcall; external 'MYDLL.DLL';

procedure Proc1; stdcall; external 'MYDLL.DLL';

function Func2: Integer; stdcall; external 'MYDLL.DLL' index 1;

```

2. 動(dòng)態(tài)加載DLL

另一種訪問DLL的方式是通過調(diào)用Windows API中的相關(guān)函數(shù)，將DLL調(diào)入內(nèi)存并獲取指向函數(shù)或過程的指針，在執(zhí)行完模塊后釋放內(nèi)存。這種方法的優(yōu)點(diǎn)是能夠處理找不到DLL或裝入過程中出錯(cuò)的情況。以下是一個(gè)動(dòng)態(tài)加載DLL的示例：

```delphi

var

DLLHandle: THandle;

Func1: function: Integer; stdcall;

begin

DLLHandle : LoadLibrary('MYDLL.DLL');

if DLLHandle <> 0 then

begin

@Func1 : GetProcAddress(DLLHandle, 'Func1');

if Assigned(Func1) then

Result : Func1();

FreeLibrary(DLLHandle);

end;

end;

```

3. 創(chuàng)建DLL

使用Delphi創(chuàng)建一個(gè)DLL非常簡(jiǎn)單，首先需要新建一個(gè)DLL項(xiàng)目（如果使用Delphi 3.0，則可以在"File" -> "New"對(duì)話框中選擇DLL）。然后，可以在項(xiàng)目里加入各個(gè)層次的代碼。

```delphi

library MyDLL;

uses

SysUtils,

Classes;

{$R *.res}

function Add(a, b: Integer): Integer; stdcall;

begin

Result : a b;

end;

exports

Add;

begin

end.

```

4. 使用DLL

在創(chuàng)建的DLL中，我們聲明了一個(gè)加法函數(shù)，并通過`exports`語(yǔ)句輸出它，只有被輸出的函數(shù)才能被其他程序調(diào)用?？梢允褂靡韵麓a來調(diào)用這個(gè)DLL：

```delphi

function Add(a, b: Integer): Integer; stdcall; external 'MyDLL.DLL';

procedure TForm1.Button1Click(Sender: TObject);

var

Result: Integer;

begin

Result : Add(1, 2);

: IntToStr(Result);

end;

```

這樣，當(dāng)運(yùn)行這個(gè)程序時(shí)，F(xiàn)orm1的標(biāo)題將變成"3"。通過這個(gè)簡(jiǎn)單的例子，我們可以看到如何在Delphi中構(gòu)建一個(gè)三層DLL，并且如何使用動(dòng)態(tài)加載技術(shù)來訪問其中的函數(shù)和過程。