用idftp控件上传一个文件到主机,如何得到即时的网络传输速度?
解决方案 »
- DBGRID排列
- 通过程序调用硬盘上的SQL脚本,运行。
- 从外部粘贴图像至Image
- ado和dbexpress
- 如何用FMPdefs直接控制神龙卡的音量?
- websnap如何控制数据表或查询的打开或关闭
- 请问 怎样做到组件的大小随着窗口大小改变?
- 小问题,请问那儿可以下载:Delphi 5.X ADO/MTS/COM+高级程序设计篇
- 为什么使用SendMessage(Handle, EM_SETSEL, 0 ,0 );光标(应该说是插入符号,就是那条竖线)不能移动到编辑框的最开始位置?
- 一个有关delphi文件操作的问题!!!
- 请教一下如何从ACCESS数据库OLE对象字段中读取JPG图片
- webservice程序运行时报版本不同的错误提示
const AWorkCount: Integer);
begin
TotalTime := Now - STime;
DecodeTime(TotalTime, H, M, Sec, MS);
Sec := Sec + M * 60 + H * 3600;
DLTime := Sec + MS / 1000;
if DLTime > 0 then
AverageSpeed:= (AWorkCount / 1024) / DLTime;
end;now是当前时间,stime是在IdFTP1的WorkBegin事件中记录的当前时间,两个相减就是间隔时间.
然后将间隔时间分解,变成秒.
利用Work事件中的AWorkCount参数计算速度.
这样可不可以?