為什么要使用包？

答案很簡單：因?yàn)榘墓δ軓?qiáng)大。設(shè)計(jì)期包（design-time package）簡化了自定義組件的發(fā)布和安裝；而運(yùn)行期包（run-time package） 則更是給傳統(tǒng)的程序設(shè)計(jì)注入了新鮮的力量。一旦把可重用的代碼編譯為運(yùn)行期庫中，你就可以在多個應(yīng)用程序中共享它們。所有應(yīng)用程序都可以通過包訪問標(biāo)準(zhǔn)組 件，Delphi自己就是這么干的。因?yàn)閼?yīng)用程序不必在可執(zhí)行文件中單獨(dú)復(fù)制一份組件庫，這樣就大 大節(jié)省了系統(tǒng)資源和磁盤空間。此外，包還可以減少花費(fèi)在編譯上的時間，因?yàn)槟阒恍杈幾g應(yīng)用程序特有的代碼。

如果可以動態(tài)的使用包，那么我們還可以獲得更多的好處。包提供了一種新穎的模塊化方法來開發(fā)應(yīng)用程序。有些時候你也 許想把某些模塊作為應(yīng)用程序的可選部件，例如一個記帳系統(tǒng)附帶一個可選的HR模塊。某些情況下，你 只需安裝基本的應(yīng)用程序，而在另外一些情況下你就可能需要額外安裝HR模塊。這種模塊化的方法可以 通過包技術(shù)很容易的實(shí)現(xiàn)。在過去，這只能通過動態(tài)裝載DLL實(shí)現(xiàn)，但是使用Delphi的包技術(shù)，你就可以把應(yīng)用程序的各個模塊類型分別打“包”成捆。特別是從包中創(chuàng)建的類對象則屬于應(yīng) 用程序所有，因此可以與應(yīng)用程序中的對象交互。

運(yùn)行期包與應(yīng)用程序

許多開發(fā)者只把Delphi包看作放組件的地方，事實(shí)上包可 以（而且也應(yīng)該）應(yīng)用于模塊化應(yīng)用程序設(shè)計(jì)。

為了演示如何用包來模塊化你的應(yīng)用程序，我們創(chuàng)建一個例子：

1、 新建一個具有兩個窗體的Delphi程序：Form1和Form2；

2、 將Form2從自動創(chuàng)建窗體列表中移除（PRoject |Options | Forms）；

3、 在Form1上放一個按鈕，并且在按鈕的OnClick事件處理器中輸入如下代碼：

with TForm2.Create(application) do

begin

ShowModal;

Free;

End;

4、記住添加Unit2到Unit1的uses子句中；

5、 保存并運(yùn)行工程。

我們創(chuàng)建了一個簡單的應(yīng)用程序，它顯示一個帶按鈕的窗體，點(diǎn)擊這個按鈕則會創(chuàng)建并顯示出另一個窗體。

但是如果想將上述例子中的Form2包含在一個可重用模塊 中，并使它依然可以正常工作，我們該怎么辦呢？

答案是：包！

要為Form2創(chuàng)建包需要以下工作：

1、 打開工程管理器（View | Project Manager）；

2 、右擊Project Group，選擇“Add NewProject...”；

3、在“New”項(xiàng)目列表中選擇“Package”；

4、 現(xiàn)在你應(yīng)該可以見到包編輯器；

5、選擇“Contains”項(xiàng)目，然后點(diǎn)擊“Add”按鈕；

6、 然后點(diǎn)擊“Browse...”按鈕，并選擇“Unit2.pas”；

7、現(xiàn)在包中應(yīng)該包含了“Unit2.pas”單元；

8、 最后保存并編譯包。

現(xiàn)在我們完成了這個包。在你的Project/BPL目錄中 應(yīng)該有一個名叫“package1.bpl”的文件。（BPL是Borland Package Library的縮寫，DCP是Delphi CompiledPackage 的縮寫。）

