请教在delphi中使用IdHTTP控件,怎样获取下载速度
我在使用IdHTTP控件做文件下载的时候,想计算出文件下载速度,但是无论怎样都无法成功,请好心人帮忙解决!
代码如下：
Delphi(Pascal) code:
procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
nsize.Caption := '已下载:'+floattostr(ByteToStr(AWorkCount))+'MB';
speeds.Caption := '下载速度:'+floattostr(GetSpeed(AWorkCount-ProgressBar1.Position))+'kb/s';
ProgressBar1.Position:=AWorkCount;
end;
已下载的字节获取是没问题的,但是就是无法计算出下载速度.AWorkCount是已下载的字节.
ProgressBar1.Position的值在程序执行时被初始化为0,然后我在文件下载过程中将当前下载字节数减去ProgressBar1.Position的值,接着再把AWorkCount的值赋给ProgressBar1.Position,从而计算出下载速度.
但当我用AWorkCount - ProgressBar1.Position 却无法计算出下载速度,请问该怎样解决呢？
是不是我的思路有问题呢
getspeed是什么？
下载速度是总体的平均下载速度，还是本次事件里的下载速度？
前者应该用已下载总字节数除以总的时间
后者应该AWorkCount-上次的AWorkCount，除以当前时间-上次的时间
getspeed是转换字节的一个函数
我是想要获取本次事件里的下载速度
我是这样想的，AWorkCount是当前已下载的总字节，我先用AWorkCount-ProgressBar1.Position，从而获取本次下载字节数.然后再将AWorkCount的值赋给ProgressBar1.Position
但是这样却无法计算出来
{{
相关问答：
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
如题， 点击Delphi的File菜单的Exit退出Delphi， Delphi部分关闭--即不能再操作Delphi，但任务栏和进程里，Delphi还在运行，没有真正的退出。是不是安装了jre改变了某些环境变量导致，请问高手如何解决？ 注：没安装 ......
