DELPHI RTTI实现非可视的功能插件

思路：通过数据字典定义BPL包名，然后定义BPL包里面的类名，然后定义类里面的方法名，最后定义方法的参数值。

可实现动态加载BPL，调用哪个BPL的哪个类的哪个方法并给该方法赋给指定的参数值，如果是函数还可以取得函数的返回值。

应用场合之一：中间件实现非可视功能插件。

下面来DEMO码子。

首先动态加载BPL包：

bplName := TPlug(TdxBarButton(Sender).Tag).bplName;

if FileExists(bplName) then

begin

unitClass := string(TPlug(TdxBarButton(Sender).Tag).UnitCalss);

plugName := TPlug(TdxBarButton(Sender).Tag).description;

powerValue := TPlug(TdxBarButton(Sender).Tag).powerValue;

if not bplList.ContainsKey(bplName) then

begin

h := LoadPackage(bplName);

if h = 0 then

ShowTrayHint(bplName + '包加载失败')

else

bplList.Add(bplName, h);

end;

然后获取BPL的对象

var

LContext: TRttiContext;

LPackage: TRttiPackage;

LClass: TRttiInstanceType;

aForm: TCustomForm;

begin

LContext := TRttiContext.Create;

try

for LPackage in LContext.GetPackages() do

begin

if SameText(ExtractFileName(LPackage.Name), bplFile) then

begin

LClass := LPackage.FindType(unitClass) as TRttiInstanceType;

aForm := LClass.MetaclassType.Create as TCustomForm;

end

finally

LContext.Free;

end;

最后传递参数调用类的方法

TMyClass = class(TComponent)

public

procedure msg(const str: string);

function Add(const a,b: Integer): Integer;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{ TMyClass }

procedure TMyClass.msg(const str: string);

begin

MessageDlg(str, mtInformation, [mbYes], 0);

end;

function TMyClass.Add(const a, b: Integer): Integer;

begin

Result := a + b;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

obj: TMyClass;

t: TRttiType;

m1,m2: TRttiMethod;

r: TValue; //TRttiMethod.Invoke 的返回类型

begin

t := TRttiContext.Create.GetType(TMyClass);

{获取 TMyClass 类的两个方法}

m1 := t.GetMethod('msg'); {procedure}

m2 := t.GetMethod('Add'); {function}

obj := TMyClass.Create(Self); {调用需要依赖一个已存在的对象}

{调用 msg 过程}

m1.Invoke(obj, ['Delphi 2010']); {将弹出信息框}

{调用 Add 函数}

r := m2.Invoke(obj, [1, 2]); {其返回值是个 TValue 类型的结构}

ShowMessage(IntToStr(r.AsInteger)); {3}

obj.Free;

end;

代码只是为了演示这么个意思，你懂的。

以上的一切都是通过字典定义，RTTI运行时根据字典动态调用，如果你的开发框架里面或者中间件里面这样实现，简直帅呆了！