如何测定连接某网站的速度?(50分)

拨号上网因网速问题,xp下常常出现windows状态栏上的网络标志是已连通网络,但实际上当使用证券行情软件时,软件并不能连到行情服务器上,只有使用该软件的测速功能,测试软件到服务器ip如61.144.230.74的响应时间,如连上了,则给出响应时间及相应的当前用户数.

实践中发现:windows状态栏上的网络标志虽然是已连通,此时并不能打开如www.163.com网站.
但是使用证券行情软测速,如果结果显示是可以连到证券行情服务器上时,则www.163.com网站此时竟然可以连通了, 如何制作类似该证券行情软件中的测速功能呢?

用返回所需要的时间来判断是否联通。。

给你一个函数；看看

{-----------------------------------------------------------------------------
声明: ping1
作者: Levon819@msn.com
日期: 29-十二月-2005
参数: Const url: String
结果: boolean
说明： 检查，ping一个ip；
-----------------------------------------------------------------------------}
Function ping(Const url: String; TimeOut: integer = 1500): boolean;
Var
aIdICMPClient: TIdIcmpClient;
Begin
aIdICMPClient := TIdIcmpClient.Create(Nil);
aIdICMPClient.ReceiveTimeout := TimeOut;
aIdICMPClient.Host := url;
Try
aIdICMPClient.ping();
Except
result := false;
End;
If (aIdICMPClient.ReplyStatus.fromipaddress <> '0.0.0.0')
And (aIdICMPClient.ReplyStatus.fromipaddress <> '') Then
result := true
Else
result := false;
aIdICMPClient.Free;
End;


sample:
if not ping('192.168.0.9',3000) then
//ping 失败；