Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   FreePascal Name einer Prozedur herausfinden (https://www.delphipraxis.net/167467-name-einer-prozedur-herausfinden.html)

thomasschaf 31. Mär 2012 12:53


Name einer Prozedur herausfinden
 
Hallo,

ich habe eine Prozedur, nennen wir sie A, die als Paramter eine Funkion vom Typ B erwartet.
Wie kann ich innerhalb A den Namen von B herausfinden ?
Delphi-Quellcode:
type
  fktB = procedure(a: String);
...
procedure fA(f: fktB);
begin
f.name; // sowas in der art...
end;
Danke

FlatIron 31. Mär 2012 12:59

AW: Name einer Prozedur herausfinden
 
Das ist nicht ohne weiteres möglich.
Kannst ja mal hier gucken:

http://stackoverflow.com/questions/3...s-pointer-in-c

thomasschaf 31. Mär 2012 13:12

AW: Name einer Prozedur herausfinden
 
Hallo,

ich bin jetzt auf MethodName gestoßen, vielleicht ist es das, was ich suchte ?

Das Gegenteil, nämlich anhand des Namens die Prozedur zu starten, wird hier gezeigt:
http://delphi.about.com/cs/adptips20...ltip0204_3.htm

Leider komme ich mit MethodName noch nicht zurecht.

himitsu 31. Mär 2012 13:16

AW: Name einer Prozedur herausfinden
 
Delphi und vermutlich auch FreePascal enthält solche Informationen nicht in der EXE.

Du brauchst entsprechende Debuginfos, wo z.B. Informationen wie Codezeile+Infos<>Speicheradresse drinstehn.
Dann könntest du darüber versuchen eine passende Adresse einer bestimmten Codezeile zuzuordnen und aus den weiteren Infos die Prozedur zu erfahren.


Du hast aber einen Prozedurzeiger und keinen Methodenzeiger.

MethodeName fuktioniert natürlich nur mit Methoden, welche als published deklariert sind.
Ich weiß nicht wie das in FPC aussieht, aber Delphis neue erweiterte RTTI enthält auch noch Informationen zu "privateren" Methoden (wenn die RTTI aktiviert ist) ... eventuell kennt auch FPC sowas.


PS: TObject.MethodAddress liefert die Einspringadresse zu einer Method.
Es gibt aber auch noch die Umkehrfunktion.
Weitere Infos siehe OH ... wo auch man sowas natürlich findet. :roll:

Auf eimen "Methodenzeiger" kann man die Adresse des Methode auslesen und das Objekt (und darüber die Klasse, bei einem Methodenzeiger) oder die Klasse (bei einem Methodenzeiger für eine Class-Prozedur)

thomasschaf 31. Mär 2012 13:27

AW: Name einer Prozedur herausfinden
 
Aber wie funktioniert denn das von mir verlinkte Beispiel ?
Dort müssen die Namen der Prozeduren ja auch gespeichert sein.

Im Beispiel heißt die Funktion CallMeByName.
Dieser Wert wird als String übergeben:
Delphi-Quellcode:
   ExecMethod(Form1, 'CallMeByName') ;
Edit:
Diese Funktionen sehen wie jeweils Umkehr-Funktionen aus.
Die eine verwandelt den Namen in den Zeiger, die andere den Zeiger in den Namen (?)
Delphi-Quellcode:
class function MethodAddress(const name : shortstring) : pointer;
class function MethodName(address : pointer) : shortstring;

himitsu 31. Mär 2012 13:38

AW: Name einer Prozedur herausfinden
 
Hast du dir das dort drüben durchgelesen und verstanden?
ExecMethod = Execute Methode = Prozedur aufrufen
da steht nirgendwo, daß man damit den Methodennamen rausbekommt, abgesehn davon, daß man der Prozedur den Methodennamen selber geben muß. :wall:

Schau in die OH, was zu TObject.MethodAddress steht und dort findest du auch die Umkehrfunktion.

thomasschaf 31. Mär 2012 13:42

AW: Name einer Prozedur herausfinden
 
Habe ich hier leider nicht gefunden.
Danke trotzdem.

himitsu 31. Mär 2012 13:59

AW: Name einer Prozedur herausfinden
 
Nicht?

Klick dort mal auf "Übergeordnet TObject", denn MethodAAdress ist ja eine Methode von TObject.
Und dort findet man, unter den "Proceduren" von dem TObjekt, garantiert MethodName.
Dazu dann noch den Record TMethod und schon hat man alles.

Aber wozu guckst du in die Delphihilfe?
Ich würde in die Hilfe von FreePascal/Lazarus schauen, denn nicht alles muß in Beidem gleich funktionieren. :angle2:

Und nochmals:
Wie gesagt, dein fktB ist ein Prozedurzeiger und kein Methodenzeiger, also hilft MethodeName hier sowieso nichts.


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz