aktuelle Quellcodezeile im Programm ermitteln

[jus]

Zitat von MaBuSE:

Die JCL (JEDI Component Library) kann das zum Beispiel.

@MaBuSE: Vielen vielen Dank für den Tipp!
Da ich sowieso JCL im Einsatz habe, habe mich entschieden doch JCL zu verwenden und bin somit davon abgegangen den "System.AssertErrorProc" zu manipulieren, da vermutlich andere Asserts/Exceptions von anderen Units damit auch abgefangen werden.

Nach einigen Experimenten funktioniert folgender Code für mein Vorhaben zufriedenstellend:

Delphi-Quellcode:

implementation

uses JclDebug;

procedure LogMsg(Msg:String);
var
  s: String;
begin
  s := Format('%s:%u (%s) "%s"',[FileByLevel(1), LineByLevel(1), ProcByLevel(1), Msg]);
  WriteToLogFile(s);  // <----- ist nur exemplarisch gemeint ;-)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LogMsg('Fehlermeldung: Blablabla...');
end;

Achja, für Leute die eingehend sich mit den Möglichkeiten von JCL Debug beschäftigen möchten, weitere Beispiele findet man im JCL Installationsunterverzeichnis unter ".\examples\windows\debug". Der obige Code basiert in Prinzip auf JCL Beispiel ".\examples\windows\debug\sourceloc\SourceLocExamp le.dpr".

Lg,
jus

[MaBuSE]

Zitat von jus:

Nach einigen Experimenten funktioniert folgender Code für mein Vorhaben zufriedenstellend

Wenn ich nur den Stack haben will mache ich folgendes:

Delphi-Quellcode:

...
// Form mit 1 x TButton + 1 x TMemo
implementation

uses
  jclDebug;

{$R *.dfm}

function GetStackList(
  IncludeModuleName: Boolean = False;
  IncludeAddressOffset: Boolean = False;
  IncludeStartProcLineOffset: Boolean = False;
  IncludeVAddress: Boolean = False): string;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    with TJclStackInfoList.Create(True, 0, nil) do
    try
      Delete(0); // TJclStackInfoList
      Delete(0); // TJclStackInfoList
      Delete(0); // GetStackList
      AddToStrings(sl, IncludeModuleName, IncludeAddressOffset, IncludeStartProcLineOffset, IncludeVAddress);
    finally
      Free;
    end;
    Result := sl.Text;
  finally
    sl.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(GetStackList);
end;

end.

Da kommt dann der Stack wie folgt raus:

Code:

[004DF643] Unit1.TForm1.Button1Click (Line 57, "Unit1.pas")
[00470E2B] Controls.TControl.Click (Line 7190, "Controls.pas")
[0049BD52] StdCtrls.TCustomButton.Click (Line 4562, "StdCtrls.pas")
[0049C840] StdCtrls.TCustomButton.CNCommand (Line 5023, "StdCtrls.pas")
[004708C0] Controls.TControl.WndProc (Line 7074, "Controls.pas")
[00475184] Controls.TWinControl.WndProc (Line 9831, "Controls.pas")
...

[MaBuSE]

Zitat von MaBuSE:

Wenn ich nur den Stack haben will mache ich folgendes

Oft macht es Sinn zu wissen von wem bzw. wo meine Funktion aufgerufen wurde.

[edit]dummerweise Zitat statt Bearbeiten gedrückt. sorry[/edit]

[himitsu]

Zitat von MaBuSE:

Zitat von MaBuSE:

Wenn ich nur den Stack haben will mache ich folgendes

Oft macht es Sinn zu wissen von wem bzw. wo meine Funktion aufgerufen wurde.

Für den Anfang versteckt sich in der System.pas eine kleine Funktion, um an die Aufruferadresse rauszubekommen.
ReturnAddress (OK, das ist die Rücksprungadresse, also die Adresse hinter dem Assembler-Call)

Das wird von einigen Exceptions verwendet, wie z.B. Abort, Error, Abstract-Error und dem SoftCast (AS).

Man bekommt zwar keine genaue Codezeile, aber wenn man den zugehörigen Quellcode noch hat, könnte man diese Adresse dennoch zuordnen, solange man die Startadresse des Moduls (EXE/DLL/BPL) kennt.
Und man muß ein bissl beachten. (so entspricht die Adresse nicht immer, wenn z.B. kein Stackframe vorhanden ist)