كيف احسب سرعة رفع ملف

[Guest99]

مرحبا جميعا

قمت ببرمجة برنامج لرفع ملف الى موقع والان اضف اليه سرعة الرفع تظهر في label1
استعمل دلفي 2010 و المكون delphi clever suite
هذه قائمة احذاث المكون

جربت هذا مع الحدث .clHttp1SendProgress

PHP كود :

procedure TForm2.clHttp1SendProgress(Sender: TObject; ABytesProceed,
  ATotalBytes: Int64);
var
  LTimeStamp : TDateTime;
begin
Set8087CW(Default8087CW or $0004);
  LTimeStamp := Now;
  //edit3.Text := datetostr(LTimeStamp);
  if FBytesProceed < ABytesProceed then
  begin
    // calculating bytes per second
    FSpeed := ( FBytesProceed - ABytesProceed  ) {bytes}/ (( LTimeStamp - FTimeStamp ) {days}
              * 24 {hours}
              * 60 {minutes}
              * 60 {seconds} );
  end;
  FBytesProceed := ABytesProceed;
  FTimeStamp := LTimeStamp;

 //edit3.Text := FormatFloat('speed', FSpeed);
label1.Caption  := Format(' speed %n Kbps',[fspeed/1024]);
end; 


لكن تظهر لي العبارة INF في الــ label1 (تظهر وتختفي بسرعة البرق ولا تذهب) مع سرعة تبدو اقل من سرعة الرفع عندي
والسلام عليكم