這個包已經(jīng)完成了。現(xiàn)在我們需要打開包選項(xiàng)開關(guān)

并重新編譯原先的應(yīng)用程序。

1、 在工程管理器中雙擊“Project1.exe”以選中 該工程；

2、 右擊并選擇“Options...”（你也可以從菜單中 選擇Project | Options...）；

3、 選中“Packages”選項(xiàng)頁；

4、 選中“Build with runtime packages” 檢查框；

5、 編輯“Runtime packages”編輯框：“Vcl50;Package1”，并點(diǎn)擊“OK”按鈕；

6、 注意：不要從應(yīng)用程序中移除Unit2；

7、 保存并運(yùn)行應(yīng)用程序。

應(yīng)用程序會象從前一樣運(yùn)行，不過區(qū)別可以從文件的大小上看出來。

Project1.exe現(xiàn)在只有14K大 小，而從前則是293K。如果你用資源瀏覽器查看EXE和BPL文件的內(nèi)容，你就會發(fā)現(xiàn)Form2的DFM和代碼現(xiàn)在都保存在包中。

Delphi在編譯期完成對包的靜態(tài)連接。（這就是為什么你不能從EXE工 程中移除Unit2。）

想想你可以由此得到什么：你可以在包中創(chuàng)建一個數(shù)據(jù)訪問模塊，并且在更改數(shù)據(jù)訪問規(guī)則時（比如從BDE連接轉(zhuǎn)為ADO連接），稍作修改并重新發(fā)布這個 包。或者，你可以在某個包中創(chuàng)建一個顯示“此選項(xiàng)在當(dāng)前版本中不可用”信息的窗體，然后在另一個同名的包中創(chuàng)建一個具有完整功能的窗體。現(xiàn)在我們不費(fèi)吹灰 之力就有了“Pro”和“Enterprise” 兩個版本的產(chǎn)品。

包的動態(tài)裝載和卸載

在大多數(shù)情況下，靜態(tài)連接的DLL或BPL已經(jīng)可以滿足要求了。但是如果我們不想發(fā)布BPL呢？ “在指定目錄中找不到動態(tài)鏈接庫Package1.bpl”，這是在應(yīng)用程序終止前，我們所能得到 的唯一消息。或者，在模塊化應(yīng)用程序程序中，我們是否可以使用任意數(shù)量的插件？

我們需要在運(yùn)行期動態(tài)連接到BPL。

對于DLL 來說，有一個簡單的方法，就是使用LoadLibrary函數(shù)：

function LoadLibrary(lpLibFileName: Pchar): HMODULE;stdcall;

裝載了DLL之后，我們可以使用GetProcAddress函數(shù)來調(diào)用DLL的導(dǎo)出函 數(shù)和方法：

function GetProcAddress(hModule: HMODULE; lpProcName:LPCSTR): FARPROC; stdcall;

最后，我們使用FreeLibrary卸載DLL：

function FreeLibrary(hLibModule: HMODULE): BOOL;stdcall;

下面這個例子中我們動態(tài)裝載Microsoft的HtmlHelp庫：

function TForm1.ApplicationEvents1Help(Command: Word; Data: Integer; var CallHelp: Boolean):Boolean;

type

TFNHtmlHelpA = function(hwndCaller: HWND; pszFile: PansiChar; uCommand: UINT;dwData: Dword): HWND; stdcall;

var

HelpModule: Hmodule;

HtmlHelp: TFNHtmlHelpA;

begin

Result := False;

HelpModule := LoadLibrary('HHCTRL.OCX');

if HelpModule <> 0 then

begin

@HtmlHelp := GetProcAddress(HelpModule, 'HtmlHelpA');

if @HtmlHelp <> nil then

Result := HtmlHelp(Application.Handle,Pchar(Application.HelpFile), Command,Data) <> 0;

FreeLibrary(HelpModule);

end;

CallHelp := False;

end;

動態(tài)裝載BPL

