Hi. Habe ein von anderen geschriebenes Programm und versuche da einen Fehler zu finden.
Das Programm liest Bilder ein und verarbeitet die. Je nach Bildergröße funktioniert die Verarbeitung oder auch nicht.
Konnte die maximal verarbeitbare Größe auf 22000000 bis 22056990 Pixel eingrenzen.
Was genau in der Verarbeitung passiert kann ich im Moment noch nicht sagen. Jedenfalls haut einen das Programm an folgender Stelle raus, wenn die Pixelanzahl im Bereich ab 22056990 liegt.
Delphi-Quellcode:
Dessin_Kon_VS:=TImage.Create(Self);
Dessin_Kon_VS.Parent:=DessinKon_VS_Form.ScrollBox;
Dessin_Kon_VS.Name:='Dessin_Kon';
Dessin_Kon_VS.SetBounds(5,5,X_Size_D,Y_Size_D); // <-- funktioniert noch
Dessin_Kon_VS.Canvas.Pen.Color:=clWhite; // <-- Errormeldung
Dessin_Kon_VS.Canvas.Rectangle(0,0,X_Size_D,Y_Size_D);
Dessin_Kon_VS.Canvas.Brush.Color:=clWhite;
Dessin_Kon_VS.Canvas.FloodFill(1,1, clWhite, fsBorder);
Es kommt an der Stelle eine Fehlermeldung EOutOfResources, also nicht genug Speicher.
Dessin_Kon_VS ist vom Typ TImage.
Kann es sein, dass TImage eine Größenbegrenzung hat? Oder evtl der Canvas-Befehl?