Windows liefert ja seit XP so schöne DebugInformationen .. z.B. Dieses:
Delphi-Quellcode:
Function CaptureStackBackTrace(FramesToSkip, FramesToCapture: LongWord;
BackTrace: Pointer; Var BackTraceHash: LongWord): Byte; StdCall;
External 'Kernel32.dll' Name 'RtlCaptureStackBackTrace';
Procedure TForm1.FormCreate(Sender: TObject);
Var B: Byte;
P: Array[0..62] of Pointer;
H: LongWord;
i: Integer;
Begin
FillChar(P, SizeOf(P), 255);
B := CaptureStackBackTrace(0, 62, @P, H);
Edit1.Text := Format('Hash:$%8.x ', [H]);
For i := 0 to B - 1 do Edit1.Text := Edit1.Text + Format('$%p ', [P[i]]);
End;
Hier stehen natürlich nur die Rücksprungzeiger drinnen.
StackFrames sollten besser an sein, sonst kann es sein, daß 'ne "kleine" Funktion einfach übersehn wird.
(von vorn nach hinten: die erste Adresse ist also die Rücksprungadresse hinter den Aufruf von CaptureStackBackTrace)
Nun meine Frage:
Direkt mit Delphi ist es da doch nich möglich aus den Zeigern Funktionsnamen zu machen?
Also selbst wenn man alle möglichen delphieigenen Debuginformationen in der EXE aktiviert hat.
Der Debugger kennt sie ja, aber die wird er wohl nur aus der .DCU rausholen.
