Keine Exceptions

[peterbelow]

Mit MadExcept habe ich selbst nie gearbeitet. Aber Du bist Dir sicher, daß die fraglichen Exceptions nicht in deinem eigenen Kode in einem try except-Block abgefangen und verschluckt werden und MadExcept sie nur wie der IDE Debugger auf einer tieferen Ebene detektiert und anzeigt bzw. ins Log schreibt?

Kannst Du das Problem in einem Testprojekt nachstellen?

Versuch auch mal, das DPROJ-File umzubenennen und das Projekt über das DPR-File zu öffnen. Ein neu erzeugtes DPROJ-File hat halt sicher keine historischen Artefakte drin...

[TurboMagic]

Hallo,

MadExcept kümmert sich eigentlich nur um Exceptions um die sich der Entwickler
noch nicht selber gekümmert hat.

[jaenicke]

Kannst du das denn nicht debuggen? Je nachdem, wo die Exception ausgelöst wird, gibt es natürlich unterschiedliche Stellen, an denen diese behandelt wird. Das kannst du aber im funktionierenden Projekt prüfen.

Beispiel:
Wenn die Exception in einem Buttonklick ausgelöst wird, landest du im except in TWinControl.MainWndProc, wo dann Application.HandleException aufgerufen wird (das dann die Messagebox anzeigt).

[bcvs]

Jetzt habe ich es gefunden: Es gab doch ein Application.OnException. Das hatte ich anscheinend verdrängt/vergessen. Den Code dafür hatte ich aus einem Forum des Datenbankherstellers (ElevateDB).

Delphi-Quellcode:

if Assigned(E) then begin
  if (E is EDatabaseError) and (E is EEDBError) then
    begin
      if EEDBError(E).ErrorCode=EDB_Error_SessionNotFound then
        begin
          // Exception in Logdatei Protokollieren
        end;
    end;
end;

Es sollte eigentlich so sein, dass hier nur das EDB_Error_SessionNotFound behandelt wird und alle anderen Exceptions unangetastet bleiben. Die werden aber auch verschluckt, was ich jetzt weiß.

Ich habe jetzt mal ein Application.ShowException(E) eingebaut. Dann funktioniert es wie gewohnt.

[himitsu]

AND?

Und im on E: irgendwas do ist E immer assigned.

Delphi-Quellcode:

except   
  on E: EEDBError do
    if E.ErrorCode = EDB_Error_SessionNotFound then
      ...
    else
      ...;
  on E: Exception do
    ...;
end;

[Uwe Raabe]

Es ist zwar nicht in einem except-Block, sondern im Application.OnException , aber selbst da ist die übergebene Exception immer eine gültige Instanz.

[dummzeuch]

Zitat:

ist die übergebene Exception immer eine gültige Instanz.

Hm, da bin ich mir nicht so sicher. ich meine mich zu erinnern, mal Ewigkeiten nach einem Bug gesucht zu haben, wo das Exception-Objekt NIL war. Wenn ich mich jetzt nur noch an die Details erinnern könnte.

Edit: Gefunden. Nur gut, dass ich über so was immer gleich blogge.