我們可以用同樣簡單的方法來對付BPL，或者應(yīng)該說基本上同 樣簡單。

我們可以使用LoadPackage函數(shù)動態(tài)裝載包：

function LoadPackage(const Name: string): HMODULE;

然后使用GetClass 函數(shù)創(chuàng)建一個TPersistentClass類型對象：

function GetClass(const AclassName: string):TPersistentClass;

完成所有操作后，使用UnLoadPackage(Module:HModule);

讓我們對原來的代碼作一些小小的改動：

1、 在工程管理器中選中“Project1.exe”；

2、 右擊之并選擇“Options...”；

3、 選中“Packages”選項(xiàng)頁；

4 、 從“Runtime packages”編輯框中移除“Package1”，并點(diǎn)擊OK按鈕；

5、 在Delphi的工具欄中，點(diǎn)擊“Remove file from project”按鈕；

6、 選擇“Unit2 | Form2”，并點(diǎn)擊OK；

7、 現(xiàn)在在“Unit1.pas”的源代碼中，從uses子句中移除Unit2；

8、 進(jìn)入Button1 的OnClick時間代碼中；

9、 添加兩個HModule和TPersistentClass類型的變量：

var

PackageModule: HModule;

AClass: TPersistentClass;

10、使用LoadPackage 函數(shù)裝載Pacakge1包：

PackageModule := LoadPackage('Package1.bpl');

11、檢查PackageModule是否為0；

12、使用GetClass函數(shù)創(chuàng)建一個持久類型：

AClass := GetClass('TForm2');

13、如果這個持久類型不為nil，我們就可以向從前

一樣創(chuàng)建并使用該類型的對象了：

with TComponentClass(AClass).Create(Application) as TcustomForm do

begin

ShowModal;

Free;

end;

14、最后，使用UnloadPackage 過程卸載包：

UnloadPackage(PackageModule);

15、保存工程。

下面是OnClick事件處理器的完整清單：

procedure TForm1.Button1Click(Sender: Tobject);

var

PackageModule: HModule;

AClass: TPersistentClass;

begin

PackageModule := LoadPackage('Package1.bpl');

if PackageModule <> 0 then

begin

AClass := GetClass('TForm2');

if AClass <> nil then

with TComponentClass(AClass).Create(Application) as TcustomForm do

begin

ShowModal;

Free;

end;

UnloadPackage(PackageModule);

end;

end;

不幸的是，并不是這樣就萬事大吉了。

問題在于，GetClass函數(shù)只能搜索到已經(jīng)注冊的類型。 通常在窗體中引用的窗體類和組件類會在窗體裝載時自動注冊。但是在我們的例子中，窗體無法提前裝載。那么我們在哪里注冊類型呢？答案是，在包中。包中的每 個單元都會在包裝載的時候初始化，并在包卸載時清理。

現(xiàn)在回到我們的例子中：

1、 在工程管理器雙擊“Package1.bpl”；

2、 點(diǎn)擊“Contains”部分“Unit2”旁的+號；

3、 雙擊“Unit2.pas”激活單元源代碼編輯器；

4、 在文件的最后加入initialization部分；

5、 使用RegisterClass過程注冊窗體的類型：

RegisterClass(TForm2);

6、 添加一個finalization部分；

7、 使用UnRegisterClass過程反注冊窗體的類 型：

UnRegisterClass(TForm2);

8、 最后，保存并編譯包。

現(xiàn)在我們可以安全的運(yùn)行“Project1”，它還會像從前 一樣工作，但是現(xiàn)在你可以隨心所欲的裝載包了。

尾聲

記住，無論你是靜態(tài)還是動態(tài)的使用包，都要打開Project | Options | Packages | Build with runtime packages 選項(xiàng)。

在你卸載一個包之前，記得銷毀所有該包中的類對象，并反注冊所有已注冊的類。下面的過程可能會對你有所幫助：

procedure DoUnloadPackage(Module: HModule);

var

