0

我试图用 XE2 实现一个简单的模块系统，但无法让它工作。当我尝试在 IDE 下运行它时，我可以从中获取句柄，LoadPackage()但无法获取该类GetClass()（即使它在 BPL 的初始化部分中是 RegisterClass()ed）。当我尝试在 Windows 下运行它时，我收到“此应用程序无法启动，因为未找到 rtl160.bpl”错误，甚至无法加载包。

模块代码

type
  TfrModule = class(TFrame)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TfrModule.Button1Click(Sender: TObject);
begin
  ShowMessage('Hello');
end;

initialization
  RegisterClass(TfrModule);
  ShowMessage('Registered');

finalization
  UnregisterClass(TfrModule);
  ShowMessage('Unregistered');

此外，初始化部分没有被执行，因为我没有看到“已注册”消息框。

主机应用程序是这样的；

var
  hMod: HModule;
  fcMod: TPersistentClass;
  frMod: TFrame;

procedure TForm4.Button1Click(Sender: TObject);
begin
  hMod := LoadPackage('Module.bpl');
  if (hMod = 0) then Exit;

  fcMod := GetClass('TfrModule');
  if Assigned(fcMod) then
  begin
    frMod := TFrame(fcMod.Create);
    frMod.Parent := Panel1;
  end;
end;

主机应用程序与运行时包链接 True。模块没有运行时包选项。

另一个问题。我在网上看到了这个基本示例，但我计划添加更多类似的模块，如果我在初始化时尝试RegisterClass()第二个模块的 TfrModule 类会发生什么？如果我需要为每个模块指定不同的名称，那么无论如何模块都没有意义。我的意思是，如果主机必须确切知道模块的类是什么样的。

4

1 回答 1

0

这里一切正常。宿主应用程序仅使用运行时包 vcl 和 rtl。该模块还需要 rtl 和 vcl 包。这些包也必须被部署。我看到一个“已注册”消息框，并且 GetClass 函数也被成功调用...

于 2011-10-08T21:18:05.967 回答