RTTI Zugriff auf Funktion

[charlytango]

Ich versuche auf eine Funktion eines Formulars zuzugreifen und den Rückgabewert oder einen Variablenwert auszuwerten ohne dass ich weiß ob das Formular diese Funktion bereitstellt.

Mit Variablen und Prozeduren klappt das hervorragend, bei Funktionen sperrt es sich etwas. Die KI hat sich da etwas zusammen halluziniert, liefert mir aber ein Mischmasch von Delphi und fpc

Kennt sich da vielleicht jmd aus ?
Lazarus 4.3, FPC 3.2.3

Code: Alles auswählen

uses
 ..typeinfo,rtti....

function CallBoolMethod(aForm: TObject; const MethodName: string; out
  ResultValue: Boolean): Boolean;
var
  ctx: TRttiContext;
  rttiType: TRttiType;
  method: TRttiMethod;
  retval: TValue;
begin
  Result := False;
  ResultValue := False;
  if aForm = nil then
    Exit;

  ctx := TRttiContext.Create;
  try
    rttiType := ctx.GetType(aForm.ClassType);
    method := rttiType.GetMethod(MethodName);

    if Assigned(method) and (method.ReturnType <> nil) and (method.ReturnType.Handle = TypeInfo(Boolean)) then
    begin
      retval := method.Invoke(aForm, []);
      if retval.IsBoolean then  //<<<Error: identifier idents no member "IsBoolean"
      begin
        ResultValue := retval.AsBoolean; 
        Result := True;
      end;
    end;
  finally
    ctx.Free;
  end;

end; 

[PascalDragon]

Nachdem du eh schon den Rückgabetyp per ReturnType geprüft hast, brauchst du das nicht mehr mit dem IsBoolean machen (welches weder in Delphi noch in FPC existiert). Die Rtti Unit nutzt nämlich eh den ReturnType, um den zurückgegebenen TValue passend zu typisieren. Und falls doch was schief ging, dann gibt's ne Exception.
In Delphi und FPC main kannst du TryCast<T>() verwenden.

[m.fuchs]

Die KI hat sich da etwas zusammen halluziniert, liefert mir aber ein Mischmasch von Delphi und fpc

Dann benutzt doch diesen Kram nicht, wenn es Unsinn ausliefert.

Code: Alles auswählen

uses
 ..typeinfo,rtti....

Du arbeitest mit der Unit Rtti, die als experimental gekennzeichnet ist, würde ich nicht machen. Eigentlich ist für RTTI ja immer noch die Unit TypInfo zuständig. Die kann allerdings nicht mit Methoden umgehen.

Ich versuche auf eine Funktion eines Formulars zuzugreifen und den Rückgabewert oder einen Variablenwert auszuwerten ohne dass ich weiß ob das Formular diese Funktion bereitstellt.

Was ist denn der Hintergrund des Ganzen? Vielleicht kann man das anders lösen...

[charlytango]

Was ist denn der Hintergrund des Ganzen? Vielleicht kann man das anders lösen...

Es geht um ctGUI meine Tabbed GUI auf Basis JvTabBar.
Man kann derzeit beliebige TForms sehr leicht einhängen und die Standardfunktionen funktionieren.
Will der User nun zu einem anderen Tab wechseln, könnte das TForm wissen ob er das darf.
z.B kann eine im Formular befindliche Funktion CanChange false zurückgeben, falls er das nicht darf (zb weil Daten noch nicht gespeichert sind).

Klar kann man das über einen gemeinsamen Vorfahren aller TForms der Applikation lösen. Das wäre dann aber für diesen Fall zwingend.
Mit RTTI (Typeinfo) habe ich es bisher geschafft, dass ein gemeinsamer Vorfahre zwar bequem aber nicht zwingend nötig ist um eine einzelne Eigenschaft/Funktion im Tabmanagement abzubilden.
Wenn der Entwickler eine Eigenschaft braucht, baut er einfach eine bestimmte public property in sein Formular und schon klappt es, weil die GUI diese Eigenschaft per Typeinfo ausliest und sich nicht auf den Vorfahren kapriziert.

Nun wollte ich das auch für eine Funktion machen, die einen boolean zurückgibt.

[m.fuchs]

Es klingt für mich, als würde es nach einem Einsatz von Interfaces schreien, anstelle von RTTI.

[fliegermichl]

Hmm,

ich habe mal versucht, das nach zu bauen aber bekomme schon bei

Code: Alles auswählen

 method := rttiType.GetMethod(MethodName);

nil in method zurück obwohl das übergebene Formular diese Methode bereitstellt. Wie kann man denn rttiType.GetMethod dann sinnvoll verwenden?

[charlytango]

Es klingt für mich, als würde es nach einem Einsatz von Interfaces schreien, anstelle von RTTI.

Das ist mir leider trotz langer Jahre ein Buch mit sieben Siegeln. Interessanterweise lerne ich hier bei euch mehr als in vielen Jahren davor:-)

Dieses Interface müsste dann wohl in der "einzuklebenden" TForm bzw in dessen Vorfahren existieren?

Falls ja, wäre die Hürde ctGUI zu nutzen größer, weil komplexer einzubauen als eine simple public function.

[charlytango]

Hmm,

ich habe mal versucht, das nach zu bauen aber bekomme schon bei

