delphi BPL编程 RTTI和getClass 之间的脱节,请高手指点

[文熊]

delphi先前BPL常用的方式是先在BPL模块中 RegisterClass(TMYForm);
然后在主程序中,使用getclass(TMYForm);再动态生成一个对象使用之.
新的RTTI编程,不需要注册,直接使用,方式如下
var
LContext: TRttiContext;
LPackage: TRttiPackage;
LClass: TRttiType;
aForm: TForm;
hPack: HMODULE;
begin
hPack := LoadPackage('orpFlow.bpl');
if hPack = 0 then
begin
ShowMessage('载入流程模块失败!');
exit;
end;
for LPackage in LContext.GetPackages() do
begin
if SameText(ExtractFileName(LPackage.Name), 'orpFlow.bpl') then
begin
LClass := LPackage.FindType('utMyMain.TMyForm');
if LClass <> nil then
begin
aForm := GetTypeData(LClass.Handle)^.ClassType.Create as TForm;
aForm.Create(Application);
aForm.Show;
这种方法可以实现基本功能.
问题在于:GetClass返回值是 TPersistentClass ,=class of TPersistent;
RTTI方式的返回值是TClass,=Class of TObject;
两者不一致!!!!!
在一些老的接口中,新的RTTI方式无法接上.
请问高手有什么方法,可以打通这个断崖,从而使得BPL编程更加有灵活性?

[文熊]

主要是这两个不是一般的类,而是Class of TXXXX,不好转换

[wzwcn]

转换一下不行么。比如有个函数fun参数是TPersistentClass：

var c:TClass;
begin
...
if c.InheritsFrom(TPersistentClass) then
fun(TPersistentClass(c));
end;

[我看见佛]

procedure TSysMainForm.CreateForm(MenuName:string);
var AClass: TPersistentClass;
  tempForm:TForm;
  Dll_Name:string;
begin
    AClass := GetClass(Dll_Name);
    tempForm:= TForm(TComponentClass(AClass).Create(Application));
    tempForm.Show();
end;

我的做法

[文熊]

帖子沉了，自己顶顶