ReadTimeout bei Download mit Indy

[marabu]

Hallo Christopher,

du kannst die Datei auch in mehreren Stücken laden. Das sieht vom Prinzip her dann ungefähr so aus:

Delphi-Quellcode:

function HTTPDownload(const url, fn: string): Boolean;
var
  s: TStream;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    if FileExists(fn)
      then s := TFileStream.Create(fn, fmOpenReadWrite or fmShareDenyWrite)
      else s := TFileStream.Create(fn, fmCreate);
    http.Request.ContentRangeStart := s.Size;
    http.Request.ContentRangeEnd := Pred(http.Response.ContentLength);
    http.Get(url, s);
  finally
    http.Free;
    s.Free;
  end;
end;

Grüße vom marabu