Code: Alles auswählen

 method := rttiType.GetMethod(MethodName);

nil in method zurück obwohl das übergebene Formular diese Methode bereitstellt. Wie kann man denn rttiType.GetMethod dann sinnvoll verwenden?

Diese Prozedur funktioniert (nur mit TypeInfo, dazu braucht es kein rtti). Sie ruft allerdings nur eine Eventprozedur auf ohne einen Rückgabewert auszuwerten.
Vielleicht hilft es beim Überlegen

Code: Alles auswählen

uses ..... typeinfo;

{Call Notify Event if it exists only}
procedure CallNotfyEvent(aForm: TForm; sPropertyName: string);
var
  PropInfo: PPropInfo;
  Method: TMethod;
  EventProc: TNotifyEvent;
begin
  if not Assigned(aForm) then
    Exit;

  {$ifdef LAZLOGGER}
    Debugln('****CallNotfyEvent**** -> Calling NotfyEvent ',sPropertyName,' of form ', aForm.Name );
    DebuglnEnter('');
  {$endif}

  // RTTI verwenden, um die Eigenschaft sPropertyName zu finden
  PropInfo := GetPropInfo(aForm, sPropertyName);
  if PropInfo <> nil then
  begin
    Method := GetMethodProp(aForm, PropInfo); // Methodenzeiger der Eventprozedur holen  -- Get method pointer
    if Assigned(Method.Code) then
    begin
      EventProc := TNotifyEvent(Method);      // Methodenzeiger in den korrekten Typ casten -- cast method pointer to TNotifyEvent

      {$ifdef LAZLOGGER}
        Debugln('****CallNotfyEvent**** -> vor aufruf ');
        DebuglnEnter('');
      {$endif}

      EventProc(aForm);                       // NotifyEvent aufrufen  -- Call TNotifyEvent of the form
      //EventProc(nil);
    end;
  end
  {$ifdef LAZLOGGER}
    else
      Debugln('                NotfyEvent ',sPropertyName,' of form ', aForm.Name , ' not found');
  DebuglnExit('');
  {$endif}
  ;

end;

[fliegermichl]

Diese Prozedur funktioniert (nur mit TypeInfo, dazu braucht es kein rtti). Sie ruft allerdings nur eine Eventprozedur auf ohne einen Rückgabewert auszuwerten.
Vielleicht hilft es beim Überlegen

Funktioniert bei mir nicht. Ich habe eine unit2 mit einem TForm2, welches eine public procedure Hallo(Sender : TObject) definiert.

Der Aufruf von

Code: Alles auswählen

  PropInfo := GetPropInfo(Form2, 'hallo');

Liefert nil zurück!?

[m.fuchs]

Es klingt für mich, als würde es nach einem Einsatz von Interfaces schreien, anstelle von RTTI.

Das ist mir leider trotz langer Jahre ein Buch mit sieben Siegeln. Interessanterweise lerne ich hier bei euch mehr als in vielen Jahren davor:-)
Dieses Interface müsste dann wohl in der "einzuklebenden" TForm bzw in dessen Vorfahren existieren?

Ich hab mal ein Beispiel zusammen geklöppelt. Schau dir das den Anhang mal an.

Falls ja, wäre die Hürde ctGUI zu nutzen größer, weil komplexer einzubauen als eine simple public function.

Naja, man muss halt zusätzlich noch das Interface einbinden in das Form - das ist dann ein Wort mehr was man schreiben muss.

[charlytango]

herzlichen Dank,ich sehe es mir mal an.

[fliegermichl]

Diese Prozedur funktioniert (nur mit TypeInfo, dazu braucht es kein rtti). Sie ruft allerdings nur eine Eventprozedur auf ohne einen Rückgabewert auszuwerten.
Vielleicht hilft es beim Überlegen

Funktioniert bei mir nicht. Ich habe eine unit2 mit einem TForm2, welches eine public procedure Hallo(Sender : TObject) definiert.

Der Aufruf von

Code: Alles auswählen

  PropInfo := GetPropInfo(Form2, 'hallo');

Liefert nil zurück!?

Ist klar. GetPropInfo kann nur Informationen zu Properties liefern.

Wenn man aber procedure DoHallo als published deklariert, dann kann man über aForm.MethodAddress einen Zeiger auf die Methode erlangen.
Wie man damit dann weiter umgeht, muss ich erst noch rausfinden.

[fliegermichl]

So geht's

Code: Alles auswählen

type
  TBoolMethod = function : boolean of Object;
var
  p : Pointer;
  BoolMethod : TBoolMethod absolute p;

procedure TForm1.Button1Click(Sender: TObject);
var b : boolean;
begin
  p := Form2.MethodAddress('BoolHallo');
  TMethod(BoolMethod).code:= p;
  TMethod(BoolMethod).data:=form2;
  b := BoolMethod();
  if (b) then
    showmessage('ja')
  else
    showmessage('nein');
end;

[charlytango]

danke, wird etwas dauern bis ich das checken kann

[charlytango]

So geht's

hab ich mal ausprobiert und es klappt tatsächlich -- solange der Rückgabewert der gesuchten Fungtion (Form2.MethodAddress('BoolHallo');) true ist -- wird sie auf false gesetzt, kommen Speicherverletzungen