Keine Exceptions

[bcvs]

Hallo,

wie kann es eigentlich sein, dass in einem Projekt keine Exceptions mehr angezeigt werden?

Im Debugger sehe ich die Exceptions noch, aber im Programm selbst nicht. Gibt es da irgenwo eine globale Einstellung für so was?

Delphi 10.2 in dem Fall

[peterbelow]

Siehst Du keine Exception-Meldungen zur Laufzeit, d. h. Exe gestartet ohne Debugger oder außerhalb der IDE? Da fällt mir nur eine Möglichkeit ein: TApplication (und TApplicationEvents) haben einen Event OnException. Wenn Du dafür einen Handler angelegt hast, der die Exception nicht anzeigt, würde das die Symptome erklären.

[bcvs]

Zitat von peterbelow:

Siehst Du keine Exception-Meldungen zur Laufzeit, d. h. Exe gestartet ohne Debugger oder außerhalb der IDE?

Genau, so ist es. OnException habe ich nicht.

Ich vermute, es hängt mit dem MadExcept zusammen. Habe gerade noch etwas ausprobiert.

Hintergrundinfo:
Ich zwei Projekte, die sich das selbe Mainform und auch die meisten Units teilen und nur über ifdefs unterschiedlich kompiliert werden.

Die Projekte wurde gerade auf einen neuen Rechner mit neu installiertem Delphi portiert. Auf dem alten Rechner war in den Projekten das MadExcept aktiviert. Auf dem neuen Rechner war zunächst noch kein MadExcept installiert. Das habe ich gerade nachgeholt.

Jetzt habe ich folgende Situation, was die Anzeige von Meldungen im Exception-Fall angeht (Ich hoffe, das ist einigermaßen verständlich)

Code:

Alter Rechner
  MadExcept aktiviert
    Projekt A: MadExept-Meldungen 
    Projekt B: MadExept-Meldungen 

  MadExcept deaktiviert
    Projekt A: nichts 
    Projekt B: nichts

Neuer Rechner
  MadExcept aktiviert
    Projekt A: MadExept-Meldungen 
    Projekt B: nichts 

  MadExcept deaktiviert
    Projekt A: nichts 
    Projekt B: nichts

Was micht wundert ist, dass auch auch schon auf dem alten Rechner bei deaktiviertem MadExcept keine normalen Exceptions kommen. Das war mir vorher nicht aufgefallen. Und auf dem neuen Rechner kommt bei Projekt B überhapt nichts, auch nicht mit aktivem MadExcept.

Kann sich da jemand einen Reim drauf machen?

[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.