Pisze właśnie program, który wysyła pliki do innego. Musze tam wstawić prędkość wywyłania pliku...
Napisałem wiec cos takiego:
procedure TForm1.Timer1Timer(Sender: TObject);
var Speed , Position , Max:Integer;
begin
Position:=ProgressBar1.Position;
Speed:=(Position-Tag) div 1024;
Tag:=ProgressBar1.Position;
Label1.Caption:='Prędkość wysyłania pliku : '+IntToStr(speed)+' kb/s';
end;
A timer w którym to siedzi ustawiłem na 1 sec.
Chodzilo mi o to, zeby program sprawdzal ile bajtów wysłał w ciągu sec.
Wszystko działa, tylko że prędkość wacha się chwilami od 1024 kb/s do 119 kb/s, a tak być nie może {glowa} .
Jakiś pomysł ?
Pozdrawia Karol {browar}
The Delphi has you ...