Delphi 2006 - Fehlerbehandlung - Event?

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TApplication.HandleException(Sender: TObject);
var
  O: TObject;
begin
  if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  O := ExceptObject;
  if IsClass(O, Exception) then
  begin
    if not IsClass(O, EAbort) then
      if Assigned(FOnException) then
        FOnException(Sender, Exception(O))
      else
        ShowException(Exception(O));
  end else
    SysUtils.ShowException(O, ExceptAddr);
end;

Eigentlich muß man da nichts machen.
Wenn etwas an OnException hängt, dann wird Dieses aufgerufen und ansonsten ShowException.
Und TApplicationEvents sollte sich direkt an Application.OnException hängen.

[LoewenZahn]

Hallo,

leider scheint dies, zumindest in meinem Borland 2006 nicht zu funktionieren:

Delphi-Quellcode:

procedure TApplication.HandleException(Sender: TObject);
begin
  if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  if IsClass(ExceptObject, Exception) then
  begin
    if not IsClass(ExceptObject, EAbort) then
      if Assigned(FOnException) then
        FOnException(Sender, Exception(ExceptObject))
      else
        ShowException(Exception(ExceptObject));
  end else
    SysUtils.ShowException(ExceptObject, ExceptAddr);
end;

Und hier das OnException:

Delphi-Quellcode:

procedure TFormMain.ApplicationEvents1Exception(Sender: TObject; E: Exception);
Var F : textFile;
begin

  //Ausgabe des Fehlers in einem TAdvSmoothMessageDialog:
  md.HTMLText.Text := 'Es ist ein Schwerwiegender Fehler augetreten:<br/><br/><ul><li>'
                     +E.Message
                     +'</li></ul><br/><br/>Bitte kontaktieren Sie den Support.';
  md.Caption := 'Schwerwiegender Fehler';
  md.Execute;

  //Speichern des Errors in einer Textdatei:
  AssignFile(F,Dir_StartDir+'errorlog\'+loginname+'.log');
  If Not FileExists(Dir_StartDir+'errorlog\'+loginname+'.log') Then Rewrite(F)
  Else Append(F);

  Writeln(F,DateTimetostr(Now)+': '+E.Message+' | ActiveWindow: '+recent_visited_form.text);
  CloseFile(F);

end;

Ist ja auch halb so wild wenn ich es über die Einstellungen/Obtionen von Borland mache. Aber wohl ist mir dabei nicht

Gruß und danke für die bisherige Hilfestellung!

[jaenicke]

Zitat von LoewenZahn:

Danke für deine Hilfestellung. Ich habe jetzt die TApplicationEvents verwendet und mir dort eine Schicke Ausgabe erarbeitet. Trotzdem erscheint noch die Standardnachricht von Delphi über das Problem.

Delphi selbst zeigt dir, wenn du das Programm darüber im Debugger startest, die Exception an, auch wenn sie im Programm behandelt würde. Denn du möchtest das Programm doch gerade debuggen, und deshalb möchtest du doch die Fehler gerade erkennen.

Was ich nicht verstehe:
Wenn du das Problem im Debugger bekommst, warum behebst du es dann nicht dort auch? Das ganze Exception-Handling ist doch hauptsächlich dafür da, dass man einen Fehler abfängt und sauber loggt, den man im Test so nicht bekommt und daher nicht beheben kann.

[LoewenZahn]

Hallo Jaenicke.

Zitat von jaenicke:

Was ich nicht verstehe:
Wenn du das Problem im Debugger bekommst, warum behebst du es dann nicht dort auch? Das ganze Exception-Handling ist doch hauptsächlich dafür da, dass man einen Fehler abfängt und sauber loggt, den man im Test so nicht bekommt und daher nicht beheben kann.

Ich bekomme das Problem/den Fehler während des laufenden Betriebes und möchte dort die Standardmeldung abfangen. Es ist nicht so, dass ich einen gewissen Fehler habe, dessen Ausgabe ich verhindern möchte. Vielmehr ist es so wie du sagst, dass ich einen unerwarteten Fehler abfangen und dokumentieren möchte.

Gruß

[himitsu]

Das OnException-Event wird noch vor dem Delphi-Exception-Dialog angeziegt?
Man könnte versuchen nach seiner Behandlung ein

Zitat:

Abort;

reinmachen, ber ich weiß nicht wie es an dieser Stelle reagiert.

Abort löst eine "stille" Exception aus (Diese werden standardmäßig nicht angeweigt), überspringt damit alle nachfolgenden Programmcodes,
aber wenn diese Exception nicht abgefangen wird und bis zum Windows durchrauscht, dann könnte das Programm abkratzen.