我想通过获取html头的方法得知网络是否正常。 由于ICMP被屏蔽,所以无法用ping测试网络是否正常。所以我想通过获取网页头作为测试,例如获取www.163.com等,然后判断是否正常。如果正常就显示正常,获取不了就显示不正常,如此循环。谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用ICS的HTTPCli组件就可以的_____________________http://lysoft.7u7.net uses WinInetfunction IsInternet: Boolean; begin if InternetCheckConnection('http://www.163.com/', 1, 0) then Result := True else Result := False; end; 这样调用函数:if IsInternet thenbegin Showmessage('已连接到因特网!!'); end else begin Showmessage('不能连接网络!!!') end; 回复人: hthunter(核桃-我的心在下雨,雨中我和她携手漫步) ( ) 信誉:113 2005-08-12 10:37:00 得分: 0 如果你连的服务器刚好出问题了呢(其他网站正常)? >>>那就检测 www.microsoft.com 应该不会倒闭。呵呵。 招DELPHI开发人员(北京上地) 現在還有沒有人學delphi呢? 如何用excel制作报表 Delphi中做网页的问题 我最近做了一个Shell扩展,不知道怎么调试? 请问:为什么 bmp.savetofile('a.bmp');后文件大小是零呢? 大型,中型,小型??? 这个AdoConnection应如何写? 帮忙看看这个无窗体的单元中的错误! 怎么让DBGRID的datetime型数据只显示时间?? 用delphi编写控件时产生的cab里的*.inf的问题??在线等待!!! 请问如何让DBChart中的柱子是按表中字段的顺序排列,而不是从小到大的顺序排列?
http://lysoft.7u7.net
begin
if InternetCheckConnection('http://www.163.com/', 1, 0) then
Result := True
else
Result := False;
end;
begin
Showmessage('已连接到因特网!!');
end
else
begin
Showmessage('不能连接网络!!!')
end;
如果你连的服务器刚好出问题了呢(其他网站正常)?
>>>那就检测 www.microsoft.com 应该不会倒闭。呵呵。