网卡状态检查

检查网线的通断情况

在编写tcp/ip服务程序时，需要 bind 到本地端口，再开始 listen 接收外部请求。如果是只bind

到指定的一个ip地址，而这个ip对应的网卡上网线被拨掉时，如果经过一段时间后再插上，也不能再

接受新的连接请求了。
一般在这种情况下，需要在网线恢复后，重新 bind 端口，开始listen。这样就需要在网线拨掉后，

能停止服务，而网线恢复后，再开始服务。

在Windows中，可以用NotifyAddrChange向系统注册一个事件，当网络发生变化时得到事件通知。但

是使用这种方法会比较大的影响系统性能，有时还会系统死锁，插拨好几次网线才能恢复。

为了方便使用，我采用的是每隔一秒查询一次网络接口，查找指定的IP还在不在，如果不在就认为网

络断开，如果有则认为正常。方法有些笨，管用就行。基本上与QQ同时检测到断开，网络插上时也基

本上与QQ同时恢复。

程序做成 dll的方式，方便其他程序直接使用，调用的接口是

function CheckNICStatus(pAddr:pchar):Integer;stdcall;

导入这个函数就可以用了，pAddr指向要监控的IP地址。返回0表示正常，-1表示断线。

两种方法都有实现，但是感觉用定期去查的方法更方便。 

以下是检查网络接口的源码。

 

function CheckNICStatus(pAddr:pchar):Integer;stdcall;
var
  dwAddr,dwSize:DWORD;
  mit: PMIB_IPADDRTABLE;
  ret,i:DWORD;
begin
  result:=-1;
  dwAddr :=inet_addr(pAddr);
  if dwAddr=INADDR_NONE then Exit;
  GetIpAddrTable(nil, dwSize, TRUE);
  mit := GetMemory(dwSize);
  ret:=GetIpAddrTable(mit,dwSize,True);
  if ret=NO_ERROR then
  begin
    for i := 0 to Pred(mit^.dwNumEntries) do
    begin
      if dwAddr=mit^.table[i].dwAddr then
      begin
        result:=0;
        Break;
      end;
    end;
  end;  
  FreeMemory(mit);
end;