Diese Prüfung der Bildgrösse ist ziemlich schlecht gelöst.
Mal angenommen der Benutzer hat ein Bild 240 * 180 und er kann sich auf den Kopf stellen, aber er bekommt das Bild nicht in die
DB.
Was mag der User wohl denken?
Wird er das Programm gut finden oder sich ärgern?
Natürlich wird er sich über das dumme Programm ärgern denn der User wird regelrecht entmündigt.
Für den Programmierer heisst das er darf eine Warnung ausgeben, aber er darf den User nicht blockieren.
Code:
Warnung
Das Bild C:\test\urlaub.jpg hat eine Grösse von 240 * 180.
Mindestgrösse 100*100, Maximalgrösse 200*200
[OK] [Ignorieren]
Und dann sollte die Prüfung in einer eigenen Funktion stattfinden, anstatt alles in PictureBtnClick zu erledigen.
Dies verbessert die esbarkeit und die Erweiterungsfähigkeit des Codes.
Delphi-Quellcode:
function TForm1.ImageBoundsOK(const filename:string; width,height:Integer):Boolean;
begin
// jenachdem wie gross das Bild ist wird eine Warnung angezeigt oder nicht
// der Benutzer darf die Warnung ignorieren
// Result = True => Bildgrösse ist in Ordnung (oder Benutzer hat Warnung ignoriert)
// Result = False => Bildgrösse nicht OK
//
end;