FindClass возвращает nil (Плагины)

[Stilet]

Всем доброго. Появилась необходимость перевести один из проектов на плагинную систему, с тем чтоб не останавливая сам проект (он вращается на сервере, и выключение его для замены весьма напрягает) менять плуги, в случае их модификации.
Изначально думал использовать DLL, но решил еще покопать в сторону BPL.
Поскольку не занимался раньше пакетами в Делфи, сейчас получается нахожусь на стадии изучения.
Порывшись в инете нашел пару скудненьких описаний реализации плугов, и на основе их попробовал составить простенькую программулинку, имеющую вот такой вид:
Модуль главной формы:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
 uses unit2;

procedure TForm1.Button1Click(Sender: TObject);
var h:HMODULE;
 t:Tm;
begin
 h:=LoadPackage('package1.bpl');
 t:=Tm(FindClass('tm2'));
 t:=t.Create(nil);
 Caption:=t.me;
 t.Free;
 UnloadPackage(h);
end;

end.

Сам класс TM у меня шаблонный для остальных плугов и выглядит так:

unit Unit2;

interface

uses
  SysUtils, Classes;

type
  Tm = class(TDataModule)
  private
    { Private declarations }
  public
    { Public declarations }
    function me:String; virtual; abstract;
  end;

implementation

{$R *.dfm}

end.

Его наследует плуг:

unit Unit3;

interface
 uses Unit2,classes;

 type
  Tm2 = class(Tm)
  private
    { Private declarations }
  public
    { Public declarations }
    function me:String;
  end;

implementation

{ Tm2 }


function Tm2.me: String;
begin
 Result:='34';
end;

initialization
 RegisterClass(tm2);
end.

Я правильно понимаю - RegisterClass(tm2); должен зарегистрировать на момент работы программы такой класс. Далее сам вызов FindClass должен мне вернуть указатель на класс, после чего я могу создать экземпляр и работать с ним?

Судя по всему я не учитываю еще чего-то, ибо FindClass не находит зарегистрированного класса.
Вопрос - Чего еще я не учел?

[Аватар]

Stilet, по этой ссылке есть инфа по созданию bpl-плагинов с другим способом регистрации классов

[veniside]

> FindClass('tm2')

оно, по-моему, кейс-сенситивное

UDP. Да, оно вызывает IndexOf() у стринглиста, так что должно быть как в исходнике:

FindClass('Тm2')

[Stilet]

оно, по-моему, кейс-сенситивное

И так я тоже пробовал, результат тот-же. Скорее всего я неверно плуг оформил, но вот где неверно...

Аватар

За ссыль спс, я на нее вчера наткнулся, но уж больно спатки хотелось.

[Человек_Борща]

У GunSmooker'а целая эпопея на эту тему есть в блоге "Реализация системы плагинов" из 11 частей.
Жаль не законченная, но все же может быть вам и поможет.

[Slym]

Главное приложение должно быть Build with runtime packages

[evg_m]

TformPclass =class of Tform4;

Tform5 =class(TForm4);

procedure TForm1.Button2Click(Sender: TObject);
var
  h: HWND;
  f: TForm4;
  cl: TFormPclass;
begin
  h:=LoadPackage('package2.bpl');
  if h=0 then begin
    showmessage('qqqqqqqqqqq');
    exit;
  end;
  cl:=TFormPclass( findclass('TForm5') );
  f:= cl.Create(self);
  f.show;
end;

Project.Exe Options -> Package -> Buid width run-time
отметка стоит? если нет, то надо поставить.

[veniside]

> Build with runtime packages

кстати, да. В списке рантайм пакаджей должен быть rtl. Причём и проложение и плагин должны быть с вынесенным рантаймом, иначе получается, что они работают со своей копией Classes.