使用 BPL 加载 Delphi 对象运行时

发布于 2024-08-10 18:15:31 字数 1581 浏览 3 评论 0原文

我在一个单位上课。通常，当我改变其方法的算法时，我必须重新编译它并整体交付补丁。我想使用 DLL 创建类的实例。在delphi.about.com搜索后，我发现我可以使用BPL来代替DLL。它是 Delphi 的 DLL。问题是我发现的几乎所有示例都只是告诉如何导出函数。我想动态加载BPL，每当我替换BPL时，我都可以获得该类的最新算法，而不仅仅是我导出的函数。

我读过的文章：
- http://delphi.about.com/od/objectpascalide/a/bpl_vs_dll .htm
- Delphi 应用程序的插件系统 - bpl 与 dll？< br> - http://delphi.about.com/library/weekly/aa012301a.htm

非常感谢任何 URL 或如何从头开始创建 BPL 来封装组件或类的示例。

亲爱的大师，

假设我有这样的代码：

unit unitA;

interface

type
  B = class(TObject)
  public
    procedure HelloB;
  end;

  A = class(TObject)
  public
    function GetB: B;
    function HelloA: String;
    procedure Help;
  end;

  implementation

  uses
      Dialogs;

  { B }

   procedure B.HelloB;
   begin
     ShowMessage('B');
   end;

  { A }

  function A.GetB: B;
  begin
    Result := B.Create;
  end;

  function A.HelloA: String;
  begin
    Result := 'Hello, this is A';
  end;

  procedure A.Help;
  begin
    //do something
  end;

  end.

我想导出A的所有公共方法。如何使其成为DLL？如何从另一个单位导入它来使用它？假设：

 var a: A;

 a := A.Create;
 a.GetB;
 showMessage(a.HelloA);

A 未在单元中声明（它在 DLL 中）。请指教。

欢呼。我昨晚收到了。我所要做的就是让对象实现一个接口，该接口在调用方单元中使用来捕获 DLL 返回的对象实例。

谢谢大家。

原文

I have a class in a unit. Usually, when I changed the algorithm of its methods, I have to recompile it and deliver the patch as a whole.
I think to create the instance of the class using DLL. After searching in delphi.about.com, I found that instead of using DLL, I can use BPL. It is a DLL for Delphi. The problem is almost all examples I found is only telling how to export a function.
I want to dynamically load the BPL, and whenever I replace the BPL, I can get the latest algorithm of the class, not only the functions I export.

Article I have read:
- http://delphi.about.com/od/objectpascalide/a/bpl_vs_dll.htm
- Plugins system for Delphi application - bpl vs dll?
- http://delphi.about.com/library/weekly/aa012301a.htm

Any URL or SAMPLE how to create a BPL from scratch to encapsulate a component or a class is greatly appreciated.

Dear Guru,

Suppose I have code like this:

unit unitA;

interface

type
  B = class(TObject)
  public
    procedure HelloB;
  end;

  A = class(TObject)
  public
    function GetB: B;
    function HelloA: String;
    procedure Help;
  end;

  implementation

  uses
      Dialogs;

  { B }

   procedure B.HelloB;
   begin
     ShowMessage('B');
   end;

  { A }

  function A.GetB: B;
  begin
    Result := B.Create;
  end;

  function A.HelloA: String;
  begin
    Result := 'Hello, this is A';
  end;

  procedure A.Help;
  begin
    //do something
  end;

  end.

I want to export all public methods of A. How to make it a DLL?
How to use it from another unit where to import it?
let's say:

 var a: A;

 a := A.Create;
 a.GetB;
 showMessage(a.HelloA);

A is not declared in the unit (it is in the DLL).
Please advise.

Hurray. I got it last night. All I have to do is make the object implement an interface which is used in the caller unit to catch the instance of object returned by the DLL.

Thank you all.

分享到QQ

分享到微博