Mein Problem: Um die Downloadgeschwindigkeit zu ermitteln benutze ich immer die Methode mit IdHTTP1.get also in etwa so:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCountMax: Integer);
begin
  FTime := GetTickCount;
  FBytes := 0;
  Application.ProcessMessages;
end;

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
 if not((GetTickCount - FTime) <= 0) then
  begin
    try
      label1.caption := Format('%.2f KB/s', [(AWorkCount - FBytes) / (GetTickCount - FTime)]);
    except
    end;
  end;
  FTime := GetTickCount;
  FBytes := AWorkCount;
  Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdHTTP1.get(downloadurl);
end;

Jetzt möchte ich aber, dass die Downloadgeschwindigkeit die ganze Zeit ermittelt wird, ohne dass eine Datei heruntergeladen wird.
Geht das überhaupt mit IdHTTP oder sonst einem Komponenten?

Wenn keine Datei runtergeladen wird ist die Downloadgeschwindigkeit null. Genauso wie der Tacho null anzeigt, wenn das Auto steht.

Ok dann mach ich das halt mit alle 5 Minuten ne Datei runterladen und wieder löschen.

Noch ne Frage: Wie kann ich ne eingegebene Zahl aus nehm Edit in den Timer übernehmen also wenn ich 5 eingebe das dann der Timer auf 5 gesetzt wird?

etnwerden im button oder im onkeydown bzw. onkeypress ereigniss vom edit feld einfach die zeile einfuegen.

Timer1.Intervall := strtoint(edit.text);

Danke das wars schon

Zitat von kaschte:

Ok dann mach ich das halt mit alle 5 Minuten ne Datei runterladen und wieder löschen.

Was willst du denn machen? Die Downloadgeschwindigkeit ist 0, wenn du nichts runterlädst. Warum willst du unbedingt etwas runterladen? Geb doch einfach 0 aus.

Zitat von kaschte:

Noch ne Frage: Wie kann ich ne eingegebene Zahl aus nehm Edit in den Timer übernehmen also wenn ich 5 eingebe das dann der Timer auf 5 gesetzt wird?

Neue Frage, neuer Thread bzw. Suche benutzen.

Timer1.Intervall := StrToInt(Edit1.Text); MfG
freak