请教在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
但是这样却无法计算出来
{{
相关问答：
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
错误类型：出错误尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
C#源码
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......
