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;