请教在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
但是这样却无法计算出来
{{
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
想请问各位：盘点维护里面：盘盈亏数量=库存数量+入库数量-出库数量，这样做是对的吗，
楼上正解,正数盘盈 负数盘亏
一楼正确！
谢谢各位啦
就是：是不是 实际库存里的库存量 与你手动输进去的数量之间� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
