CodeRedirect von Protected-Methoden

[freedy]

Hallo Forum,

in meinem aktuellen Projekt möchte ich eine Überwachung des Properties "Enabled" von allen Ableitungen von TControl überwachen. Das Setzen auch aus dem Programmablauf heraus soll nur dann möglich sein, wenn die notwendigen Rechte vorliegen respektive meine Anwendung das Okay dafür gibt. Allerdings stoße ich hier auf die Schwierigkeit, dass ich eine Methode einer Klasse umleiten muss.

Ich habe nun verschiedene Vorgehen ausprobiert, um auf das "TControl.SetEnabled" zuzugreifen. Leider ohne großen Erfolg. Ein Code-Redirect durch Einfügen eines Jumps an der Originaladresse schien mir sinnvoll. Ich konnte aber nicht mehr zurück auf die Ursprungsadresse verweisen, um dort den Originalcode auszuführen.

Gibt es eine Möglichkeit, einen Programmteil in solche Grundklassen einzuschleusen, so dass ein Aufruf des inherited in abgeleiteten Klassen automatisch auch auf diesen Code geleitet und anschließend der ursprüngliche Code ausgeführt wird?

Vielen Dank für Eure Hilfe.

Michael.

[freedy]

Hallo,

ich hab's nun nach einigen Versuchen geschafft. Für meine Lösung habe ich mir die CPU-Ansicht in der IDE während der Laufzeit ohne Redirect angeschaut. Dort habe ich die nötigen Assembler-Befehle entsprechend übernommen. So habe ich Zugriff auf die jeweilige Instanz und die übergebenen Parameter bekommen.

Bis auf den Fehler, dass der JZ-Befehl im Original-Code auf eine falsche Adresse zeigt, klappt alles super. Dieser Fehler kann aber durch eine einfache Überprüfung in der aufrufenden Funktion umgangen werden.

Trotzdem Danke für's Nachdenken.

Viele Grüße

[brechi]

Das Parsen uebernehmen einige Units für dich z.b. Flocke ( http://www.delphipraxis.net/54339-ge...code-hook.html ) oder mit ( http://uall.cheat-project.net/uallCollection )

[freedy]

Hallo brechi,

vielen Dank für den Hinweis. Ich werde das morgen noch einmal ausprobieren. Ich muss mich in die ganzen Möglichkeiten dieser Hooks noch richtig einarbeiten. So richtig fit fühle ich mich da noch nicht.

Grüße
Michael

[himitsu]

Gibt es nicht in XE oder XE2 eine hauseigene Lösung?

Mir ist so, als hatte ich das vor 'ner Weile hier mal gesehn.
Ich glaub da wird intern ein generisches Objekt erstellt, worüber die Umleitung geregelt wird und dann wird die RTTI auf die neue Klasse umgeleitet, bzw. der Typ wird im gewünschten Objekt ersetzt, so daß ab nun alles über die neue Klasse abläuft, oder irgendwie so.



SetEnabled ist ja virtual, also könnte man auch einfach die VMT ändern.



TApplicationEvents.OnMessage und dort auf CM_ENABLEDCHANGED mit dem Handle deiner Komponente warten. [edit]alle[/edit]
PS: Du hast dir nicht umsonst den VCL-Quellcode gekauft ... ich an deiner Stelle würde dort öfters mal nachsehn.



Ab XE2 könnte man eventuell auch das DataBinding für sowas verwenden.

[freedy]

Zitat von himitsu:

Gibt es nicht in XE oder XE2 eine hauseigene Lösung?

Mir ist so, als hatte ich das vor 'ner Weile hier mal gesehn.
Ich glaub da wird intern ein generisches Objekt erstellt, worüber die Umleitung geregelt wird und dann wird die RTTI auf die neue Klasse umgeleitet, bzw. der Typ wird im gewünschten Objekt ersetzt, so daß ab nun alles über die neue Klasse abläuft, oder irgendwie so.

Hallo Himitsu,

eine hauseigene Lösung kenne ich hier nicht.

Zitat von himitsu:

SetEnabled ist ja virtual, also könnte man auch einfach die VMT ändern.

Sollen dann alle Nutzer meiner Rechteverwaltung die VCL neu erstellen? Das halte ich für nicht sinnvoll und wird bei anderen höchst wahrscheinlich auch auf Ablehnung stoßen.

Zitat von himitsu:

TApplicationEvents.OnMessage und dort auf CM_ENABLEDCHANGED mit dem Handle deiner Komponente warten. [edit]alle[/edit]
PS: Du hast dir nicht umsonst den VCL-Quellcode gekauft ... ich an deiner Stelle würde dort öfters mal nachsehn.

An der Stelle, wo die Message ausgelöst wird, bin ich bereits zu spät. Nach meinem Konzept muss ich mir merken, ob aus dem Programmverlauf heraus das Control deaktiviert ist oder ob es durch die Rechteverwaltung deaktiviert wurde. Beides zusammen ergibt dann den Zustand von Enabled. Bei meinen Versuchen die Message abzufangen, fingen die Controls an leicht zu flackern.