Funktionsname herausfinden

[hitzi]

Hallo,

ist es irgendwie möglich den Funktionsnamen herauszufinden? So in der Art:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := Self.ClassName + ' ' + Self.???; //was muss statt den ??? hin damit in der Caption "TForm1 FormCreate" steht?
end;

Viele Grüße

[generic]

Nein, da alle Namen beim Compilieren entfernt werden.

Bevor hier einer Meckert:
Published Eigenschaften werden nicht entfernt.

[hitzi]

Schade. Danke für die Info :)

[Bernhard Geyer]

Doch. Ist möglich. Jedoch sind dazu TD32-Debuginfos und die Hilfe der JCL-Debug-Units nötig. Dann kannst du C-Like den Funktionsnamen/Stack/Zeilennumer etc. bekommen.

[generic]

Na gut - aber dafür wird eine Map-Datei benötigt (bei der JCL).

[Bernhard Geyer]

Zitat:

Zitat von generic

Na gut - aber dafür wird eine Map-Datei benötigt (bei der JCL).

Nichts bekommt man geschenkt. In einer managed Umgebebung bekommt man das zwar geschenkt auch ohne Extra Debug-Infos, aber dafür liegt der Quellcode offen.

[hitzi]

Auch dir vielen Dank Bernhard. Werd mir das Handling mal mit dieser Map Datei und JCL ansehen.

[DMW]

In C++Builder gibt es das __FUNC__-Makro, das den Namen der aktuellen Funktion als Stringkonstante enthält; vielleicht gibt es etwas Vergleichbares auch für Delphi?

Zitat:

Zitat von generic

Published Eigenschaften werden nicht entfernt.

Und da Event-Handler published sind, ist durchaus RTTI für FormCreate verfügbar ;)
Allerdings ist es praktisch unmöglich, eine beliebige Codeposition zweifelsfrei mit der Adresse der zugehörigen Funktion zu assoziieren, ohne über eine vollständige Funktionsliste zu verfügen, daher hilft das nichts.

[Cyf]

Zitat:

Zitat von generic

Allerdings ist es praktisch unmöglich, eine beliebige Codeposition zweifelsfrei mit der Adresse der zugehörigen Funktion zu assoziieren, ohne über eine vollständige Funktionsliste zu verfügen, daher hilft das nichts.

Das ist nicht ganz richtig, es funktioniert in manchen Fällen allerdings nicht allen.
Tatsächlich war das die erste Frage, die mir durch den Kopf ging, als ich das hier gelesen hab und ich musste es gleich mal ausprobieren. :wink:
Es hängt davon ab wie der Compiler den Code erstellt, der deine Funktion aufruft, wenn es ein call mit einem offset aus einem Register ist, ist es fast unmöglich, da nicht mehr klar ist, welchen Wert das Register hatte und der Wert auch nicht ohne einen Großteil des Codes davor erneut durchzugehen wiederhergestellt werden kann. Wenn es sich allerdings um einen call mit festem Offset handelt ($E8 + 4 byte signed integer in little endian), dann ist es ohne weiteres möglich den Einsprungspunkt der Funktion zurückzurechnen.
Ein Label in asm Code am Anfang der Funktion ist übrigens, falls jemand auf die Idee kommen sollte, auch wenig hilfreich, da (ausgenommen seien reine asm Routinen) der Compiler davor dazu neigt, eine unterschiedliche Länge von Befehle zur Erstellung eines stackframes einzufügen. Abgesehen davon ist das auch noch aufwendiger als ein @Funktionsname (wofür man den Namen angeben müsste und dann bei jeder Funktion anderen Code hat) und erfüllt ja nicht die Bedingung, dass das ganze für jede Funktion mit dem selben (möglichst einzeiligen) Befehl geht.

Aber imho ist es am sinnvollsten in solchen Protokoll-/Fehlermeldungen (oder für was braucht man das sonst?) einfach den Wert des EIP Registers einzufügen. Ist natürlich bei DLLs sinnlos und auch bei "normalen" PE nen gewisses Risiko, das nicht an die Standardadresse geladen wird, aber in 95% der Fälle sollte das eine hilfreiche Information (sogar genau wo's geknallt hat) sein.

Was das Zurückrechnen der Einsprungspunkte betrifft, scheint das nicht zu funktionieren, falls die aufrufende Funktion ein Event ist, das aus der Messageschleife ausgelöst wird, aber ich habs jetzt nicht mehr genau durchprobiert. :)

[Bernhard Geyer]

Zitat:

Zitat von DMW

In C++Builder gibt es das __FUNC__-Makro, das den Namen der aktuellen Funktion als Stringkonstante enthält; vielleicht gibt es etwas Vergleichbares auch für Delphi?

Ja. Wie schon geschrieben: JCL Debug-Units.