Numerischen Wert einer Callback Adresse ermitteln

[TurboMagic]

Hallo,

zum Zweck der Fehlersuche möchte ich den numerischen Wert einer
übergebenen Callback Adresse ermitteln:

Delphi-Quellcode:

type
  TMyCallback = procedure(b: Byte);

[..]
procedure DoIt(Callback: TMyCallback);
begin
  // Hier möchte ich die Speicheradresse auf die Callback zeigt numerisch bekommen 
  // um die in ein Log zu schreiben
end;

IntToStr geht schon mal nicht auch nicht mit @-Operator und Addr auch nicht.
Irgend jemand eine Idee?

Grüße
TurboMagic

[himitsu]

Delphi-Quellcode:

NativeInt(Callback)

, wobei ich mir (c-like) ein IntPtr gebastelt hab und dann

Delphi-Quellcode:

IntPtr(Callback)

.


Das betrifft aber nur Prozedur-Zeiger (oder statische Klassen-Methoden).
Bei Methoden (function ... of object) ist das bissl anders.


Adressen sind ja eigentich nicht negativ, drum müsste es eher NativeUInt/UIntPtr ein, aber ich bin faul (Buchstabe weniger) und Unsigned als Ziel kommt seltener vor.

PS: Format %s

[Redeemer]

Zitat:

Zitat von himitsu (Beitrag 1502445)

Delphi-Quellcode:

NativeInt(Callback)

, wobei ich mir (c-like) ein IntPtr gebastelt hab und dann

Delphi-Quellcode:

IntPtr(Callback)

.


Das betrifft aber nur Prozedur-Zeiger (oder statische Klassen-Methoden).
Bei Methoden (function ... of object) ist das bissl anders.

NativeInt(TMethod(Callback).Code)?

[Uwe Raabe]

Was an Addr geht denn nicht?

Delphi-Quellcode:

procedure DoIt(Callback: TMyCallback);
begin
  Writeln(Format('%p', [Addr(Callback)]));
end;

[TurboMagic]

Hallo,

danke für alle Antworten!
Das mit den Methoden wusste ich schon, das würde 2 Zeiger benötigen:
einen auf den Code der Methode und einen auf die Objecktinstanz zu der
die Methode gehört.

Zu Uwe's Frage: ich war vorhin in einer Hektik und hab' dadurch einfach nur
IntToStr(Addr(Callback)) versucht. Dazu meint der COmpiler, dass es keine
überladene IntToStr Methode die passt gibt.

Aber ich denke ich werde Uwe's Vorschlag benutzen. Danke!

Grüße
TurboMagic

[himitsu]

Addr gibt hier einfach nur den untypisierten Zeiger zurück,
also praktisch das Gleiche wie

Delphi-Quellcode:

Pointer(Callback)

.