网卡工作状态检测

 网卡工作状态检测，效果如图（Windows XP/2000/2003下测试通过）：

在这一实例中，计算机中有两块网卡，其中一块为无线网卡，另一块为8139的100M以太网卡，无线网卡已连接可上网，有线网卡我故意把网线拔了。从图中可以看出检测完全正确，而且更难能可贵的是检测速度非常快，几乎不占任何资源（CPU负荷几乎没有）。

实现单元

  1 unit AdpUtils;
  2 interface
  3 uses Windows;
  4 const
  5   MAX_INTERFACE_NAME_LEN = 256;
  6   MAXLEN_PHYSADDR = 8;
  7   MAXLEN_IFDESCR = 256;
  8   MIB_IF_TYPE_OTHER = 1;
  9   MIB_IF_TYPE_ETHERNET = 6;
 10   MIB_IF_TYPE_TOKENRING = 9;
 11   MIB_IF_TYPE_FDDI = 15;
 12   MIB_IF_TYPE_PPP = 23;
 13   MIB_IF_TYPE_LOOPBACK = 24;
 14   MIB_IF_TYPE_SLIP = 28;
 15   MIB_IF_ADMIN_STATUS_UP = 1;
 16   MIB_IF_ADMIN_STATUS_DOWN = 2;
 17   MIB_IF_ADMIN_STATUS_TESTING = 3;
 18   MIB_IF_OPER_STATUS_NON_OPERATIONAL = 0;
 19   MIB_IF_OPER_STATUS_UNREACHABLE = 1;
 20   MIB_IF_OPER_STATUS_DISCONNECTED = 2;
 21   MIB_IF_OPER_STATUS_CONNECTING = 3;
 22   MIB_IF_OPER_STATUS_CONNECTED = 4;
 23   MIB_IF_OPER_STATUS_OPERATIONAL = 5;
 24 type
 25   MIB_PHYSADDR = array[0..MAXLEN_PHYSADDR - 1] of Byte;
 26   MIB_IFDESCR = array[0..MAXLEN_IFDESCR - 1] of Char;
 27   PMIB_IFROW = ^MIB_IFROW;
 28   MIB_IFROW = packed record
 29     wszName: array[0..MAX_INTERFACE_NAME_LEN - 1] of WCHAR;
 30     dwIndex,
 31     dwType,
 32     dwMtu,
 33     dwSpeed,
 34     dwPhysAddrLen: DWORD;
 35     bPhysAddr: MIB_PHYSADDR;
 36     dwAdminStatus,
 37     dwOperStatus,
 38     dwLastChange,
 39     dwInOctets,
 40     dwInUcastPkts,
 41     dwInNUcastPkts,
 42     dwInDiscards,
 43     dwInErrors,
 44     dwInUnknownProtos,
 45     dwOutOctets,
 46     dwOutUcastPkts,
 47     dwOutNUcastPkts,
 48     dwOutDiscards,
 49     dwOutErrors,
 50     dwOutQLen,
 51     dwDescrLen: DWORD;
 52     bDescr: MIB_IFDESCR;
 53   end;
 54   PMIB_IFTABLE = ^MIB_IFTABLE;
 55   MIB_IFTABLE = packed record
 56     dwNumEntries: DWORD;
 57     table: array[0..0] of MIB_IFROW;
 58   end;
 59   TAdapterStatus = record
 60     dwType,
 61     dwOperStatus: DWORD;
 62     bDescr: MIB_IFDESCR;
 63   end;
 64   TAdapterStatuses = array of TAdapterStatus;
 65 function GetIfTable(pIfTable: PMIB_IFTABLE; pdwSize: PULONG; bOrder: BOOL): DWORD;
 66   stdcall; external 'iphlpapi.dll';
 67 function GetAdapterTypeString(const dwType: DWORD): string;
 68 function GetGetAdapterStatusString(const dwOperStatus: DWORD): string;
 69 procedure ScanAdapters(var AdapterStatuses: TAdapterStatuses);
 70 implementation
 71 var
 72   dwSize: DWORD;
 73   pMibIfTable: PMIB_IFTABLE;
 74 function GetAdapterTypeString(const dwType: DWORD): string;
 75 begin
 76   case dwType of
 77     MIB_IF_TYPE_OTHER: Result := '其他';
 78     MIB_IF_TYPE_ETHERNET: Result := '以太网';
 79     MIB_IF_TYPE_TOKENRING: Result := '令牌环';
 80     MIB_IF_TYPE_FDDI: Result := 'FDDI';
 81     MIB_IF_TYPE_PPP: Result := 'PPP';
 82     MIB_IF_TYPE_LOOPBACK: Result := '回路';
 83     MIB_IF_TYPE_SLIP: Result := 'SLIP';
 84   end;
 85 end;
 86 function GetGetAdapterStatusString(const dwOperStatus: DWORD): string;
 87 begin
 88   case dwOperStatus of
 89     MIB_IF_OPER_STATUS_NON_OPERATIONAL: Result := '掉线';
 90     MIB_IF_OPER_STATUS_UNREACHABLE: Result := '不可达';
 91     MIB_IF_OPER_STATUS_DISCONNECTED: Result := '断开';
 92     MIB_IF_OPER_STATUS_CONNECTING: Result := '连接中';
 93     MIB_IF_OPER_STATUS_CONNECTED: Result := '已连接';
 94     MIB_IF_OPER_STATUS_OPERATIONAL: Result := '连通';
 95   end;
 96 end;
 97 procedure ScanAdapters(var AdapterStatuses: TAdapterStatuses);
 98 var
 99   dwRetVal: DWORD;
   num, i: Longint;
 begin
   dwRetVal := GetIfTable(pMibIfTable, @dwSize, False);
   if dwRetVal = NO_ERROR then
   begin
     num := pMibIfTable^.dwNumEntries;
     if Length(AdapterStatuses) <> num then
       SetLength(AdapterStatuses, num);
     for i := Low(AdapterStatuses) to High(AdapterStatuses) do
     begin
       AdapterStatuses[i].dwType := pMibIfTable^.table[i].dwType;
       AdapterStatuses[i].dwOperStatus := pMibIfTable^.table[i].dwOperStatus;
       AdapterStatuses[i].bDescr := pMibIfTable^.table[i].bDescr;
     end;
   end;
 end;
 initialization
   GetIfTable(nil, @dwSize, False);
   GetMem(pMibIfTable, dwSize);
   
 finalization
   FreeMem(pMibIfTable);
 end.
 

