http://www.cnblogs.com/gxch/archive/2011/04/23/bpl.html
爲什麼要使用包？
答案很簡單：因爲包的功能強大。設計期包（design-time package）簡化了自定義組件的發佈和安裝；而運行期包（run-time package）則更是給傳統的程序設計注入了新鮮的力量。一旦把可重用的代碼編譯爲運行期庫中，你就可以在多個應用程序中共享它們。所有應用程序都可以通過包訪問標準組件，Delphi自己就是這麼幹的。因爲應用程序不必在可執行文件中單獨複製一份組件庫，這樣就大大節省了系統資源和磁盤空間。此外，包還可以減少花費在編譯上的時間，因爲你只需編譯應用程序特有的代碼。
如果可以動態的使用包，那麼我們還可以獲得更多的好處。包提供了一種新穎的模塊化方法來開發應用程序。有些時候你也許想把某些模塊作爲應用程序的可選部件，例如一個記帳系統附帶一個可選的HR模塊。某些情況下，你只需安裝基本的應用程序，而在另外一些情況下你就可能需要額外安裝HR模塊。這種模塊化的方法可以通過包技術很容易的實現。在過去，這隻能通過動態裝載DLL實現，但是使用Delphi的包技術，你就可以把應用程序的各個模塊類型分別打“包”成捆。特別是從包中創建的類對象則屬於應用程序所有，因此可以與應用程序中的對象交互。
運行期包與應用程序
許多開發者只把Delphi包看作放組件的地方，事實上包可以（而且也應該）應用於模塊化應用程序設計。
爲了演示如何用包來模塊化你的應用程序，我們創建一個例子：
1、 新建一個具有兩個窗體的Delphi程序：Form1和Form2；
2、 將Form2從自動創建窗體列表中移除（Project |Options | Forms）；
3、 在Form1上放一個按鈕，並且在按鈕的OnClick事件處理器中輸入如下代碼：
with TForm2.Create(Application) do
begin
ShowModal;
Free;
End;
4、記住添加Unit2到Unit1的uses子句中；
5、 保存並運行工程。
我們創建了一個簡單的應用程序，它顯示一個帶按鈕的窗體，點擊這個按鈕則會創建並顯示出另一個窗體。
但是如果想將上述例子中的Form2包含在一個可重用模塊中，並使它依然可以正常工作，我們該怎麼辦呢？
答案是：包！
要爲Form2創建包需要以下工作：
1、 打開工程管理器（View | Project Manager）；
2 、右擊Project Group，選擇“Add NewProject...”；
3、在“New”項目列表中選擇“Package”；
4、 現在你應該可以見到包編輯器；
5、選擇“Contains”項目，然後點擊“Add”按鈕；
6、 然後點擊“Browse...”按鈕，並選擇“Unit2.pas”；
7、現在包中應該包含了“Unit2.pas”單元；
8、 最後保存並編譯包。
現在我們完成了這個包。在你的Project\BPL目錄中應該有一個名叫“package1.bpl”的文件。（BPL是Borland Package Library的縮寫，DCP是Delphi CompiledPackage 的縮寫。）
這個包已經完成了。現在我們需要打開包選項開關
並重新編譯原先的應用程序。
1、 在工程管理器中雙擊“Project1.exe”以選中該工程；
2、 右擊並選擇“Options...”（你也可以從菜單中選擇Project | Options...）；
3、 選中“Packages”選項頁；
4、 選中“Build with runtime packages”檢查框；
5、 編輯“Runtime packages”編輯框：“Vcl50;Package1”，並點擊“OK”按鈕；
6、 注意：不要從應用程序中移除Unit2；
7、 保存並運行應用程序。
應用程序會象從前一樣運行，不過區別可以從文件的大小上看出來。
Project1.exe現在只有14K大小，而從前則是293K。如果你用資源瀏覽器查看EXE和BPL文件的內容，你就會發現Form2的DFM和代碼現在都保存在包中。
Delphi在編譯期完成對包的靜態連接。（這就是爲什麼你不能從EXE工程中移除Unit2。）
想想你可以由此得到什麼：你可以在包中創建一個數據訪問模塊，並且在更改數據訪問規則時（比如從BDE連接轉爲ADO連接），稍作修改並重新發布這個包。或者，你可以在某個包中創建一個顯示“此選項在當前版本中不可用”信息的窗體，然後在另一個同名的包中創建一個具有完整功能的窗體。現在我們不費吹灰之力就有了“Pro”和“Enterprise”兩個版本的產品。
包的動態裝載和卸載
在大多數情況下，靜態連接的DLL或BPL已經可以滿足要求了。但是如果我們不想發佈BPL呢？“在指定目錄中找不到動態鏈接庫Package1.bpl”，這是在應用程序終止前，我們所能得到的唯一消息。或者，在模塊化應用程序程序中，我們是否可以使用任意數量的插件？
我們需要在運行期動態連接到BPL。
對於DLL 來說，有一個簡單的方法，就是使用LoadLibrary函數：
function LoadLibrary(lpLibFileName: Pchar): HMODULE;stdcall;
裝載了DLL之後，我們可以使用GetProcAddress函數來調用DLL的導出函數和方法：
function GetProcAddress(hModule: HMODULE; lpProcName:LPCSTR): FARPROC; stdcall;
最後，我們使用FreeLibrary卸載DLL：
function FreeLibrary(hLibModule: HMODULE): BOOL;stdcall;
下面這個例子中我們動態裝載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;
動態裝載BPL
我們可以用同樣簡單的方法來對付BPL，或者應該說基本上同樣簡單。
我們可以使用LoadPackage函數動態裝載包：
function LoadPackage(const Name: string): HMODULE;
然後使用GetClass 函數創建一個TPersistentClass類型對象：
function GetClass(const AclassName: string):TPersistentClass;
完成所有操作後，使用UnLoadPackage(Module:HModule);
讓我們對原來的代碼作一些小小的改動：
1、 在工程管理器中選中“Project1.exe”；
2、 右擊之並選擇“Options...”；
3、 選中“Packages”選項頁；
4 、 從“Runtime packages”編輯框中移除“Package1”，並點擊OK按鈕；
5、 在Delphi的工具欄中，點擊“Remove file from project”按鈕；
6、 選擇“Unit2 | Form2”，並點擊OK；
7、 現在在“Unit1.pas”的源代碼中，從uses子句中移除Unit2；
8、 進入Button1 的OnClick時間代碼中；
9、 添加兩個HModule和TPersistentClass類型的變量：
var
PackageModule: HModule;
AClass: TPersistentClass;
10、使用LoadPackage 函數裝載Pacakge1包：
PackageModule := LoadPackage('Package1.bpl');
11、檢查PackageModule是否爲0；
12、使用GetClass函數創建一個持久類型：
AClass := GetClass('TForm2');
13、如果這個持久類型不爲nil，我們就可以向從前
一樣創建並使用該類型的對象了：
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函數只能搜索到已經註冊的類型。通常在窗體中引用的窗體類和組件類會在窗體裝載時自動註冊。但是在我們的例子中，窗體無法提前裝載。那麼我們在哪裏註冊類型呢？答案是，在包中。包中的每個單元都會在包裝載的時候初始化，並在包卸載時清理。
現在回到我們的例子中：
1、 在工程管理器雙擊“Package1.bpl”；
2、 點擊“Contains”部分“Unit2”旁的+號；
3、 雙擊“Unit2.pas”激活單元源代碼編輯器；
4、 在文件的最後加入initialization部分；
5、 使用RegisterClass過程註冊窗體的類型：
RegisterClass(TForm2);
6、 添加一個finalization部分；
7、 使用UnRegisterClass過程反註冊窗體的類型：
UnRegisterClass(TForm2);
8、 最後，保存並編譯包。
現在我們可以安全的運行“Project1”，它還會像從前一樣工作，但是現在你可以隨心所欲的裝載包了。
尾聲
記住，無論你是靜態還是動態的使用包，都要打開Project | Options | Packages | Build with runtime packages 選項。
在你卸載一個包之前，記得銷燬所有該包中的類對象，並反註冊所有已註冊的類。下面的過程可能會對你有所幫助：
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;
在裝載包之前，應用程序需要知道所有已註冊類的名字。改善這一情況的方法是建立一個註冊機制，以便告訴應用程序所有由包註冊的類的名字。
實例
多重包：包不支持循環引用。也就是說，一個單元不能引用一個已經引用了該單元的單元（嘿嘿）。這使得調用窗體中的某些值難以由被調用的方法設置。
解決這個問題的方法是，創建一些額外的包，這些包同時由調用對象和包中的對象引用。設想一下我們如何使Application成爲所有窗體的擁有者？變量Application創建於Forms.pas 中，幷包含在VCL50.bpl包中。你大概注意到了你的應用程序既要將VCL50.pas編譯進來，也同時你的包也需要（require） VCL50。
在我們第三個例子中，我們設計一個應用程序來顯示客戶信息，並且可根據需要（動態）顯示客戶訂單。
那麼我們可以從哪裏開始呢？像所有的數據庫應用
程序一樣，我們需要連接。我們創建一個主數據模塊，包含一個TDataBase連接。然後我們將這個數據模塊封裝在一個包中（cst_main）。
現在在應用程序中，我們創建一個客戶窗體，並引用DataModuleMain（我們靜態的鏈接VCL50 和cst_main）。
然後我們創建一個新的包（cst_ordr），包中包含客戶訂單窗體，並require cst_main。現在我們可以在應用程序中動態的裝載cst_ordr了。既然在動態包裝載以前主數據模塊已經存在，cst_ordr就可以直接使用應用程序的主數據模塊實例了。
上圖是此應用程序的功能示意圖：
可換包：包的另一個應用實例是創建可更換包。實現這個功能並不需要包的動態裝載能力。假設我們要發佈一個有時間限制的試用版的程序，如何實現這一點呢？
首先我們創建一個“Splash”窗體，通常情況下是一幅帶有“試用”字樣的圖片，並在應用程序啓動的過程中顯示它。然後我們創建一個“About”窗體，提供一些關於應用程序的信息。最後，我們創建一個用於測試軟件是否過期的函數。我們把這兩個窗體和這個函數封裝到一個包中，並將它隨試用版軟件發佈。
對於付費版軟件，我們也創建一個“Splash”窗體和一個“About”窗體——要和前面的兩個窗體類名相同——以及一個測試函數（什麼也不做），並將它們封裝到同名的包中。
什麼什麼？你問這有用麼？好吧，我們可以公開的發佈一個試用版軟件。如果某個客戶購買了該應用程序，我們只需要發送非試用版的包。這就大大簡化了軟件的發佈過程，因爲只需要一次安裝和一次註冊包升級。
包爲Delphi和C++ Builder開發社羣打開了另一扇通往模塊化設計的大門。通過包你不再需要到處傳遞窗體句柄，不再需要回調函數，不再需要其它DLL技術。由此也縮短了模塊化程序設計的開發週期。我們所要做的僅僅是讓Delphi的包爲我們工作。