5

我有一个应用程序可以加载一个简单表单中的 BPL。

此表单是主应用程序的可选选项。

BPL 正确加载，表单正确显示，但我不知道如何访问 bpl 中表单的公共方法和属性。

谁能提供一个简单的例子？

我的代码：

// Load the BPL on aplication Load
LoadPackage( 'About.bpl' );

// CAll for TForm1 inside the About.BPL
var
  AClass: TClass;
  AForm: TForm;
begin

    AClass := GetClass('TForm1');
    if AClass <> nil then
  begin
        Application.CreateForm(TComponentClass(AClass), AForm);
        AForm.Show;
    end;

// The unit TForm1 inside the BPL package
unit Unit1;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

type
    TForm1 = class(TForm)
        Button1: TButton;
        Label1: TLabel;
        procedure Button1Click(Sender: TObject);
    private
        { Private declarations }
    public
        { Public declarations }
        PublicMthd;
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.PublicMthd;
Begin
    ShowMessage('Inside call');
End;

initialization
    RegisterClass(TForm1);

finalization
    UnRegisterClass(TForm1);

end.

如何在 Tform1 中访问“PublicMthd”？

4

2 回答 2

10

在动态加载的 bpl 中使用 TOptionalForm 的好处之一（假设这是“可选”位））是避免您的应用程序专门保存 TOptionalForm 类的定义（它位于包中包含的单元中，并且仅存在）。

这意味着您的应用程序对它一无所知，除非您使用以下任何一种：
- 共享基类
- 声明要访问的属性和方法的接口
- 一些用于访问已发布属性和方法的基本 RTTI
- 一些用于访问公共属性的扩展 RTTI和方法（如果您有 D2010 或更高版本）
- 来自 bpl 的一些外部例程接受基类参数（或 TObject/指针），在内部将其类型转换为 TOptionalForm。

这是非常模糊和笼统的，需要对您的代码进行更精确的改进...

于 2011-12-19T08:04:08.040 回答
2

如果您需要动态加载 BPL，您应该使用 - 正如 François 已经提到的：

  • 一个抽象类（更像 Delphi 或）
  • 一个界面（我认为它更干净并且有更好的体验）

放置在主应用程序和表单 BPL 都使用的仅接口单元中。

我使用中间的“合同/接口”BPL，主应用程序和动态加载的应用程序都静态使用。

在接口使用的情况下，还可以查看$WEAKPACKAGEUNIT指令以进一步将 BPL 与应用程序解耦。

要评论评论 - 通过使用 DLL 导出或 RTTI，您基本上会绕过 BPL 的全部要点，即类型和命名空间共享。

于 2011-12-27T12:24:42.857 回答