Adresse einer Funktion ermitteln

[arnold mueller]

Hallo zusammen,

ich möchte gerne die Adresse einer Prozedur ermitteln. Diese möchte ich dann in den IDE Dialog Laufzeitfehler suchen eingeben um an die entsprechende Quellcodezeile springen zu können.

Derzeit mache ich das so (exemplarisch)

Delphi-Quellcode:

procedure TDummy.Procedure1();
var Address: Pointer;
begin
  asm
    mov   eax, [ebp+04]
    dec   eax
    mov   [Address], eax
  end;

  Address ausgeben;
end;

procedure TDummy.Procedure2();
var Address: Pointer;
begin
  asm
    mov   eax, [ebp+04]
    dec   eax
    mov   [Address], eax
  end;

  Address ausgeben;
end;

procedure TForm1.Button1Click(Sender: TObject)
begin
  Dummy.MyProcedure1; -> hier soll Laufzeitfehler suchen hinspringen bei Procedure1
  Dummy.MyProcedure2; -> entsprechend hier bei Procedure2 
end;

Den Assembler Part möchte ich nicht in jeder Funktion der TDummy Klasse wiederholen. Ich würde mir eine Funktion GetAddress wünschen.

Delphi-Quellcode:

function TDummy.GetAddress: Pointer;
begin
  asm
     ????
  end;
end;

procedure TDummy.MyProcedure1;
var Address: Pointer;
begin
  Address := GetAddress;

  Address ausgeben
end;

procedure TForm1.Button1Click(Sender: TObject)
begin
  Dummy.MyProcedure1;
end;

Die 3 Zeilen Assembler habe ich in mühseliger Kleinarbeit im CPU Fenster abgeguckt, für mein Vorhaben mit der Funktion GetAddress reichen meine Kenntnisse aber offensichlich nicht aus. Ich hoffe jemand von euch kann mir da weiterhelfen.

VG
Arno

[Dax]

Soweit ich weiß kannst du dir die Adresse einer Methode einfach mit @@Methode holen. Mit Assembler kommst du ohne viel Arbeit nur auf die Adresse des Bytes, das deine GetAddress-Funktion aufgerufen hat..

[arnold mueller]

Hallo Dax,

der Titel ist ein wenig irreführend. Ich möchte nicht die Adresse der Funktion oder Prozedur, sondern ich möchte das die neue Funktion GetAddress die Adresse des Aufrufs des Aufrufers von GetAddress ermittelt.

Sorry, ich weiß nicht wie ich es anders formulieren soll ...

-
Arno

[Dax]

Ach soooo :) Na das dürfte so gehen:

Delphi-Quellcode:

function GetCallingAddress: Cardinal;
asm
  mov eax, [esp+4]
end;

Oder [esp-4]... Die Details hab ich vergessen...

[arnold mueller]

Ne, das klappt nicht :-(

Ich habe mal ein Beispiel Projekt erstellt.

[Dax]

Oha :) Da hab ich nicht im Vorzeichen, sondern in der 4 geirrt.

Delphi-Quellcode:

function GetCallingAddress: Cardinal;
asm
  mov eax, [esp]
end;

So geht es wirklich :)

edit: :oops: Da hab ich wohl nicht nur den Titel, sondern auch die Erklärung dessen missverstanden.

noch eins:

Delphi-Quellcode:

function GetCallingAddress: Pointer;
asm
    mov   eax, [eax]
    mov   eax, [ebp+04]
    dec   eax
end;

Das geht jetzt aber wirklich..

[arnold mueller]

Ähm Dax, hast Du mein Beispiel Projekt ausprobiert?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var p: Pointer;
begin
  FDummy.Procedure1;  // <- Hier möchte ich hin ;-)
end;

{snip}

procedure TDummy.Procedure1;
var Address: Cardinal;
begin
  Address := GetCallingAddress;  // <- Bei Deinem Vorschlag landen wir hier

  {snip}
end;

-
arno

[Dax]

Ja, aber erst im Nachhinein.. Das war ein Fehler :wall:

Die Funktion aus dem Edit liefert aber den gleichen Wert wie dein Assembler-Schnipsel :)

[arnold mueller]

Jawoll, jetzt klappt es. Schonmal vielen herzlichen Dank :-D

Aber ich verstehe den Code nicht :oops:

Kannst Du bitte noch ein paar erklärende Zeilen schreiben?

[Dax]

Leider nicht, ich hab nur deinem Code noch eine Indirektionsebene (zum nächsten Caller) hinzugefügt.. Irgendwann wird das aber zwangsläufig schiefgehen, da Delphi nicht bei jeder Funktion den Stackpointer sichert ;)