Mögliche Exceptions eines Objektes herausfinden

[himitsu]

Zitat:

angenommen eine nicht vorhandene Netzwerkverbindung löst beim Connect eine Exception aus. Dann probiere ich halt solange, bis die Verbindung wieder da ist

Sowas kann man aber auch in der/den Connections erledigen.
Indy und die meisten DB-Connections sollten ein passendes Event oder Optionen haben, wo man sagen kann, wie ereagiert werden soll.
> AbbruchMitException (Standard), AbbruchOnException (tu so als sei nix), VersuchsSofortNochmal, WarteBisslUndVersuchsNochmal (x Wiederholungen und dann Erstes) oder man ändert im Event etwas und versucht es dann nochmal (z.B. Umschalten auf einen alternativen Port/Host)

Bei uns hier ist nahezu jede im Programm verwendete Komponente erstmal abgeleitet.
So kann man Bugfixes, Erweiterungen und Änderungen am Verhalten problemlos zentral anpassen, ohne zigtausend Formulare überarbeiten zu müssen.

[Delphi.Narium]

Bei meinem Delphi gibt es im BIN-Verzeichnis 'ne Grep.exe. Wenn ich die so aufrufe

Code:

c:\Delphi7\Bin>grep -dni except "e:\delphi\*.pas > grep.except.log"

gräbt die sich durch alle .pas-Dateien in dem Verzeichnis und raus kommt eine Datei in der alle Dateiname, die Zeilennummer und die Zeile stehen, in der die Zeichenfolge Except zu finden ist.

Das kann für eine Datei dann z. B. so aussehen:

Code:

File e:\delphi\PNG\pngimage.pas:
250         {Custom exception handler}
251         Exception = class(TObject)
254         ExceptClass = class of Exception;
259       EPNGOutMemory = class(Exception);
260       EPngError = class(Exception);
261       EPngUnexpectedEnd = class(Exception);
262       EPngInvalidCRC = class(Exception);
263       EPngInvalidIHDR = class(Exception);
264       EPNGMissingMultipleIDAT = class(Exception);
265       EPNGZLIBError = class(Exception);
266       EPNGInvalidPalette = class(Exception);
267       EPNGInvalidFileHeader = class(Exception);
268       EPNGIHDRNotFirst = class(Exception);
269       EPNGNotExists = class(Exception);
270       EPNGSizeExceeds = class(Exception);
271       EPNGMissingPalette = class(Exception);
272       EPNGUnknownCriticalChunk = class(Exception);
273       EPNGUnknownCompression = class(Exception);
274       EPNGUnknownInterlace = class(Exception);
275       EPNGNoImageData = class(Exception);
276       EPNGCouldNotLoadResource = class(Exception);
277       EPNGCannotChangeTransparent = class(Exception);
278       EPNGHeaderNotPresent = class(Exception);
279       EPNGInvalidNewSize = class(Exception);
280       EPNGInvalidSpec = class(Exception);
539         procedure RaiseError(ExceptionClass: ExceptClass; Text: String);
1163      {Exception implementation}
1164      constructor Exception.Create(Msg: String);
4565    procedure TPngObject.RaiseError(ExceptionClass: ExceptClass; Text: String);
4567      raise ExceptionClass.Create(Text);
5030        except
5143      except RaiseError(EPNGCouldNotLoadResource, EPNGCouldNotLoadResourceText);
5180                  else raise Exception.Create('');
5182              else raise Exception.Create('');

oder

Code:

c:\Delphi7\Bin>grep -dni class\(exception\) "e:\delphi\*.pas" >grep.class_Exception.log

ergibt

Code:

File e:\delphi\PNG\pngimage.pas:
259       EPNGOutMemory = class(Exception);
260       EPngError = class(Exception);
261       EPngUnexpectedEnd = class(Exception);
262       EPngInvalidCRC = class(Exception);
263       EPngInvalidIHDR = class(Exception);
264       EPNGMissingMultipleIDAT = class(Exception);
265       EPNGZLIBError = class(Exception);
266       EPNGInvalidPalette = class(Exception);
267       EPNGInvalidFileHeader = class(Exception);
268       EPNGIHDRNotFirst = class(Exception);
269       EPNGNotExists = class(Exception);
270       EPNGSizeExceeds = class(Exception);
271       EPNGMissingPalette = class(Exception);
272       EPNGUnknownCriticalChunk = class(Exception);
273       EPNGUnknownCompression = class(Exception);
274       EPNGUnknownInterlace = class(Exception);
275       EPNGNoImageData = class(Exception);
276       EPNGCouldNotLoadResource = class(Exception);
277       EPNGCannotChangeTransparent = class(Exception);
278       EPNGHeaderNotPresent = class(Exception);
279       EPNGInvalidNewSize = class(Exception);
280       EPNGInvalidSpec = class(Exception);

Und für den Sack Raise aus China

Code:

c:\Delphi7\Bin>grep -dni raise "e:\delphi\*.pas" >grep.raise.log

bekommen wir sowas:

Code:

