Mehr Infos aus Application.OnException

[Alex_ITA01]

Hallo zusammen,
anbei ein Beispielcode, wie ich Exceptions abfange bzw. mehr Infos darüber erfahre.
Das ist ein Beispiel wo mit absicht natürlich eine Exception ausgelöst wird :-)

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    SL : TStringList;
    procedure OnException (Sender: TObject; E: Exception);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SL.Strings[0] = '' then
    exit;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if SL.Strings[1] = '' then
    exit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := OnException;

  SL := TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  SL.Free;
end;

procedure TForm1.OnException(Sender: TObject; E: Exception);
var
  TmpStr         : String;
  TmpLongWord    : LongWord;
  TmpPointer     : Pointer;
begin
  if not (csDesigning in ComponentState) then
  begin
    TmpStr := 'OnException: ' + E.Message;
    if Assigned (Sender) then
    begin
      TmpStr := TmpStr + ' - ClassName: ' + Sender.ClassName;
    end;

    TmpPointer  := ExceptAddr;
    Move (TmpPointer, TmpLongWord, SizeOf(TmpLongWord));
    TmpStr   := TmpStr + ' -ExceptADDR: ' + IntToStr (TmpLongWord);

    ShowMessage('OnException:' + TmpStr);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if SL.Strings[2] = '' then
    exit;
end;

end.

Der Timer hat mit Absicht ein Interval von 5000.
Wird eine Exception durch den Timer ausgelöst, steht in Classname "TTimer".
Wird eine Exception durch den Button ausgelöst, steht in ClassName "TForm1".
Jetzt ist die spannende Frage, wenn ich ein Projekt habe mit sehr vielen Units (Formularen) und überall ist ein Timer drauf, welcher mit Absicht eine Exception auslöst, wie bekomme ich raus, welcher Timer das war (also welcher Timer auf welchem Formular)? Da würde dann als Classname ja immer "TTimer" stehen aber ich wüsste nicht welcher es war.

Gruß
Alex

[Medium]

(Sender as TComponent).Owner bei Besitz-Beziehungen, bzw. (Sender as TControl).Parent bei visueller Eltern-Kind-Beziehung (und wenn Sender von TControl stammt).

Beim Owner müsste man das (zumindest wenn man nicht selbst Dinge mit Create(nil) erzeugt hat) bis zur TApplication Instanz rekursiv aufdröseln können.

[himitsu]

Delphi-Quellcode:

TmpPointer := ExceptAddr;
Move (TmpPointer, TmpLongWord, SizeOf(TmpLongWord));
TmpStr := TmpStr + ' -ExceptADDR: ' + IntToStr(TmpLongWord);


TmpStr := TmpStr + ' -ExceptADDR: ' + IntToStr(NativeUInt(ExceptAddr));  // Oder Cardinal (bei 32 Bit) oder sonstein passender Cast

Aber Adressen machen sich Hexadezimal irgendwie besser.

Und

Delphi-Quellcode:

'OnException: ' +

ist irgendwie etwas doppelt.

[Alex_ITA01]

Habe es jetzt so gemacht:

Delphi-Quellcode:

...
TmpStr := TmpStr + ' - ClassName: ' + Sender.ClassName;

if (Sender is TComponent) then
begin
  if Assigned((Sender as TComponent).Owner) then
    TmpStr := TmpStr + ' - OwnerName: ' + (Sender as TComponent).Owner.Name;
end;
...

Damit bekomme ich den Formularnamen. Das ist gut :-)

[himitsu]

Aber natürlich nur, wenn die Form der Owner ist, was bei selbsterstellten Komponenten nicht der Fall sein muß.

Ich nutzte etwas ähnliches, wo ich erstmal von der Componente den ClassName und wenn TComponent auch noch den Name anzeige.
Und dann rekursiv in einer Schleife die Parents runterrausche und alle Frames und Forms ebenfalls aufzähle.

[Alex_ITA01]

Das werde ich auch mal noch versuchen @Himitsu.
Als erstes reicht mir das erstmal :-)

Gruß
Alex