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

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

1. 外部聲明

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

```delphi

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

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

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

```

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

另一種訪問DLL的方式是通過調(diào)用Windows API中的相關(guān)函數(shù)，將DLL調(diào)入內(nèi)存并獲取指向函數(shù)或過程的指針，在執(zhí)行完模塊后釋放內(nèi)存。這種方法的優(yōu)點是能夠處理找不到DLL或裝入過程中出錯的情況。以下是一個動態(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)建一個DLL非常簡單，首先需要新建一個DLL項目（如果使用Delphi 3.0，則可以在"File" -> "New"對話框中選擇DLL）。然后，可以在項目里加入各個層次的代碼。

```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中，我們聲明了一個加法函數(shù)，并通過`exports`語句輸出它，只有被輸出的函數(shù)才能被其他程序調(diào)用?？梢允褂靡韵麓a來調(diào)用這個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)運行這個程序時，F(xiàn)orm1的標(biāo)題將變成"3"。通過這個簡單的例子，我們可以看到如何在Delphi中構(gòu)建一個三層DLL，并且如何使用動態(tài)加載技術(shù)來訪問其中的函數(shù)和過程。