delphi4arab منتديات دلفي للعرب
كيف احسب سرعة رفع ملف - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف احسب سرعة رفع ملف (/showthread.php?tid=6025)

كيف احسب سرعة رفع ملف - Guest99 - 17-03-2014

مرحبا جميعا

قمت ببرمجة برنامج لرفع ملف الى موقع والان اضف اليه سرعة الرفع تظهر في label1
استعمل دلفي 2010 و المكون delphi clever suite
هذه قائمة احذاث المكون
[صورة: 6sDrkRn.jpg]
جربت هذا مع الحدث .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 (تظهر وتختفي بسرعة البرق ولا تذهب) مع سرعة تبدو اقل من سرعة الرفع عندي
والسلام عليكم