verbleibende Zeit eines Downloads?

[mlspider]

Wie könnte man die Dauer eines Downloads feststellen und während eines Downloads stänig aktualisieren?

[Tormentor32]

Du musst nur wissen, wie groß die Datei ist, die du runterlädst, und die aktuelle Geschwindigkeit.

[NormanNG]

hi,

schau mal hier

[mlspider]

So etwas in dieser Richtung habe ich mir schon fast gedacht. Die Dateigrösse und die aktuelle Geschwindigkeit ist mir bekannt. Ich lasse diese Werte auf Labels ausgeben.

[mlspider]

Irgendwie wil garnichts klappen. Ich poste mal kurz die entscheidenen Stellen:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    FTime: Longword;
   FBytes: Longword;



...

procedure TLizenz.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 FTime := GetTickCount;
 FBytes := 0;
end;

procedure TLizenz.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
 if (GetTickCount - FTime) >= 1000 then
 begin
   //Downloadgeschwindigkeit
   label8.caption := Format('%.2f KB/s', [(AWorkCount - FBytes) / (GetTickCount - FTime)]);
   FTime := GetTickCount;
   FBytes := AWorkCount;
 //bereits geladen von Gesamtgrösse
 Label6.Caption := 'Download läuft !   '+' ('+inttostr(AWorkCount div 1024)+' kB von '+inttostr(IdHTTP1.Response.ContentStream.Size div 1024)+' kB)';
 Gauge1.Progress := AWorkCount*100 div IdHTTP1.Response.ContentStream.Size;
 application.ProcessMessages;
end;
end;

[MrKnogge]

Zitat:

Delphi-Quellcode:

Gauge1.Progress := AWorkCount*100 div IdHTTP1.Response.ContentStream.Size;

Probier mal:

Delphi-Quellcode:

Gauge1.Max := IdHTTP1.Response.ContentStream.Size;
Gauge1.Progress := AWorkCount;

Gruß

[mlspider]

Und wie übergebe ich dies zb. an ein Label?

[MrKnogge]

Ich dachte das hast du bereits ?

Delphi-Quellcode:

Label6.Caption := 'Download läuft !   '+' ('+inttostr(AWorkCount div 1024)+' kB von '+inttostr(IdHTTP1.Response.ContentStream.Size div 1024)+' kB)';

[mlspider]

Dies gibt mir doch die bereits geladenen Bytes aus. Jedoch nicht die restlich verbleibene Zeit.

[MrKnogge]

Delphi-Quellcode:

(IdHTTP1.Response.ContentStream.Size - AWorkCount) div iAktelleDownloadGeschwindigkeit

Gruß