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运行时根据字典动态调用，如果你的开发框架里面或者中间件里面这样实现，简直帅呆了！