请教在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
但是这样却无法计算出来
{{
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
要求能实现二人在同台电脑上对战的 不用太花哨 最好还加上人机对战的 急需 谁帮下忙啊呀!!!!!!!!
up
baidu，google
up
http://www.codepub.com/software/view-software-4061.html
网站上有
......