调用实例

 1 unit MainForm;
 2 interface
 3 uses
 4   Classes, Controls, Forms, ExtCtrls, ComCtrls, AdpUtils;
 5 type
 6   TfrmMain = class(TForm)
 7     tmRefresh: TTimer;
 8     lvAdapters: TListView;
 9     procedure tmRefreshTimer(Sender: TObject);
   private
     FAdapterStatuses: TAdapterStatuses;
     FAdapterNum: Integer;
     procedure RefreshAdapterStatuses;
   public
     { Public declarations }
   end;
 var
   frmMain: TfrmMain;
 implementation
 {$R *.dfm}
 procedure TfrmMain.RefreshAdapterStatuses;
 var
   num, i: Integer;
 begin
   ScanAdapters(FAdapterStatuses);
   num := Length(FAdapterStatuses);
   if num = FAdapterNum then
   begin
     for i := 0 to num - 1 do
       lvAdapters.Items[i].SubItems[1] := GetGetAdapterStatusString(FAdapterStatuses[i].dwOperStatus);
   end
   else begin
     lvAdapters.Items.BeginUpdate;
     lvAdapters.Items.Clear;
     for i := 0 to num - 1 do
     begin
       lvAdapters.Items.Add;
       lvAdapters.Items[i].Caption := GetAdapterTypeString(FAdapterStatuses[i].dwType);
       lvAdapters.Items[i].SubItems.Add(FAdapterStatuses[i].bDescr);
       lvAdapters.Items[i].SubItems.Add(GetGetAdapterStatusString(FAdapterStatuses[i].dwOperStatus));
     end;
     lvAdapters.Items.EndUpdate;
     FAdapterNum := num;
   end;
 end;
 procedure TfrmMain.tmRefreshTimer(Sender: TObject);
 begin
   RefreshAdapterStatuses;
 end;
 end.