Salut,
je télécharge un fichier avec un Idhttp, et j'aimerais bien conaitre la vitesse de téléchargement toutes les secondes en ko/s.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
temp:=Aworkcount;
end;
j'enregistre dans une variable temp la donnée total en byte téléchargée du fichier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dtemp:=temp-dtemp;
label1.caption:=inttostr(dtemp div 8);
end;
je soustrait donc le nombre total de byte téléchargé au dernier nombre conu de byte. Et je l'affiche dans un label en divisant par 8 pour avoir le nombre d'octet.

Bon, je vois les nombres qui augmentent très vite j'arrive vers 150000o/s ce qui parait logique avec 1024. Mais là où je suis étonné c'est que ca continu et quand mon fichier se termine je suis arrivé à 200ko/s ce qu'y me parait plutot étonnant !

y'aurait-il un faille dans mon résonement ?

merci d'avance !