从独立应用程序加载运行时包

Question

我想与您确认一个问题。

场景如下。我们有两个系统。一个旧的，它是一个独立的可执行文件，另一个是全新的，带有包的模块化。

是否可以在独立应用程序中动态加载包？

需要在我的旧应用程序中加载具有表单并显示的包。

在我的测试中，问题是独立应用程序表单类中的加载包为零。

下面的代码说明了这种情况：

Procedure TForm3.LoadPackageTest;
Const
  CClass = 'TAboutBox';

Var
  phm: HModule;
  LFormClass: TPersistentClass;
  LForm: TCustomForm;

Begin
  phm := LoadPackage('C:\_Dev\MyProjTest\forminbpl\BPLS\TestPack.bpl');

  If phm <> 0 Then
    Try

      //the problem!!!
      //In StandAlone application, not found class.
      LFormClass := TPersistentClass(GetClass(CClass));


      If Assigned(LFormClass) Then
      Begin
        LForm := TCustomForm(TComponentClass(LFormClass).Create(Nil));
        LForm.ShowModal;
        LForm.Free;
      End;

    Finally
      UnloadPackage(phm);
    End
  Else
    ShowMessage('Package not found');
End;

感激不尽。

Answer 1

是否可以在独立应用程序中动态加载包？

是的。您需要遵守运行时包的规则。具体来说，所有包和主机可执行文件都使用相同版本的 Delphi 编译，并且都使用运行时包。为了能够从主机使用GetClass，您需要在包中调用RegisterClass。这篇文章似乎包含所有必要的细节：http://edn.embarcadero.com/cn/article/27178

至于您是否能够展示您的表单，这完全取决于您是否正确设计了独立的包裹。

---

在 cmets 中添加关键细节。您希望在没有运行时包的情况下构建独立应用程序。你不能这样做。如果你想以这种方式使用运行时包，为了有一个单一的共享类注册表，那么各方都必须使用运行时包。