我正在使用
TRttiMethod.Invoke函数创建一个类的实例,但是当构造函数或方法重载时,rtti不会调用正确的方法.
我写了一个示例应用来说明我的问题.
program ProjectFoo;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Rtti,System.SysUtils;
type
TFoo=class
public
constructor Create(Value : Integer);overload;
constructor Create(const Value : string);overload;
function Bar(value : integer) : Integer; overload;
function Bar(const value : string) : string; overload;
end;
{ TFoo }
constructor TFoo.Create(Value: Integer);
begin
Writeln(Value);
end;
function TFoo.Bar(value: integer): Integer;
begin
Writeln(Value);
Result:=value;
end;
function TFoo.Bar(const value: string): string;
begin
Writeln(Value);
Result:=value;
end;
constructor TFoo.Create(const Value: string);
begin
Writeln(Value);
end;
var
c : TRttiContext;
t : TRttiInstanceType;
r : TValue;
begin
try
c := TRttiContext.Create;
t := (c.GetType(TFoo) as TRttiInstanceType);
r := t.GetMethod('Create').Invoke(t.MetaclassType,[444]);//this works
//r := t.GetMethod('Create').Invoke(t.MetaclassType,['hello from constructor string']);//this fails : EInvalidCast: Invalid class typecast
t.GetMethod('Bar').Invoke(r,[1]);// this works
//t.GetMethod('Bar').Invoke(r,['Hello from bar']); //this fails : EInvalidCast: Invalid class typecast
except
on E: Exception do
Writeln(E.ClassName,': ',E.Message);
end;
readln;
end.
解决方法
TRttiMethod.Invoke方法没有任何问题,您的问题位于
GetMethod.此函数在内部调用
TRttiType.GetMethods并检索指向第一个方法的指针,该指针与作为参数传递的名称匹配.因此,当您执行此代码t.GetMethod(‘Create’)时,您总是会获得指向同一方法的指针.
要执行构造函数或其他方法的重载版本,必须根据参数解析要执行的方法地址,然后调用TRttiMethod.Invoke函数.
检查此示例功能.
function RttiMethodInvokeEx(const MethodName:string; RttiType : TRttiType; Instance: TValue; const Args: array of TValue): TValue;
var
Found : Boolean;
LMethod : TRttiMethod;
LIndex : Integer;
LParams : TArray<TRttiParameter>;
begin
Result:=nil;
LMethod:=nil;
Found:=False;
for LMethod in RttiType.GetMethods do
if SameText(LMethod.Name,MethodName) then
begin
LParams:=LMethod.GetParameters;
if Length(Args)=Length(LParams) then
begin
Found:=True;
for LIndex:=0 to Length(LParams)-1 do
if LParams[LIndex].ParamType.Handle<>Args[LIndex].TypeInfo then
begin
Found:=False;
Break;
end;
end;
if Found then Break;
end;
if (LMethod<>nil) and Found then
Result:=LMethod.Invoke(Instance,Args)
else
raise Exception.CreateFmt('method %s not found',[MethodName]);
end;
r := RttiMethodInvokeEx('Create',t,t.MetaclassType,[444]);
r := RttiMethodInvokeEx('Create',['hello from constructor string']);
r := RttiMethodInvokeEx('Create',[]);
RttiMethodInvokeEx('Bar',r.AsObject,['this is a string']);
RttiMethodInvokeEx('Bar',[9999]);