用IdTcpClient怎么计算传输速度啊？

[wulengbing]

我在ClientWork事件里写了。但是刷不出来，总显示0.00KB
帮我看看啊
procedure TfrmMain.ClientWork(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
var
TotalTime: Integer;
begin
//计算网络传输速度
if GetTickCount - TickCount > 1000 then
TotalTime := DateUtils.SecondsBetween(Now,dtStartTime); //相差秒数
if TotalTime > 0 then
AverageSpeed := (AWorkCount/1024) / TotalTime;
TickCount := GetTickCount;
end;

[hongqi162]

IdTcpClient已传输的大小/传输所用时间 计算出一个平均值

[brightyang]

传过去的buffersize/耗时

[acllsun]

www.2008pq.com/bbs/Default.asp
联系QQ:147858017
(2)仿QQ，MSN TQ skype 等即时通讯源代码(DELPHI， VC++编写)，，组件齐全，调试非常简单方便！
(2)发送联机或脱机消息，同时可自定义消息字体、颜色、大小等信息，支持插入表情符号，屏幕截取。
(3)好友的添加，删除，更改等操作
支持多人消息群发等功能；在线即时语音、视频聊天;
穿透网关防火墙，可在互联网和局域网任意对话;
系统采用先进的点对点通讯技术，消息（包括文本、语音、视频、文件）的
传输大多数情况不需要经服务器中转而直接发往接收者所使用的机器，传输速度更快。
而且因服务器仅仅只是起着维护用户状态列表的功能，因此占用资源极少，
可允许同时在线的人数就越多，对系统的影响也最小。
可以设置各种离线状态，支持自定义状态;
用户可自定义界面，界面皮肤可在线更新;
好友的添加，删除，更改等操作
灵活支持Oracle、Sql Server、Mysql等数据库;
服务器端资源占用低，通讯中不占用服务端资源;

########也可提供各类源代码（asp,asp.net,delphi,vc++,vb,php,等源代码 ！！！！！！！！
www.2008pq.com/bbs/Default.asp
E-mail:[e-mail]
联系QQ:147858017