IdHTTP Downloadgeschwindigkeit...

[gsh]

So frei aus dem Kopf sollte es auch so gehen (Gut das ich weiß welchen Code du benutzt):

Delphi-Quellcode:

procedure TForm1.IdHTTPWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
  FBytes := AWorkCount+FBytes;
end;

// Dann noch ein Timer der sagen wir mal jede Sekunde aufgerufen wird
procedure TForm1.OnTimer1(ASender: TObject)
begin
  if not((GetTickCount - FTime) <= 0) then
  begin
    try
      SpeedStatus.caption := Format('%.2f KB/s', [(AWorkCount - FBytes) / (GetTickCount - FTime)]);
    except
    end;
  end;
  FTime := GetTickCount;
  FBytes := 0;
  Application.ProcessMessages;
end;