i: Integer;

M: TMemoryBasicInformation;

begin

for i := Application.ComponentCount - 1 downto 0 do

begin

VirtualQuery(GetClass(Application.Components[i].ClassName), M, Sizeof(M));

if (Module = 0) or (HMODULE(M.AllocationBase) = Module) then

Application.Components[i].Free;

end;

UnregisterModuleClasses(Module);

UnloadPackage(Module);

end;

在裝載包之前，應(yīng)用程序需要知道所有已注冊類的名字。改善這一情況的方法是建立一個注冊機(jī)制，以便告訴應(yīng)用程序所有 由包注冊的類的名字。

實(shí)例

多重包：包不支持循環(huán)引用。也就是說，一個單元不能引用一個已經(jīng)引用了該單元的單元（嘿嘿）。這使得調(diào)用窗體中的某 些值難以由被調(diào)用的方法設(shè)置。

解決這個問題的方法是，創(chuàng)建一些額外的包，這些包同時由調(diào)用對象和包中的對象引用。設(shè)想一下我們?nèi)绾问笰pplication成為所有窗體的擁有者？變量Application創(chuàng) 建于Forms.pas 中，并包含在VCL50.bpl包 中。你大概注意到了你的應(yīng)用程序既要將VCL50.pas編譯進(jìn)來，也同時你的包也需要（require） VCL50。

在我們第三個例子中，我們設(shè)計(jì)一個應(yīng)用程序來顯示客戶信息，并且可根據(jù)需要（動態(tài)）顯示客戶訂單。

那么我們可以從哪里開始呢？像所有的數(shù)據(jù)庫應(yīng)用

程序一樣，我們需要連接。我們創(chuàng)建一個主數(shù)據(jù)模塊，包含一個TDataBase連 接。然后我們將這個數(shù)據(jù)模塊封裝在一個包中（cst_main）。

現(xiàn)在在應(yīng)用程序中，我們創(chuàng)建一個客戶窗體，并引用DataModuleMain（我 們靜態(tài)的鏈接VCL50 和cst_main）。

然后我們創(chuàng)建一個新的包（cst_ordr），包中包含客戶 訂單窗體，并require cst_main。現(xiàn)在我們可以在應(yīng)用程序中動態(tài)的裝載cst_ordr了。既然在動態(tài)包裝載以前主數(shù)據(jù)模塊已經(jīng)存在，cst_ordr就 可以直接使用應(yīng)用程序的主數(shù)據(jù)模塊實(shí)例了。

上圖是此應(yīng)用程序的功能示意圖：

可換包：包的另一個應(yīng)用實(shí)例是創(chuàng)建可更換包。實(shí)現(xiàn)這個功能并不需要包的動態(tài)裝載能力。假設(shè)我們要發(fā)布一個有時間限制 的試用版的程序，如何實(shí)現(xiàn)這一點(diǎn)呢？

首先我們創(chuàng)建一個“Splash”窗體，通常情況下是一幅帶 有“試用”字樣的圖片，并在應(yīng)用程序啟動的過程中顯示它。然后我們創(chuàng)建一個“About”窗體，提 供一些關(guān)于應(yīng)用程序的信息。最后，我們創(chuàng)建一個用于測試軟件是否過期的函數(shù)。我們把這兩個窗體和這個函數(shù)封裝到一個包中，并將它隨試用版軟件發(fā)布。

對于付費(fèi)版軟件，我們也創(chuàng)建一個“Splash”窗體和一個 “About”窗體——要和前面的兩個窗體類名相同——以及一個測試函數(shù)（什么也不做），并將它們 封裝到同名的包中。

什么什么？你問這有用么？好吧，我們可以公開的發(fā)布一個試用版軟件。如果某個客戶購買了該應(yīng)用程序，我們只需要發(fā)送 非試用版的包。這就大大簡化了軟件的發(fā)布過程，因?yàn)橹恍枰淮伟惭b和一次注冊包升級。