VMT-Spielerein ( Objekt Dump )

[Desmulator]

HalliHallo,
aus langeweile habe ich mir überlegt, mal eine ObjektDump-Funktion zu schreiben. Also eine Funktion die Felder, Methoden usw. ausließt und das ganze dann entlang der Vererbungsherachi darstellt. Problem, die VMT fehlt!

Nun, zumindest fehlen die MethodenTabellen und der gleichen, da er auf das assigned() mit false anspringt.

Delphi-Quellcode:

class procedure TBaseObject.ListMe;
var
  Cls : TClass;
  VMT : PMethodNameTable;
  Index : Cardinal;
begin
  Cls := self;
  while Cls <> nil do begin
    WriteLn(Cls.ClassName);
    VMT := PPMethodNameTable(Pointer(Cls) + vmtMethodTable)^;
    if assigned(VMT) then for Index := 0 to VMT^.count-1 do begin
      WriteLn(Format(#9'%s',[VMT^.entries[Index].name^]));
    end else WriteLn(#9'Keine VMT gefunden.');
    Cls := Cls.ClassParent;
  end;
end;

Ich denke es ist klar, was passiert. Ich durchlaufe mit der Schleife alle Vorfahren, solang bis ich zu TObject komme, dass logischerweise keinen mehr hat und somit Cls.ClassParent = nil ist. Dann gebe ich einfach ClassName aus und greife auf die Methodentabelle zu, so wie es auch in der MethodAddress oder in der MethodName Funktion von TObject abläuft. Allerdings ist die Tabelle weg. Die beiden vorher genannten Funktionen scheitern ebenfalls. Meine Frage : Kann man das ein Stellen? Also gibt es dafür einen Compiler-Switch den ich übersehen habe.

MfG Desmu

[guinnes]

Daß die DynamicTable häufig leer ist, ist normal, die Wenigsten Klassen haben eigene Dynamische Methoden

Edit : Sorry, habe Lazarus überlesen. Meine Aussage gilt nur für Delphi

[Desmulator]

Okay, das war noch aus Test, da habe ich anstat vmtMethodTable einfach mal vmtDynamicTable eingebaut.

[guinnes]

Auch VMTMethodTable ist in Delphi meistens leer

[Desmulator]

Zitat von guinnes:

Auch VMTMethodTable ist in Delphi meistens leer

Und man kann Delphi auch nicht überreden, da was rein zu packen?

[guinnes]

Soweit ich mich erinnere, stehen da bei Formularklassen Eventhandler drin

[Desmulator]

Die Eventhandler landen doch in vmtDynamikTable? Bzw. mein Objekt hat solche Message-Proceduren und die stehen da nicht drin.

[guinnes]

Nochmal :
Ich weiss nicht, wie es bei Lazarus ist, bei Delphi ist es so :
DynamicTable : Eigene Dynamische Methoden
MethodTable : Eventhandler von Formularen

[Desmulator]

Zitat von guinnes:

Nochmal :
Ich weiss nicht, wie es bei Lazarus ist, bei Delphi ist es so :
DynamicTable : Eigene Dynamische Methoden
MethodTable : Eventhandler von Formularen

Alles klar. Nun, gibt es denn keinen Möglichkeit die Methoden und deren Namen auszulesen?

[guinnes]

Zitat von Desmulator:

Alles klar. Nun, gibt es denn keinen Möglichkeit die Methoden und deren Namen auszulesen?

Die Methoden schon, aber keine Namen. Jede Methode hat innerhalb der Vererbung eine feste Position, neue Virtuelle Methoden werden hinten drangehängt und haben dadurch für die Kindsklassen wiederum eine feste Position.
Das heißt :
wenn du weist, wie die Methode an der Position 20 heißt, weist du auch, wie die Methode an der Position 20 bei allen Nachfolgern heißt.
Die Position der einzelnen virtuellen Methoden kannst du aus dem Quelltext der VCL entnehmen