Idhttp Download fortsetzen

[Van HelF]

Ich habe folgenden code:

Delphi-Quellcode:

var fs:Tfilestream;
begin
  if fileexists(edit2.text) then
  begin
    fs:=TFileStream.Create(edit2.text,fmOpenReadWrite);
    fs.Position:=fs.Size;
  end
    else
    fs:=TFileStream.Create(edit2.text,fmcreate or fmShareDenyWrite);
  IdHTTP1.Get(edit1.Text,fs);
end;

Doch leider fühet dies beim abbrechen und fortsetzen dazu, dass die datei die dopplete größe hat und wieder von vorne anfängt zu laden (von der letzten pos an).

[Bernhard Geyer]

AFAIk muß das der Server unterstützten, da du ihm den geänderte Startposition mitteilen mußt.

[Van HelF]

Wird unterstützt, mit Flashget und Opera funktionierts ohne probleme.

[SirThornberry]

du musst auch den contentrange angeben, woher soll sonst idhttp wissen das du nicht alles herunterladen willst?!

[Van HelF]

Delphi-Quellcode:

var fs:Tfilestream;
begin
  try
    if fileexists(edit2.text) then
    begin
      fs:=TFileStream.Create(edit2.text,fmOpenReadWrite);
      fs.Position:=fs.Size;
      IdHttp1.Request.ContentRangeStart:=fs.Position;
    end
      else
      fs:=TFileStream.Create(edit2.text,fmcreate or fmShareDenyWrite);
    IdHTTP1.Get(edit1.Text,fs);
  finally
    idhttp1.Free;
    fs.Free;
  end;

Leider genau das gleiche, der download fängt immer wieder von vorne an.