TZoCInetChecker：检测网络连接的类

来源：作者：出处：巧巧读书 2006-11-26 进入讨论组

1、由来

几年前读书的时候有很长一段时间学校的网络很烂，一来上网的人多网络就可能断掉，过一段时间又会恢复；二来一幢楼只有一个网段，学校显然是低估了学生们对网络对需求和对计算机购买能力，所以有些放学才开机的同学常为分不到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;
    dwindex,dwcodelen :dword;
    dwcode:array[1..20] of char;
    res : pchar;
begin
    //检查URL是否包含http://，如果不包含则加上
    if pos('http://',lowercase(url))=0 then
        url := 'http://'+url;

    Result := false;

    hSession := InternetOpen('InetURL:/1.0',
        INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0); //建立会话句柄
    if assigned(hsession) then
    begin
        hfile := InternetOpenUrl(hsession, pchar(url), nil, 0,
            INTERNET_FLAG_RELOAD, 0);        //打开URL所指资源

        dwIndex := 0;
        dwCodeLen := 10;
        HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,
            @dwcode, dwcodeLen, dwIndex); //获取返回的HTTP头信息

        res := pchar(@dwcode);
        result:= (res ='200') or (res ='302');

        if assigned(hfile) then
            InternetCloseHandle(hfile);     //关闭URL资源句柄
        InternetCloseHandle(hsession);     //关闭Internet会话句柄
    end;
end;

毫无疑问，这个函数可以完成任务。它尝试Open一个Internet Session，然后检查返回的HTTP头信息。状态值200表示连接服务器成功，302表示Redirect之后连接成功，对这两种情况我们都可以认为能够成功地连接到Internet并打开网页了。但我认为这还不够好，一个函数的实现虽然简单，但因为是阻塞的调用，所以不够优美，如果能够知道Windows在连接的时候处于什么状态岂不是更好。试想如果大家用浏览器上网的时候总会感觉“阻塞”一下才能看到网页，那可是非常差的Experience。

3、TZoCInetChecker实现

所以非阻塞的异步探测是非常必要的，WinInet也提供了这样的调用方式，关键在于调用InternetSetStatusCallback函数通知WinInet在有状态反馈时通知我们。如果是用MFC的话CInternetSession类倒是可以用，不过Delphi的VCL没有这样直接的类，只好自己写了，我们的封装能力也决不弱于C++ ^_^

文章地址： http://www.qqread.com/vbdotnet/g282664.html