Witam
Robie sobie takie male przetwarzanie wsadowe ale mam pewien problem
petla wczytujaca i obrabiajaca kolejne bitmapy wykonuje sie dokladnie i za kazdym razem tylko 49 razy po czym komunikat grzmi: Stream read error
tak samo jest na tbitmap jak i timage czy timage32 z gr32
czy cos trzeba dopisac przy wielokrotnym wczytywaniu obrazkow?
oto kod petli:
bm:tbitmap;
for i:=0 to checklistbox1.items.Count-1 do
begin
if checklistbox1.Checked[i] then
begin
try
bm:=tbitmap.Create;
bm.LoadFromFile(checklistbox1.Items[i]);
ramka(ggrubosc.Position,gkrycie.Position,'');
form1.Canvas.Draw(0,0,bm);
plik:='n'+extractfilename(checklistbox1.Items[i]);
plik:=ChangeFileExt(plik, '.bmp');
plik:=extractfiledir(checklistbox1.Items[i])+'\'+plik;
bm.SaveToFile(plik);
finally
bm.free;
end;
application.ProcessMessages;
end;
end;