無痛使用Delphi Package

喜歡站在山上 2021-01-21

展開全文

Package的優(yōu)點

應(yīng)用程序可以被高度的模塊化，而且可以逐漸交付完成的功能給客戶
維護方便，可以只更新單一的模塊功能
提升程序的載入速度

Package的缺點

有些情形下使用Package只能間接參考的方式取得資料(變量, 類 …).
Package Name 不能重復(fù).
Contains 中的 Unit Name 不能在所有的Package中重復(fù)出現(xiàn)，只能出現(xiàn)一次
PackageA有使用到PackageB必需要在Requires中引用但是PackageA及PackageB不能彼此循環(huán)引用.

Package種類

當用戶運行應(yīng)用程序時，運行時程序包提供功能。設(shè)計時程序包用于在IDE中安裝組件并為自定義組件創(chuàng)建特殊的屬性編輯器。單個包可以在設(shè)計時和運行時均起作用，并且設(shè)計時包經(jīng)常通過在其require子句中引用運行時包來工作。

設(shè)計期包（Designtime only） -用來在DELPHI的IDE環(huán)境安裝控件和為控件建立特殊的屬性編輯器。設(shè)計期包允許包含控件、屬性和控件編輯器等等，
運行期包（Runtime only）-當運行程序時提供VCL和庫函數(shù)的支持，操作上很類似標準的動態(tài)鏈接庫。Install按鈕無法使用。
設(shè)計和運行期包（Designtime and Runtime ）：設(shè)計與運行時都能用

Package文件說明

BPL 英文全稱 Borland Package library ，是一種特殊的DLL文件，用于代碼重用和減少可執(zhí)行文件。編譯bpl時，僅需要添加相應(yīng)功能的pas文件，如果有窗體，則需要添加dfm文件。既然是DLL文件，那就是在運行時所需要的文件。BPL相當于C++中的DLL

DCP 英文全稱：delphi compiled package，是 package 編譯時跟 bpl 一起產(chǎn)生出來的，記錄著 package 中公開的 class、procedure、function、variable、const.... 等等的名稱和相對位置。如果某個控件包 A 引用了控件包 B，當控件包 A 編譯時，需要控件包 B.dcp，若控件包 B 有修改，更改了公開的界面，則控件包 A 必須在控件包 B 編譯之后重新編譯，以引用新的 B.dcp。否則，當控件包 A 執(zhí)行時，執(zhí)行到引用自控件包 B 的內(nèi)容時，就會出現(xiàn)錯誤。DCP相當于C++中的Lib，編譯時需要。

DCU 英文全稱：Delphi Compiled Unit File，是delphi單元文件.pas文件編譯后產(chǎn)生的文件，感覺沒有太大用處。

Package加載方式

Package中的代碼

unit Unit2;interfaceuses Vcl.Dialogs;//函數(shù)案例function add(Num1, Num2: Integer): Integer; stdcall;//過程案例procedure ShowMsg(Str: String); stdcall;type//類的案例  TUser = class  public    function ShowString(): string;  end;  // 需要像DLL一樣聲明導(dǎo)出函數(shù)的列表，如果是靜態(tài)導(dǎo)入此項可以省略exports add, ShowMsg;implementationprocedure ShowMsg(Str: String);begin  showmessage(Str);end;function add(Num1, Num2: Integer): Integer;begin  Result := Num1 + Num2;end;{ TUser }function TUser.ShowString: string;begin  Result := 'HelloWorld';end;end.

靜態(tài)加載

一般大家在用Delphi時都是使用『靜態(tài)載入』, 像VCL的Package就是這種方式, 這種方式的好處是設(shè)計者不用去理會Package 的載入和釋放, 其實設(shè)計者根本感覺不到設(shè)用這項技術(shù); 當然也可以手動將Package加入到項目中『project->Options->Packages->Build with runtime packages中加入Package Name彼此的分隔符是分號』

動態(tài)載入代碼

基本上是無痛使用，只要路徑配置沒有問題，基本上和使用普通單元沒有區(qū)別

implementationuses  Unit2, Unit3;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin  showmessage(TUser.create().showString());  var  From3 := TForm3.create(nil);  From3.visible := true;end;

動態(tài)加載

動態(tài)加載和靜態(tài)加載相反，無論是載入還是釋放都要自己來處理，看起來好像是動態(tài)載入,這種方式個人感覺相當麻煩，雖然本質(zhì)上和dll的動態(tài)加載一樣，但是因為在導(dǎo)入的元素中多了類的概念，所以還需要使用反射的方式創(chuàng)建類的對象才能實現(xiàn)類成員的引用

implementationuses rtti, System.StrUtils;{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);var  // 聲明和Package導(dǎo)出列表中一致結(jié)構(gòu)的過程  add01: procedure(Msg: String); stdcall;  // 聲明和Package導(dǎo)出列表中一致結(jié)構(gòu)的函數(shù)  add02: function(Num1: Integer; Num2: Integer): Integer; stdcall;begin  // 載入bpl格式的Package  var  PackageHandle := LoadPackage('Package1.bpl');  if PackageHandle <> 0 then  begin    // 載入成功之后獲取對應(yīng)函數(shù)、過程的指針    @add01 := GetProcAddress(PackageHandle, 'ShowMsg');    @add02 := GetProcAddress(PackageHandle, 'add');    if @add01 <> nil then    begin      // 調(diào)用      add01('HelloWorld');      showmessage(add02(1, 2).Tostring);    end;  end;  // 對于類我們需要先創(chuàng)建類的對象然后才可以實現(xiàn)類中函數(shù)的調(diào)用  var    // 創(chuàng)建運行期上下問對象  rc := TRttiContext.create;  var    // 載入對應(yīng)單元中的類，注意此處需要寫單元名+類名  ClassType := rc.FindType('Unit2.TUser');  var    // 獲取元類實例(對象)  Instance := ClassType.AsInstance;  var    // 獲取該實例的元信息類型  QRClass := Instance.MetaclassType;  var    // 獲取用于創(chuàng)建TUser類型的構(gòu)造方法  CreateMethod := Instance.GetMethod('Create');  var    // 利用獲取到的構(gòu)造方法對象，創(chuàng)建TUser類對象  User := CreateMethod.Invoke(QRClass, []);  var    // 函數(shù)調(diào)用  rs := ClassType.GetMethod('ShowString').Invoke(User, []);  // 顯示返回值  showmessage(rs.asstring);  //卸載包  UnloadPackage(PackageHandle);end;

從上面動態(tài)加載的代碼可以看出涉及到反射相關(guān)的知識，個人感覺這種方式在使用起來不太方便，當然如果對反射比較熟悉的話那就沒問題了

動態(tài)載入?yún)⒖即a

我在搜索Package相關(guān)內(nèi)容的使用看到下面這段代碼，它也可以實現(xiàn)創(chuàng)建類的對象，只是中間出現(xiàn)的類型的強制轉(zhuǎn)換，個人不是特別推薦，只是記錄一下作為筆記參考

function CreateFormByClassName(ClassName: string): integer;var  AClass: TPersistentClass;  AForm: TCustomForm;begin  Result := mrNone;  AClass := GetClass(ClassName);  if AClass <> nil then  begin    AForm := TComponentClass(AClass).Create(Application) as TCustomForm;    Result := AForm.ShowModal;  end;