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

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

hi,

schau mal hier

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.

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

zusammenfalten · markieren

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;

Zitat:

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

Probier mal:

markieren

Delphi-Quellcode:

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

Gruß

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

Ich dachte das hast du bereits ?
Label6.Caption := 'Download läuft ! '+' ('+inttostr(AWorkCount div 1024)+' kB von '+inttostr(IdHTTP1.Response.ContentStream.Size div 1024)+' kB)';

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

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