以Delphi Package架构多人开发应用程序环境
以Delphi Package架構多人開發(fā)應用程序環(huán)境
■印象中的Package
在一般的AP開發(fā)時，我們知道在Delphi7.0整合環(huán)境中將Project->Options->選到Packages卷標頁，Builder with runtime packages選項打勾，就會讓編譯出來的執(zhí)行文件Size變小很多(以空白的Form1為例，編譯出來的Size由367kb變成20kb)，因為它把一些VCL共享模塊的Loding放到*.bpl中；換句話說這個變小的EXE文件在執(zhí)行時是需要那些*.bpl的，而原本較大的執(zhí)行文件執(zhí)行時則不需要那些*.bpl，這樣看來其實只是換湯不換藥罷了。
這種編譯架構的差異有什么優(yōu)點？試想，如果Project1.exe&Project2.exe都不使用Builder with runtime packages選項，Project1.exe跟Project2.exe編譯出來的Size都是367kb，若有10個ProjectN.exe，則占用的Size將是全部exe加起來的總和，若是我們將其中共享的部分(如VCL共享模塊)獨立出來，每個EXE都將只有20K(以測試用的空白Form而言)，缺點則只有每個exe執(zhí)行時都要在系統(tǒng)搜尋路徑中找得到那些VCL的共享模塊(以*.bpl文件名存在)；所以這種架構適用于一個項目系統(tǒng)內有多個獨立執(zhí)行文件或獨立業(yè)務模塊存在的情況，多個執(zhí)行文件就可以分散給多個人去開發(fā)，也可依照應用程序不同的業(yè)務性質去區(qū)隔并分別設計。
將執(zhí)行文件分散開來開發(fā)，這種做法跟一個主執(zhí)行文件配合多個不同業(yè)務別的DLL開發(fā)沒有什么差別，而降低每支執(zhí)行文件的Size也只是Package最普通的應用；使用Package有一個更強大的優(yōu)點——可以共享變量，如果將數(shù)據(jù)模塊當成一個共享變量的觀念去看待，我們不用在每次啟動或關閉不同的子系統(tǒng)業(yè)務模塊時，重新連接或釋放數(shù)據(jù)庫的Connection。不過，要真正能共享數(shù)據(jù)庫模塊是需要每個業(yè)務模塊皆以*.bpl的方式存在，這也是實際應用上的狀況。
| 項目架構種類 | Package編譯方式 | 說明 |
| 類型一 Project0.exe(MIS主系統(tǒng)) Project1.exe(會計子系統(tǒng)) Project2.exe(人事子系統(tǒng)) Project3.exe(庫存子系統(tǒng)) | 所有EXE文件編譯選項 □Builder with runtime packages | 1.每個子系統(tǒng)都是完整獨立的EXE文件；每個EXE文件至少都有數(shù)百KB以上 |
| 類型二 Project0.exe(MIS主系統(tǒng)) Project1.exe(會計子系統(tǒng)) Project2.exe(人事子系統(tǒng)) Project3.exe(庫存子系統(tǒng)) | VCL共享模塊(*.bpl) 所有EXE文件編譯選項 ■Builder with runtime packages(打勾) | 1.每個子系統(tǒng)雖然都是EXE文件，但執(zhí)行時需要VCL的共享模塊存在；此種方式，每個EXE文件SIZE都只有幾十KB 2.此種架構只有節(jié)省檔案SIZE的優(yōu)點 |
| 類型三 Project0.exe(MIS主系統(tǒng)) Project1.bpl(會計子系統(tǒng)) Project2.bpl(人事子系統(tǒng)) Project3.bpl(庫存子系統(tǒng)) VCL共享模塊(*.bpl) DataMoudle(db.bpl) | 所有EXE文件編譯選項 ■Builder with runtime packages(打勾) | 1.將各子系統(tǒng)中共享的程序(如連接數(shù)據(jù)庫的模塊)獨立出來共享 2.除主系統(tǒng)外其余子系統(tǒng)皆為BPL型式存在 3.節(jié)省檔案SIZE外，并有共 用數(shù)據(jù)庫連結模塊的優(yōu)點 |
注：
1.MIS主系統(tǒng)(Project0.exe)可能只是一個選單(Menu)，用來當作啟動各子系統(tǒng)的Shell
2.VCL共享模塊(*.bpl)是Delphi在安裝時即安裝至C:\WINNT\SYSTEM32\中的那些*.bpl檔案，不管你EXE文件是否Builderwithruntimepackages，那些*.bpl早已存在，端看你要不要用它而已(Builderwithruntimepackages是否打勾)
3.當AP開發(fā)是以Builderwithruntimepackages(打勾)編譯時，RELEASE到客戶端同時也要將C:\WINNT\SYSTEM32\中的那些*.bpl檔案COPY到客戶端，因為客戶端沒有安裝Delphi，所以沒有那些VCL共享模塊(*.bpl)
4.BPL跟EXE一樣是可以“LOAD”其它的*.bpl；如Project1.bpl(會計子系統(tǒng))會”LOAD”VCL共享模塊(*.bpl)以及DataMoudle(db.bpl)
5.在類型三中，作為唯一的EXE文件，Project0.exe編譯時一定要Builderwithruntimepackages(打勾)，否則在動態(tài)加載其它子系統(tǒng)模塊時，會出現(xiàn)找不到類別的錯誤
■Package架構的優(yōu)缺點
使用Package的優(yōu)點：
1.類似DLL-應用程序可以被高度的模塊化
2.優(yōu)于DLL之處-可以共享變量
使用Package的缺點：
1.架構較復雜，需要花比較多的心思在模塊化的設計
2.需要程度較高的開發(fā)人員，若對package的使用不熟，容易出trouble
■哪些東西可以開發(fā)成為Package
前面講過，Package其實就是類似DLL的一種架構，但是是專門屬于Borland C++Builder/Delphi使用的一種DLL架構，舉凡有含F(xiàn)orm的Unit文件、無Form的Unit文件(如自己寫的函數(shù)庫)、組件等等，都可以編譯成為Package
■Package檔案的類型
|
| Package項目 | 相當于一般項目 | 相當于DLL項目 | |
| 編譯前 | *.DPK | Package項目文件 | DPR文件 | DPR文件 |
| *.PAS | PackageSource | PAS文件(Source) | PAS文件(Source) | |
| 編譯后(產(chǎn)出) | *.DCP | Package產(chǎn)出文件 | LIB文件 | |
| *.BPL | Package產(chǎn)出文件 | EXE文件 | DLL文件 | |
Package中的DCP文件，跟DLL項目的LIB文件類似，DCP是提供為靜態(tài)連結編譯之用(注意：只是靜態(tài)連結的“編譯過程”用之)，BPL則是直接提供為執(zhí)行環(huán)境之用；DCP只有在提供給別的EXE或BPL靜態(tài)連結的“編譯過程”中會用到，所以不用RELEASE到客戶端；在執(zhí)行環(huán)境中，Package不管是被靜態(tài)聯(lián)結或是動態(tài)連結使用，一律以BPL型式存在。
例如Project0.exe以“靜態(tài)連結”方式使用到Package1，Project0.exe在編譯時需要Package1.dcp的檔案存在，但編譯后分發(fā)到客戶端的檔案則為roject0.exe以及Package1.bpl(Package1.dcp不用release)，雖然它們之間是使用靜態(tài)連結(加載)…
如果Project0.exe以“動態(tài)連結”方式使用到Package1，Project0在編譯過程中根本不需要任何Package1的檔案，而分發(fā)到客戶端一樣仍然只有roject0.exe以及Package1.bpl。
■Package的載入(從EXE載入BPL的角度來看)
靜態(tài)加載–不管用得用不到，該*.dcp是一定都要加載的，也就是在exe項目選項中的Builder with runtime packages->Add加入，如Project0.exe(MIS主系統(tǒng))一定要加載VCL共享模塊(*.dcp)，否則無法產(chǎn)生GUI接口；所以就用靜態(tài)加載的方式加載它；靜態(tài)加載的*.dcp，是在編譯時就已決定的
動態(tài)加載–使用到時，才透過LoadPackage()這個API來呼叫，如Project0.exe(MIS主系統(tǒng))呼叫各個子系統(tǒng)的*.bpl，是透過Coding的方式去加載子系統(tǒng)的*.bpl，Project0.exe(MIS主系統(tǒng))并不需要在編譯時將所有子系統(tǒng)加載編譯
■Package的載入(從BPL載入BPL的角度來看)
靜態(tài)加載–放在Package項目之Requires區(qū)段中的*.dcp文件，反正是“一定要用到”的，不需要利用動態(tài)加載的就放在這兒
動態(tài)加載–跟EXE動態(tài)加載BPL方式相同，使用到時，才透過Coding方式利用LoadPackage()這個API來加載的
■Package項目的建立
在Delphi7.0整合環(huán)境中，主菜單->File->Close ALL關掉所有的Form及項目；然后再一次：主菜單->File->New->Other...->選擇Package，建立一個全新的Package項目
一個全新的Package應該是長的如下圖所示，分為兩個部分：Contains內放的是項目的主題，也就是我們要為這個Package開發(fā)的程序代碼；Require內放的是要“靜態(tài)連結” 的其它Package(*.dcp文件)，也就是不需要利用LoadPackage()這個API來加載(動態(tài)加載)的Package就放到Require中；rtl.dcp是系統(tǒng)內建就已Require的Package，應該是VCL之類的東西吧
接下來我們要開始設計項目內容，幫這個Package項目加入一個空白的Form，到Delphi主菜單->File->New->Form；我們再回到Project Manager看看在Contains區(qū)段是否多了Unit1(Form1)；前面說過，Contains內放的是項目的主題，也就是我們要為這個Package開發(fā)的程序代碼，接下來要在Form1中放什么組件，寫什么程序代碼，都跟一般的Form沒什么兩樣，只是若這個Form是寫在一般的項目中(Project1.dpr)它可以被編譯成EXE文件，而在Package項目中(Package1.dpk)，它只能被編譯成Package1.dcp(給別的項目靜態(tài)連結編譯時用)和Package1.bpl
Package1.dcp以及Package1.bpl這兩個編譯后的結果，Default是放到Delphi7.0目錄的.\Projects\Bpl\中；若要改變，請至Delphi主菜單->Project->Options(如下圖)，修改項目的輸出目錄路徑為目前路徑(.\)
還有，很重要的一點，在Package項目中的Form由于將來會被別人加載使用(不管被靜態(tài)或被動態(tài)加載)；它都需要先向系統(tǒng)注冊它的類別；所以在前面的例子中，將Unit1(Form1)開發(fā)好后，最后要在end.之前插入注冊(RegisterClass)/注銷(UnRegisterClass)的程序代碼，注冊內容就是自己的Form類別(如TForm1、TForm2等等)
| (其它程序代碼) ...... ...... initialization RegisterClass(TForm1); finalization UnRegisterClass(TForm1); end. |
■Package的應用限制
如果只是一個EXE文件附帶一個BPL文件，這種架構還算單純，但如果如文章開始所述：一個MIS主系統(tǒng)(Project0.exe)帶著多個子系統(tǒng)(*.bpl)，那會有什么限制發(fā)生呢？
1.各個Package(*.bpl)在開發(fā)過程中，彼此的Contains區(qū)段中不能有同名的Unit
2.共享的unit一定要放在package，也就是要把共享模塊變成Package
我們現(xiàn)在來想想，如果是我們來主導這個系統(tǒng)，我們會如何設計呢？
1.雖然各項子系統(tǒng)是各自獨立開發(fā)，甚至是交由不同的開發(fā)TEAM來完成，但為了接口的風格一致及操作統(tǒng)一(如Button的大小及位置)，我們會有一個共通的BaseForm的雛形，讓所有的子系統(tǒng)的主Form都由這個BaseForm繼承而來，這樣會讓子系統(tǒng)(Package)的Contains區(qū)段都會有一個共同uses的BaseForm.pas
2.為了程序代碼的一致性，也為了增加Coding速度，公司累積了程序代碼經(jīng)驗，可能會有一個公用副函數(shù)集MySub供各個子系統(tǒng)呼叫，這樣也會讓子系統(tǒng)(Package)的Contains區(qū)段都會有一個共同uses的MySub.pas
為了不讓BaseForm.pas及MySub.pas成為Package開發(fā)的限制瓶頸，所以我們要將BaseForm及MySub也變成Package(成為BaseForm.dcp及MySub.dcp)，然后讓各個子系統(tǒng)Package放在Requires中靜態(tài)連結編譯。
■Package的動態(tài)加載
前面已介紹了Package在靜態(tài)加載以及編譯的方法，現(xiàn)在要介紹Package應用的重頭戲-動態(tài)加載；一般來說，共通的副函數(shù)或共享分享的數(shù)據(jù)庫模塊以及共享的繼承樣板會先被制作成Package，然后被主程序(EXE文件)及各個子系統(tǒng)模塊(BPL文件)作為靜態(tài)連結之用；而整個系統(tǒng)開發(fā)的主角，也就是各個子系統(tǒng)模塊會被主程序或子系統(tǒng)模塊(BPL文件)間，當成動態(tài)加載的目標。
| var ModuleInstance1:HMODULE; {$R*.dfm} //--------------------------------------------------------------- //動態(tài)加載Package //--------------------------------------------------------------- procedureTForm0.Button1Click(Sender:TObject); begin ModuleInstance1:=LoadPackage('Package1.bpl'); end; //--------------------------------------------------------------- //將Package中的Form1帶出 //--------------------------------------------------------------- procedureTForm0.Button2Click(Sender:TObject); var frm : TcustomForm; begin frm :=CreateFormByClassName('TForm1'); try frm.ShowModal; finally frm.Release; end; end; //--------------------------------------------------------------- //釋放Package //--------------------------------------------------------------- procedureTForm0.Button3Click(Sender:TObject); begin UnloadAddInPackage(ModuleInstance1); end; |
注：
1.在上列的程序代碼中，加載Package的LoadPackage()是系統(tǒng)內建函數(shù)
2.帶出Package中的Form資源或是釋放Package的函數(shù)由于要多做一些處理，所以把它包在CreateFormByClassName()以及UnloadAddInPackage()兩個自訂函數(shù)中
| //--------------------------------------------------------------- //自訂函數(shù)–CreateFormByClassName(),建立Form //--------------------------------------------------------------- Function TForm0.CreateFormByClassName(const ClassName:string) : TCustomForm; var AClass:TPersistentClass; begin AClass:=GetClass(ClassName); If AClass=nil then exit; Result:=TComponentClass(AClass).Create(Application) as TCustomForm; //或Result:=TCustomForm(TComponentClass(AClass).Create(Application)); end; //--------------------------------------------------------------- //自訂函數(shù)–CreateDataModuleByClassName(),建立數(shù)據(jù)模塊 //--------------------------------------------------------------- Function TForm0.CreateDataModuleByClassName(const ClassName: string):TDataModule; var AClass:TPersistentClass; begin Result:=nil; AClass:=GetClass(ClassName); If AClass=nil then exit; Result:=TComponentClass(AClass).Create(Application) as TDataModule; end; //--------------------------------------------------------------- //自訂函數(shù)–UnloadAddInPackage(),釋放Package //--------------------------------------------------------------- Procedure TForm0.UnloadAddInPackage(ModuleInstance: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 (ModuleInstance=0) or (HMODULE(M.AllocationBase)=ModuleInstance) then Application.Components[i].Free; end; //下面這兩個函數(shù)應該是只要取其中一個呼叫即可 UnRegisterModuleClasses(ModuleInstance);//直接注銷Package UnloadPackage(ModuleInstance);//間接注銷,呼叫Package中的finalization區(qū)段 end; |
■完整的Package項目架構范例
| 子系統(tǒng)名稱 | 內部主要對象 | 補充說明 |
| Project0.exe(MIS主系統(tǒng)) | Form0(Unit0.pas) | 整個項目中唯一的EXE文件Project的Option選項要設 ■Builderwithruntimepackages并加入BaseForm,MySub兩個DCP (靜態(tài)連結) |
| Package1.bpl(會計子系統(tǒng)) | Form1(Unit1.pas) | Requires區(qū)段要加入 BaseForm,MySub兩個DCP (靜態(tài)連結) |
| Package2.bpl(人事子系統(tǒng)) | Form2(Unit2.pas) | Requires區(qū)段要加入 BaseForm,MySub兩個DCP (靜態(tài)連結) |
| Package3.bpl(庫存子系統(tǒng)) | Form3(Unit3.pas) | Requires區(qū)段要加入 BaseForm,MySub兩個DCP (靜態(tài)連結) |
| MySub.bpl共享函數(shù)庫 | 無,只有函數(shù)程序代碼 MySub2003.pas | 并提供MySub.dcp供其它系統(tǒng)靜態(tài)連結之用 |
| BaseForm.bpl共享繼承Form雛形 | FormBase (UnitFormBase.pas) | 并提供BaseForm.dcp供其它系統(tǒng)靜態(tài)連結之用 |
注：在此仍不厭其煩的提醒：每個Package的Source最后都要在end.之前插入注冊(RegisterClass)/注銷(UnRegisterClass)自己類別的程序代碼
□Project0.exe(MIS主系統(tǒng))
注：不管這個唯一的EXE主程序是否需要加入自訂的共享模塊(如本例的BaseForm,MySub兩個DCP)，沒有的話，它仍然要將Builder with runtime packages打勾(就算只有使用那些系統(tǒng)內定的VCL、DCP)，否則這個EXE文件執(zhí)行后會無法動態(tài)加載其它的子系統(tǒng)模塊，會出現(xiàn)找不到類別的錯誤，這個問題我花了一整個下午才找到問題原來在這里；但我不知原因是否為Delphi Bug；因為在我的認知，若不使用自訂的共享模塊(有的話也是放到靜態(tài)鏈接中)，主程式跟其它的子系統(tǒng)間則只有動態(tài)加載的關系，那靜態(tài)鏈接則只有決定是否要將系統(tǒng)的VCL靜態(tài)鏈接進來的問題；Builder with runtime packages打不打勾，單純也只決定跟系統(tǒng)VCL間的關系，為何會影響其它子系統(tǒng)的動態(tài)加載??我不愿就看圖說故事或湊答案的方式來牽強解釋這個問題原因….只有推論為Delphi bug
□Package1.bpl(會計子系統(tǒng))
□Package2.bpl(人事子系統(tǒng))
□Package3.bpl(庫存子系統(tǒng))
(略，以上類推)
注：
1.在Requires區(qū)段(靜態(tài)連結)中，除了手動加入的BaseForm,MySub兩個DCP外，其它DCP是由系統(tǒng)自動加入的，不用理會它
2.Package的Contains區(qū)段中，彼此間不能有相同名稱的Unit，也就是說Package2中的Unit不能跟Package1中一樣也叫Unit1(要改名如Unit2或其它)
□MySub.bpl共享函數(shù)庫(無Form，只有函數(shù)庫的程序代碼MySub2003.pas)
□BaseForm.bpl共享繼承Form雛形
■Package項目的測試環(huán)境
Package在測試及除錯上由于BPL不能直接執(zhí)行驗證結果，所以在開發(fā)中的測試是個問題；不過前面說過，除了項目文件架構不同外，Source開發(fā)式和一般Project項目是沒什么兩樣的，以前面介紹過的Package1.bpl(會計子系統(tǒng))為例，我們來看一下如何開發(fā)及測試
1.建立一標準可編譯成EXE的Project1.dpr項目，加入Unit1(Form1)，將項目寫好后直接編譯為EXE文件測試
2.當測試好后沒問題，新開啟一Package項目叫做Package1.dpk，將Contains區(qū)段納入剛才開發(fā)的Project1.dpr項目中的Unit1(Form1)；此時重新編譯，會計子系統(tǒng)就變成一個BPL而不是EXE文件了
3.以后要修改會計子系統(tǒng)，就利用Project1.dpr項目來編譯成EXE測試，再用Package1.dpk項目來編譯成BPL
■Package項目網(wǎng)狀加載問題
在先前介紹的系統(tǒng)中，各個子系統(tǒng)理應由Project0.exe(MIS主系統(tǒng))這個唯一的EXE文件來切換進入或退出各子系統(tǒng)的時機；但是我們在實際的應用中，也可能發(fā)生直接由Package1.bpl(會計子系統(tǒng))加載(跳到)Package3.bpl(庫存子系統(tǒng))的情況(記得BPL也是可以加載BPL的吧?)，整個系統(tǒng)RUN過一段時間后，誰加載誰，或誰已被退出，已經(jīng)不是很清楚了，若此時突然有個快捷方式直接回主程序中并結束程序，我們要能保證所有曾經(jīng)被加載的BPL都要被全部完全釋放干凈；如果動態(tài)加載其它BPL的LoadPackage()函數(shù)是分散在各子系統(tǒng)中(人人都可以加載其它的BPL)，我們如何去統(tǒng)一管理那些PackageHandle變量呢(HMODULE)?所以理想的方法是將加載BPL的動作統(tǒng)一放在共同函數(shù)庫(如MySub中)，主程序或各個子系統(tǒng)要加載或釋放BPL都透過在共通函數(shù)庫中包裝好的Package載入或釋放函數(shù),該函數(shù)內部有List數(shù)組來記錄管理所有的PackageHandle的消長情況；參考資料“DelphiPackage學習筆記”及“DelphiPackage無痛使用”中有個寫好的共享函數(shù)庫，叫做PkgUtils.pas，您可以把它里面的函數(shù)合并到您公司開發(fā)的共享函數(shù)庫中(如MySub中)，所有主程序或各個子系統(tǒng)的Package加載/釋放動作都透過這個公用函數(shù)庫包裝的函數(shù)去執(zhí)行動作。
總結
以上是生活随笔為你收集整理的以Delphi Package架构多人开发应用程序环境的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 代码中有的《飞秋》只是一个照面
- 下一篇： 加快vs2010的启动速度