delphi - operadores - sobrecarga de metodos en java netbeans

La función TRttiMethod.Invoke no funciona en métodos sobrecargados?

Question

Estoy creando una instancia de una clase usando la función TRttiMethod.Invoke , pero cuando el constructor o un método está sobrecargado, el rtti no llama al método apropiado.

Escribí una aplicación de muestra para resolver mi problema.

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.

Este es un error RTTI? ¿O existe otra forma de llamar a los métodos sobrecargados de una clase usando RTTI?

Answer 1

No hay nada de malo con el método TRttiMethod.Invoke , su problema se encuentra en GetMethod . Esta función llama internamente a TRttiType.GetMethods y recupera un puntero al primer método que coincide con el nombre pasado como parámetro. Por lo tanto, cuando está ejecutando este código t.GetMethod(''Create'') siempre obtendrá un puntero al mismo método.

Para ejecutar una versión sobrecargada del constructor u otro método, debe resolver la dirección del método a ejecutar en base a los parámetros, y luego llamar a la función TRttiMethod.Invoke .

Verifique esta función de muestra.

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;

Ahora puede llamar a los constructores o métodos de su clase de una de estas maneras

   r := RttiMethodInvokeEx(''Create'', t, t.MetaclassType, [444]);
   r := RttiMethodInvokeEx(''Create'', t, t.MetaclassType, [''hello from constructor string'']);
   r := RttiMethodInvokeEx(''Create'', t, t.MetaclassType, []);
   RttiMethodInvokeEx(''Bar'', t, r.AsObject , [''this is a string'']);
   RttiMethodInvokeEx(''Bar'', t, r.AsObject , [9999]);