Prędkość pobierania w HTTPGet

W tym punkcie FAQ opiszę w jaki sposób zmierzyć prędkość pobierania za pomocą komponentu HTTPGet.
Żeby główna procedura działała, musisz najpierw się przygotować. Na formie musi znajdować się HTTPGet oczywiście oraz ProgressBar zmieniany przez zdarzenie HTTPGet OnProgress w następujący sposób:

ProgressBar1.Max := TotalSize;
ProgressBar1.Position := Readed;
Timer1.Enabled := True;

Musisz jeszcze do zmiennych w projekcie dodać następujące zmienne:

var
  //[...]
  LastCheck, ValueKBSec, PPos: Integer;

implementation

Teraz zajmiemy się samym wyliczaniem prędkości. Wstaw na formę Timer, ustaw mu interval 1000, wyłącz i na zdarzenie OnTimer wywołaj kod:

PPos := ProgressBar1.Position;
ValueKBSec := ProgressBar1.Position - LastCheck;
ProgressBar1.Position := PPos;
ValueKBSec := ValueKBSec div 1024;
LastCheck := ProgressBar1.Position;
//No i mamy zapisaną ilość kB na sekundę w zmiennej ValueKBSec.

Teraz trzeba tylko wyłączyć Timer w określonych sytuacjach. Do HTTPGet OnDoneFile i OnError dodaj:

Timer1.Enabled := False;