IdHTTP Downloadgeschwindigkeit...

[Z4ppy]

Ja, so ähnlich habe ich es jetzt auch gelöst, ich habe eine Variable auf false gesetzt, sie wird über einen Timer true gesetzt und wenn sie true ist, dann wird im OnWork der Code für die Anzeige ausgeführt und die Variablen werden neu gesetzt, ansonsten passiert nichts

Dein Code würde garantiert nicht gehen... Du verwendest AWorkCount im Timer, hast dieses aber nirgends gesetzt ^^

Hier mein Code:
var RunUpdate:boolean=false;

Delphi-Quellcode:

procedure TForm1.IdHTTPWork(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
var Speed:integer; //Bytes pro sekunde
begin
  if RunUpdate then begin
    RunUpdate:=false;
    if (GetTickCount-FTime)>0 then Speed:=Round(1000*(AWorkCount-FBytes)/(GetTickCount-FTime))
    else Speed:=0;
    SpeedStatus.Caption:=GetSizeName(Speed)+'/s';
    FTime:=GetTickCount;
    FBytes:=AWorkCount;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  RunUpdate:=true;
end;

Natürlich wäre es nicht nötig, die Geschwindigkeit als Variable zu speichern, aber ich benötige sie noch ein paar mal mehr im OnWork und das hier ist nur der zentrale Code für die Geschwindigkeit. So wird diese auch schön in B/s, kB/s, MB/s usw. ausgegeben ^^

MfG Z4ppy

PS.: Wieso machst du das Format eigentlich in einem try-except-Block? Wenn GetTickCount-FTime>0 gilt, dürften ja keine Probleme auftreten können...

[rollstuhlfahrer]

Zitat von Z4ppy:

Dein Code würde garantiert nicht gehen... Du verwendest AWorkCount im Timer, hast dieses aber nirgends gesetzt ^^

Einspruch: AWorkCount ist ein Parameter der an die Prozedur die mit OnWork verknüpft ist übergeben wird, also existiert er doch!

Zitat von Z4ppy:

Round(1000*(AWorkCount-FBytes)/(GetTickCount-FTime))

Also das macht ja mal überhaupt keinen Sinn. Du vergleichst die Zeit ab dem Anfang des Downloads mit dem 1000-fachem Downloadvolumen, welches zwischen zwei Aufrufen von IdHTTPWork geladen wurde. Es muss +FBytes heißen. Außerdem musst du dann drunter auch FBytes:=AWorkCount + FBytes; schreiben.
Grund: Du willst ja eine mittlere Geschwindigkeit, nicht irgendwas.


Bernhard

[Z4ppy]

Zitat von rollstuhlfahrer:

Zitat von Z4ppy:

Dein Code würde garantiert nicht gehen... Du verwendest AWorkCount im Timer, hast dieses aber nirgends gesetzt ^^

Einspruch: AWorkCount ist ein Parameter der an die Prozedur die mit OnWork verknüpft ist übergeben wird, also existiert er doch!

Einspruch, er verwendet AWorkCount im OnTimer... Und der Timer übergibt kein AWorkCount

Zitat von rollstuhlfahrer:

Zitat von Z4ppy:

Round(1000*(AWorkCount-FBytes)/(GetTickCount-FTime))

Also das macht ja mal überhaupt keinen Sinn. Du vergleichst die Zeit ab dem Anfang des Downloads mit dem 1000-fachem Downloadvolumen, welches zwischen zwei Aufrufen von IdHTTPWork geladen wurde. Es muss +FBytes heißen. Außerdem musst du dann drunter auch FBytes:=AWorkCount + FBytes; schreiben.
Grund: Du willst ja eine mittlere Geschwindigkeit, nicht irgendwas.

Falsch, ich möchte die aktuelle Geschwindigkeit, die totale kann ich ausrechnen, ich weiss die totale Grösse und kann ja die Zeit messen von Anfang bis Ende mittels WorkBegin bzw. WorkEnd ^^
Nur war das Problem, dass eben das Interval zwischen den OnWork-Aufrufen zu klein war und da grosse Ungenauigkeiten auftraten und deshalb die Geschwindigkeit so schwankte.
Und der Ausdruck macht sehr wohl Sinn, GetTickCount liefert Millisekunden, mit dem Faktor 1000 gibt das dann wieder Bytes pro Sekunde. Ich könnte natürlich auch die Zeit durch 1000 teilen, das kommt aufs Gleiche raus.

MfG Z4ppy