Bpl包技術

在包中可以有很多表單及很多函數,但要所有可以給外部調用的進行Exports。

exports
  doShowForm;

function doShowForm;
begin
    Fmwindow:=TForm.Create(Application);
    Fmwindow.Show;
end;

注意：如果某個PAS在很多BPL和主程式都共用的，則可以把它包成一個BPL檔案，這樣使用才不會出現已經另一個包中被使用。

在外部可執行程式中，工程選項設定運行時包：vcl;rtl;dbrtl;adortl;vcldb(主要的)，如果在開發中用到了第三方控制項，可能這裡會要加一些三方的。

包的調用樣本
var
PackageModule:HModule;

function doShowForm;
type
  TdoShowForm= function();
var
  doShowForm: TdoShowForm;
begin
  PackageModule := LoadPackage('bplXXX.bpl');
  if PackageModule <> 0 then
  try
    @doShowForm:= GetProcAddress(PackageModule, doShowForm);
    if Assigned(doStockAdjust) then
    begin
       doShowForm;
    end;
  except
      if PackageModule <> 0 then UnloadPackage(PackageModule);
  end;
end;