Witam... Napisałem procedurę pobierającą plik z internetu:
rozmiar:=(IdHTTP.Response.ContentLength);
mainform.progressbar1.Max:=rozmiar;
repeat
application.ProcessMessages;
if bufor>rozmiar-pobrane
then
begin
idhttp.Request.Range:=inttostr(pobrane)+'-'+inttostr(rozmiar);
Ffile.seek(pobrane,sofrombeginning);
idhttp.Get(dwnlink,Ffile);
mainform.Label1.Caption:=inttostr(((mainform.ProgressBar1.Position)*100)div rozmiar);
mainform.lblSizeDWN.caption:=inttostr((pobrane div 1024))+' KB / '+inttostr((rozmiar div 1024))+' KB';
mainform.ProgressBar1.Position:=rozmiar;
ostatnipostep:=0;
pobrane:=rozmiar;
mainform.progressbar1.Position:=rozmiar;
end
else
begin
idhttp.Request.Range:=inttostr(pobrane)+'-'+inttostr(pobrane+bufor);
Ffile.seek(pobrane,sofrombeginning);
idhttp.Get(dwnlink,Ffile);
pobrane:=pobrane+bufor;
mainform.Label1.Caption:=inttostr(((mainform.ProgressBar1.Position)*100)div rozmiar);
mainform.lblSizeDWN.caption:=inttostr((pobrane div 1024))+' KB / '+inttostr((rozmiar div 1024))+' KB';
mainform.progressbar1.Position:=pobrane;
mainform.Label1.caption:= inttostr((pobrane*100) div rozmiar)+'%';
mainform.progressbar1.Position:=pobrane;
Plik pobiera się, wszystkie statystyki prawidłowo działają, ale plik (np archiwum) nie chce się otworzyć lub jest uszkodzone... Gdzie może być błąd. Może pobiera się zły rozmiar pliku... Proszę o pomoc. Pozdrawiam