Mam takie pytanie, dlaczego tak się dzieje że gdy wczytuje obraz do komponentu TImage, maleją zasoby, gdy wczytuje ponownie zasoby dalej maleją.
Na przykładzie będzie jasno o co chodzi:
for i:= 0 to 1000 do
Image1.Picture.LoadFromFile('Jakiś plik BMP');
Gdy uruchomię tą procedure program zawiesi cały system, z powodu braku zasobów. Dlaczego???
Gdzieś musisz nie zwalniać pamięci i zostaje zaprzepaszczona ona przez system, albo wczytuj sobie mniejsze pliki :)
for i:= 0 to 1000 do
begin
Image1.Picture:=nil;
Image1.Picture.LoadFromFile('Jakiś plik BMP');
end;
Dziekuje za pomoc, naprawde takie rady sam sobie potrafie wymyslic !!!
A co do tych dużych plikach, to tyle ze ja wczytuje pliki o rozmiarez 32x32 !!, wiec są bardzo wielkie !, Klapa!!!
Image1.Picture.Bitmap.FreeImage;