Witam, w timerku napisalem kodzik, ktory wrzuca z dysku co sekunde zdjecie (jpg) do TImage, jednak po kilkunastym zdjeci wyskakuje mi blad: JPEG error # 42, podejrzewam ze jest to przepelnienie pamieci :], ale nie wiem jak rozwiazac ten problem wiec jesli mozecie to wskazcie mi blad w ponizszym kodziku:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
if FileExists (zrodlo + '\screen' + IntToStr(slajd) + '.jpg') then
begin
Image1.Picture.LoadFromFile(zrodlo + '\screen' + IntToStr(slajd) + '.jpg');
Label2.Caption := IntTOStr(slajd);
Inc(slajd);
end
else
begin
Timer1.Enabled := false;
showmessage ('Koniec sesji');
end;
end;