Variablen einer Klasse auslesen

[Uwe Raabe]

Zitat von Der schöne Günther:

Du musst aber auch davon ausgehen, dass ebendiese TNotifyEvents schon belegt sind (ein TButton.OnClick, ein TForm.OnResize) weil da schonmal jemand was reinprogrammiert hat. In dem Fall musst du nehmen was im jeweiligen Event drinsteht, das dir wo wegspeichern, das Event auf deine eigene Routine zeigen lassen

Das könnte schwierig werden, wenn Events dynamisch im Programm zugewiesen werden bzw. Komponenten dynamisch erzeugt werden.

[himitsu]

Zeiger des alten Events in Variable speichern, bevor man sich selbst registriert (überschreibt).
Und das dann im eigenen Event aufrufen.

(bei "dynamisch", wenn Deines nachher wieder vom Programm überschrieben wird, dann hast Problem)

Man könnte noch via TVirtualMethodInterceptor sich reinhängen, aber wäre ist wie einen Blauwal auf einen armen Spatzen zu werfen.

[Der schöne Günther]

Zitat von Uwe Raabe:

Das könnte schwierig werden, wenn Events dynamisch im Programm zugewiesen werden bzw. Komponenten dynamisch erzeugt werden.

Ja, das kommt erschwerend hinzu.

Wenn der Anwendungsfall wirklich ist "Ich will mitloggen wenn der Hauptthread der Anwendung hängt" würde ich das trotzdem anders machen. Ich hatte so etwas mal angefangen, aber nie zu Ende geführt: Ich meine man konnte einen Thread erstellen der periodisch Messages an den Hauptthread sendet und wenn der nicht schnell genug antwortet konnte man den Stack des Hauptthreads zu dem Zeitpunkt feststellen und das dann loggen. Dann konnte man direkt sehen was sich aufgehangen hat.

Denn selbst wenn man jedes "OnChange"-Event mit seiner Ausführungszeit mitloggt, ich glaube nicht dass ich zuverlässig feststellen könnte, was denn nun diese lang hängende Aktion ausgelöst hat. Was wenn ich drei Frames mit jeweils einem "submitButton: TButton" drauf habe: Woher weiß ich jetzt, welches Absenden das Programm zum Hängen gebracht hat?

[Timmyew]

Ich glaube das schweift jetzt ein bisschen aus ^^.

Ich möchte eigentlich nur wissen wie ich an die Variablen eines bestimmten Types komme und diese dann bearbeiten kann mithilfe der RTTI ^^.

Das Problem mit den Zeigern ist leicht zu lösen.

Die Zeitmessung basiert auf der QueryPerformanceCounter Funktion der Winapi.

[himitsu]

IsHungAppWindow (kennt man z.B. wenn Windows das Fenster ersetzt ... ja es wird quasi ersetzt durch ein anderes Fenster, mit dem letzten Screeshot dieses Fensters)

Standardmäßig agiert Windows, wenn das Fenster 5 Sekunden lang nicht reagiert, also auch die MessageQueue dessen Threads. (die Zeit könnte man in der Registry ändern)

[dummzeuch]

Zitat von Timmyew:

Ich glaube das schweift jetzt ein bisschen aus ^^.

Das kommt hier häufiger vor.

Zitat von Timmyew:

Ich möchte eigentlich nur wissen wie ich an die Variablen eines bestimmten Types komme und diese dann bearbeiten kann mithilfe der RTTI ^^.

Mit RTTI kann man alle published Properties eines Objekts ermitteln und sie auch lesen und schreiben. Events sind nichts anderes als published Properties, die einen Methodenpointer speichern. Standardmäßig haben sie einen Namen, der mit "On" beginnt.

Vorgehensweise also:

• alle Forms und darauf liegenden Controls durchgehen
• deren published Properties durchgehen, (optional nur) alle, die mit "On" beginnen, weiterbehandeln
• Per RTTI den Datentyp ermitteln und nur noch solche, die TNotifyEvent sind, weiterbehandeln.

Wenn ich mich recht erinnere, war das nicht weiter schwierig, wenn man mal die generelle Verwendung von RTTI verstanden hatte. Ich stecke da allerdings momentan nicht tief genug drin, um konkreten Code vorzuschlagen.

Ich finde die Idee übrigens gut.

[Timmyew]

Hey,

wollte mich nochmal bedanken .
Ich habe es so hinbekommen wie ich es haben wollte !

Gruß,
Timmy !

[TurboMagic]

Bei neuen Delphi's ist eine Lite Version des AQtime Profilers dabei.
Kann per Tools/GetIt installiert werden.

[himitsu]

Ist schon länger datei und war auf der Addon-CD, die man sich zum Setup von Emba runterladen konnte.