TZoCInetChecker：检测网络连接的类

    几年前读书的时候有很长一段时间学校的网络很烂，一来上网的人多网络就可能断掉，过一段时间又会恢复；二来一幢楼只有一个网段，学校显然是低估了学生们对网络对需求和对计算机购买能力，所以有些放学才开机的同学常为分不到IP而烦恼。

    学校里大家最常做的事之一就是整天开着FTP下资源，所以网络断掉又恢复最叫人恼火了。因为FTP服务器通常都会限制连接，所以为了在网络恢复时抢先一步，同学们会设置FTP客户端自动重连，并把重连的时间间隔设置得尽可能小，这类同学通常是不怎么关机的，我就是其中之一^_^b；有的同学不怎么下资源，但是网络不知道什么时候恢复也很烦恼，所以干脆就一直打开ping xxx.xxx.xxx.xxx -t一直ping服务器，并且过一会儿就看看屏幕，“莫办法啊”；还有的苦于分不到IP，或者干脆就故意捣乱，要不就用ping不断向别人发大数据包，要不用“网络执法官”来发ARP欺骗把别人踢出去……总之是乱了套了。

    对于这种情况，技术手段就应该发挥一下作用了。先是有同学写了个带GUI的ping，如果网络通畅就在通知栏显示绿灯的图标，否则就是红灯，但这种方法也有问题。大家都知道，教育网有其特殊之处，我们有时候把教育网内称为内网，而需要代理才能访问的外部网络称为外网（由于有外网的存在，proxy探测软件在学校里用得相当广）。ping的手段对于检测内网问题不大，速度快，把学校主页或者网关作为目标就行了，但对外网就有问题了。Internet上服务器为防止攻击，会采取的措施之一是把ICMP响应关掉，客户端不能ping通服务器。

    由于既然带GUI的ping不能解决问题，我当时就决定写一个真正能解决问题的软件，后来女朋友帮我取名为“网络小灵通”——一个可爱而贴切的名字。

2、分析

    既然ping不能用，当然要另寻出路。我于是想到了TCP ping。是啊，ping不通，但我还是可以上网，因为Internet上的服务器再怎么着也不会把HTTP的端口封掉吧，所以解决的方案其实非常的Straightforward，剩下就是如何实现了。以我的习惯，先上网去搜，有现成的代码就直接为我所用，实在不行再自己写。

    结果居然找了很久没找到，看来老外的网络没这么烂，许多检测是否On-Line的代码也根本不能解决问题。像url.dll提供的InetIsOffline函数，简直一点用的都没有（也许是IE4.0时代用于拨号网络的），同样RasEnumConnections也不能用。既然没有直接的函数可用，看来是要写一写了，当然我不打算直接用纯socket的方式，我也不熟悉，WinINet API（Windows® Internet API）应该是最好的选择，名字不就叫做Internet API么？

下面是最先写出的一个函数：

function CheckUrl(url:string):boolean; 
var 
    hSession, hfile, hRequest: hInternet;