File e:\delphi\PNG\pngimage.pas:
539         procedure RaiseError(ExceptionClass: ExceptClass; Text: String);
1625        fOwner.RaiseError(EPngError, EPNGCannotAddChunkText)
1630        fOwner.RaiseError(EPngError, EPNGCannotAddChunkText)
1634        fOwner.RaiseError(EPngError, EPNGCannotAddInvalidImageText)
1826        if ResID = 0 then raise EPNGError.Create('');
2014          Owner.RaiseError(EPngInvalidCRC, EPngInvalidCRCText);
2242        Owner.RaiseError(EPNGError, EPNGCannotAssignChunkText);
2276        Owner.RaiseError(EPNGInvalidIHDR, EPNGInvalidIHDRText);
2289        Owner.RaiseError(EPNGSizeExceeds, EPNGSizeExceedsText);
2296        Owner.RaiseError(EPNGUnknownCompression, EPNGUnknownCompressionText);
2303        Owner.RaiseError(EPNGUnknownInterlace, EPNGUnknownInterlaceText);
2593      if Size > 256 then Owner.RaiseError(EPNGInvalidPalette,
2680                Owner.RaiseError(EPNGInvalidCRC, EPNGInvalidCRCText);
2692              Owner.RaiseError(EPNGMissingMultipleIDAT, EPNGMissingMultipleIDATText);
2736            Owner.RaiseError(EPNGZLIBError,
3501          Owner.RaiseError(EPngInvalidCRC, EPngInvalidCRCText);
4230      {Test if item is valid, if not raise error}
4232        Owner.RaiseError(EPNGError, EPNGUnknownPalEntryText)
4258        {Raise error}
4260        Owner.RaiseError(EPNGInvalidPalette, EPNGInvalidPaletteText);
4321        Owner.RaiseError(EPNGError, EPNGCannotAssignChunkText);
4333        Owner.RaiseError(EPNGError, EPNGCannotAssignChunkText);
4446        RaiseError(EPNGInvalidSpec, EInvalidSpec);
4564    {Raises an error}
4565    procedure TPngObject.RaiseError(ExceptionClass: ExceptClass; Text: String);
4567      raise ExceptionClass.Create(Text);
4621          {In case it does not exists, raise error}
4622          RaiseError(EPNGNotExists, EPNGNotExistsText);
4671        RaiseError(EPNGHeaderNotPresent, EPNGHeaderNotPresentText);
4766      if (BufferDC = 0) then RaiseError(EPNGOutMemory, EPNGOutMemoryText);
4774        RaiseError(EPNGOutMemory, EPNGOutMemoryText);
4966        RaiseError(EPNGInvalidFileHeader, EPNGInvalidFileHeaderText);
4988          RaiseError(EPNGUnexpectedEnd, EPNGUnexpectedEndText);
5000          RaiseError(EPNGIHDRNotFirst, EPNGIHDRNotFirstText);
5023            RaiseError(EPNGUnknownCriticalChunk, EPNGUnknownCriticalChunkText);
5032          raise;
5043        RaiseError(EPNGNoImageData, EPNGNoImageDataText);
5143      except RaiseError(EPNGCouldNotLoadResource, EPNGCouldNotLoadResourceText);
5180                  else raise Exception.Create('');
5182              else raise Exception.Create('');
5483        COLOR_RGBALPHA, COLOR_GRAYSCALEALPHA: Self.RaiseError(
5696        RaiseError(EPNGInvalidNewSize, EInvalidNewSize)

Sollte für den Anfang und einen ersten Überblick sicherlich erstmal reichen

Ok: Bei den von Dir genannten Mengen an Zeilen und Exceptions wird es wohl erstmal sehr viel als Ergebnis geben, aber sicherlich besser als alles manuell durchsehen zu müssen.

Wird das zu Suchende in mehreren Dateien gefunden, so enthält die Ausgabe halt mehrere derartige Blöcke in der Reihenfolge des Findens der Dateien.

Hilfe zum Grep: http://docwiki.embarcadero.com/RADSt...search_utility

[himitsu]

Zitat von grep except:

259 EPNGOutMemory = class(Exception);
260 EPngError = class(Exception);
261 EPngUnexpectedEnd = class(Exception);
262 EPngInvalidCRC = class(Exception);
263 EPngInvalidIHDR = class(Exception);
...

Und was ist mit vererrbten Exceptions, die nicht direkt von Exception abgeleitet wurden?

Wenn man schon nach "raise" (ganzes Wort) sucht, dann sollte man RaiseOuterException nicht vergessen.
Nach "raise" als Teilwort zu suchen kann massig Anderes Zeugs liefern,
wobei RaiseError hier wieder ein Sonderfall ist. (man findet darin das "raise" und darf dann auch noch nach der Funktion suchen)

[Delphi.Narium]

Man, das soll doch keine fertige Lösung sein, sondern nur ein Hinweis darauf, dass bei Delphi ein Grep dabei ist, mal drei Lösungsansätze für Teilmengen dabei und dann bitte gefälligst selbst nach der für den (nicht näher beschriebenen) Einzelfall suchen.

Grep kann reguläre Ausdrücke. Jetzt bist Du dran, weist ja zuweilen darauf hin, dass man damit viel machen kann. Sei so gut und liefere den passenden regulären Ausdruck, der alles, was Du jetzt meinst mit abfrühstücken zu müssen, liefert.

ff

[Jost Riedel]

Und was ist mit Exceptions, die nicht von System.SysUtils.Exception abgeleited sind?

Sowas ist leider (immer) noch möglich.

[himitsu]

Theoretisch ist es möglich, aber praktisch basiert die komplette Fehlerbehandlung darauf, somit sollte man sowas nicht machen.

Fehlerdialoge usw. zeigen sowas nicht an
und auch das except on E: Exception do ignoriert sowas. (wirkt dann ähnlich wie ein Abort/EAbort, außer dass es am ersten EXCEPT mit einem ON-DO abbricht)



Das "leider" war Absicht. (auch wenn es seit Einführung vor Jahrzehnten nie "richtig" benutzt wurde)



Ja klar kann RegEx viel, aber hier fängst dann an das RegEx rekursiv zu benutzen ... das ist dann bissl zuviel des Guten.
Dagegen ist der Weg über die RTTI ein Klacks. (nach dem Kompilieren)

[Jost Riedel]

Zitat von himitsu:

Theoretisch ist es möglich, aber praktisch basiert die komplette Fehlerbehandlung darauf, somit sollte man sowas nicht machen.

Fehlerdialoge usw. zeigen sowas nicht an
und auch das except on E: Exception do ignoriert sowas. (wirkt dann ähnlich wie ein Abort/EAbort, außer dass es am ersten EXCEPT mit einem ON-DO abbricht)

Du machst sowas nicht, und selbst ich mache das schon seit über 20 Jahren nicht mehr. Aber das ist hir nicht die Fragestellung: Es geht darum, aus einem großvolumigen, schlecht dokumentierten Sourcecode etwas sinnvolles zu extrahieren. Und da kann alles drin sein, was der Compiler akzeptiert.

[Delphi.Narium]

Wie wäre es denn, wenn wir den Threadersteller erstmal mit den bisher gegebenen Vorschlägen arbeiten lassen?

Das könnte schonmal 'ne nicht unerhebliche Menge an Ergebnissen liefern.

Und wenn dann noch was unklares überbleibt, kümmern wir uns um die (mehr oder weniger) exotischen Ausnahmen bei der Erstellung von Ausnahmen

Oder einfach mal nicht drauf hinweisen, dass es noch Sonderfälle gibt, sondern einfach mal direkt 'nen umsetzbaren Vorschlag, wie man die genannten Sonderfälle sinnvoll und sicher identifizieren kann

Zitat von Jost Riedel:

Und was ist mit Exceptions, die nicht von System.SysUtils.Exception abgeleited sind?

Sowas ist leider (immer) noch möglich.

Frei nach dem Motto: Und wie kann ich sie (weitgehend) sicher finden?

Zitat von himitsu:

Und was ist mit vererrbten Exceptions, die nicht direkt von Exception abgeleitet wurden?

Dito

Erster Vorschlag: Mal alle Exceptions der Sorte EIrgendeinName = class(Exception); suchen.
Mit dem Ergebnis suchen, ob es irgendwo ein EIrgendeinAndererName = class(EIrgendeinName); gibt.
Mit dem Ergebnis suchen, ob es irgendwo ein EIrgendeinNochAndererName = class(EIrgendeinAndererName); gibt.

Upps: Rekursionsgefahr.

Vielleicht doch erstmal nur mit dem Einfachen anfangen?

[dummzeuch]

Zitat von Delphi.Narium:

Bei meinem Delphi gibt es im BIN-Verzeichnis 'ne Grep.exe. Wenn ich die so aufrufe

Code:

c:\Delphi7\Bin>grep -dni except "e:\delphi\*.pas > grep.except.log"

gräbt die sich durch alle .pas-Dateien in dem Verzeichnis und raus kommt eine Datei in der alle Dateiname, die Zeilennummer und die Zeile stehen, in der die Zeichenfolge Except zu finden ist.

Und wenn man schon dabei ist, kann man mal schauen, an wie vielen Stellen das raise oder das Create fehlt:

Delphi-Quellcode:

if SomeCondition then
  raise Exception('some error message');

Grep nach "raise Exception\(" und "raise e[a-z]*\(".

und

Delphi-Quellcode:

if SomeCondition then
  Exception.Create('some error message');

Grep nach " e[a-z]*\.Create\("

(Davon gab es eine sogar in er Delphi 10.2 RTL.)

Ich habe damals darüber geblogt:

When an exception is nil in the exception handler

[himitsu]

PS: Vergesst auch nicht die ErrorCodes.
Error(reOutOfMemory);

Und für gewisse "Fehler" gibt es auch schon von Haus aus Funktionen.

Delphi-Quellcode:

Abort;  // ihr dürft aber auch gern raise EAbort.Create('irgndwas, wird eh ignoriert'); machen

OutOfMemoryError;  // und wenn der Speicher zu wenig ist, dann wurde dafür das Objekt schon vorher erstellt