XP Usermanagers 6.1 Open Source

[jaenicke]

Zitat von Delphi-Laie:

Der Fehler passiert in der Funktion "ImportXMLThread" und erstaunt mich insofern, als daß dort doch mit "try..finally" ihm entgegengewirkt wird.

Oh, böse.
Die Methode Import liefern zwar einen Boolean zurück, schmeißt aber bei Misserfolg eine Exception.
Da das eine Threadmethode ist, landet die dann direkt in den aufrufenden Windows-Routinen.

Bei der Konstellation macht es gar keinen Sinn eine Exception zu werfen. Dazu kommt, dass Exception.Create in Unit Exceptions inherited nicht aufruft und somit die Message der Exception noch dazu leer ist.

try..finally sorgt ja nur dafür, dass Import.Free noch ausgeführt wird, behandelt aber den Fehler nicht.

Und CoDOMDocument40.Create ist auch etwas veraltet, das gibt es auch neueren Systemen vermutlich gar nicht mehr.

Ich schaue mal sobald ich dazu komme. Sollte schnell gehen.

[Luckie]

Zitat von jaenicke:

Zitat von Delphi-Laie:

Der Fehler passiert in der Funktion "ImportXMLThread" und erstaunt mich insofern, als daß dort doch mit "try..finally" ihm entgegengewirkt wird.

Oh, böse.

Ich war jung und brauchte den Code.

[jaenicke]

Zitat von Luckie:

Ich war jung und brauchte den Code.

Och, das passiert öfter als du vielleicht denkst.
Und solange man dann in diesem Fall nicht eine solche Fehleingabe macht, merkt man es ja auch nicht.

[Delphi-Laie]

Zitat von jaenicke:

Bei der Konstellation macht es gar keinen Sinn eine Exception zu werfen. Dazu kommt, dass Exception.Create in Unit Exceptions inherited nicht aufruft und somit die Message der Exception noch dazu leer ist.

Naja, ich glaubte bisher eigentlich, daß "try" einen solchen fehlerbedingten Programmabsturz zuverlässig bzw. immer verhindert.

Daß "except" im Fehlerfalle, und zwar unmittelbar danach, aktiv wird, ist klar.

Demnach hatte ich bisher bei "try...finally" eine solche Funktionalität im Hinterkopf, daß Fehler abgefangen, aber im Fehlerfalle (wird der Rest im try nach dem Fehler noch ausgeführt?) keine weitere Aktion erfolgt, danach aber in jedem Falle der Code im finally-Teil ausgeführt wird.

[jaenicke]

Zitat von Delphi-Laie:

Demnach hatte ich bisher bei "try...finally" eine solche Funktionalität im Hinterkopf, daß Fehler abgefangen, aber im Fehlerfalle (wird der Rest im try nach dem Fehler noch ausgeführt?) keine weitere Aktion erfolgt, danach aber in jedem Falle der Code im finally-Teil ausgeführt wird.

Beides macht das gleiche, wenn b mal angenommen eine Exception wirft und mal nicht:

Delphi-Quellcode:

a;
try
  b;
finally
  c;
end;

// und:
a;
try
  b;
  c;
except
  c;
  raise;
end;

In beiden Fällen wird c ausgeführt und der Fehler wieder geraised und somit weitergereicht. Finally bewirkt das nur automatisch.

[Luckie]

Mein Gedankengang war wohl, dass man auch nur vom Usermanger erstellte XML-Dateien importiert, deswegen habe ich die Fehlerbehandlung an dieser Stelle etwas vernachlässigt. Vielleicht wollte ich sie auch noch einbauen, habe es aber nur vergessen.

[jaenicke]

Zitat von Luckie:

Mein Gedankengang war wohl, dass man auch nur vom Usermanger erstellte XML-Dateien importiert

Deshalb ist die Grundregel in der Qualitätssicherung:
Lass nie denjenigen testen, der es gebaut hat. Der macht es ohnehin so wie er es gebaut hat und kommt gar nicht auf andere "kreativere" Nutzungsmöglichkeiten.

[nahpets]

Das ist eigentlich wie beim Korrekturlesen von Texten: Die Fehler in den eigenen Texten findet man nicht.

Man liest das, von dem man meint, dass man es geschrieben habe und nicht das, was man tatsächlich geschrieben hat.

Zum Testen nehme man kreative Chaoten

[Delphi-Laie]

Zitat von Luckie:

Mein Gedankengang war wohl, dass man auch nur vom Usermanger erstellte XML-Dateien importiert, deswegen habe ich die Fehlerbehandlung an dieser Stelle etwas vernachlässigt. Vielleicht wollte ich sie auch noch einbauen, habe es aber nur vergessen.

Also, ich war zugegebenermaßen ein wenig "bösartiges Scriptkiddy". Kam auf die Idee, es mit einer veränderten XML-Datei zu versuchen. Kann ja auch durch einen Schreib-/Lesefehler evtl. passieren.

Parallel dazu wurde mir bewußt, auch meine Ini-Dateien in dieser Hinsicht abzusichern. Aber Pustekuchen, an ungültige Ini-Dateien komme ich mit try nicht heran.

[Delphi-Laie]

Hallo Luckie und die anderen Experten, bitte habt die Geduld mit mir, weil ich noch Fragen habe.

Die Nachrichtenschleife des XP Usermanagers ist nicht minimalistisch. Dort steht unter anderem:

Delphi-Quellcode:

Ret := GetMessage(msg, 0, 0, 0);
if Integer(Ret) = -1 then Ret := True; // -1 nur bei fehlerhaften Handles oder Pointern, kann das überhaupt passieren?

Es geht um die zweite Zeile, der Kommentar besagt schon die erste Frage: Ist das nur zur 100%igen Sicherheit, oder kann es auch bei regulärer Programmumgebung und -benutzung passieren, daß Getmessage einen Errorcode, also -1 zurückliefert.

Die zweite - kleine - Unklarheit ergibt sich durch die nächste Codezeile:

if (not Ret) then break; // nötig?

Auch hier sagt der Kommentar schon mein Anliegen. Denn auch ohne diese Zeile läßt sich nämlich das Programm mit Alt+F4, "Datei -> Beenden" und / oder Druck auf "x" beenden.

Danke für die Aufmerksamkeit und Geduld!

Gruß

Delphi-Laie