Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Докачка файла idhttp

Автор: Terikon 20.5.2012, 16:07

происходит полная закачка файла, тоесть качает не с тех байт которые я указал

Код


var
  loadfile: tfilestream;
  http: tidhttp;
begin
  loadfile := tfilestream.Create('d:\111rrrr3333', fmCreate);
  loadfile.Size := 10313520;
  loadfile.Position := 10313520;
  http := tidhttp.Create;
  http.Request.ContentRangeStart := 10313520;
  http.Request.ContentRangeEnd := 11313520;
  http.Get('http://download.qip.ru/2012/qip2012.exe', loadfile);
  loadfile.Free;
  http.Free;
end;

Автор: wendstor 21.5.2012, 13:51

Код

loadfile := tfilestream.Create('d:\111rrrr3333', fmCreate);

собственно вот здесь ошибка, вы каждый раз создаёте файл, по этому закачка возобновляеться с начала. А именно в параметре fmCreate.
вообще нужно так:
проверяем существует ли файл, если нет то создаём его если да то читаем длину файла и сравниваем дину файла на hdd и в сети, если разные то устанавливаем позицию на конец файла и начинаем докачку.