iphlpapi.pas

一款用delphy编写的关于网络流量检测的软件 能轻松的监测本机的网络流量信息

unit IPHLPAPI;

interface

Const
     MAX_INTERFACE_NAME_LEN             = $100;
     ERROR_SUCCESS                      = 0;
     MAXLEN_IFDESCR                     = $100;
     MAXLEN_PHYSADDR                    = 8;

     MIB_IF_OPER_STATUS_NON_OPERATIONAL = 0 ;
     MIB_IF_OPER_STATUS_UNREACHABLE     = 1;
     MIB_IF_OPER_STATUS_DISCONNECTED    = 2;
     MIB_IF_OPER_STATUS_CONNECTING      = 3;
     MIB_IF_OPER_STATUS_CONNECTED       = 4;
     MIB_IF_OPER_STATUS_OPERATIONAL     = 5;

     MIB_IF_TYPE_OTHER                  = 1;
     MIB_IF_TYPE_ETHERNET               = 6;
     MIB_IF_TYPE_TOKENRING              = 9;
     MIB_IF_TYPE_FDDI                   = 15;
     MIB_IF_TYPE_PPP                    = 23;
     MIB_IF_TYPE_LOOPBACK               = 24;
     MIB_IF_TYPE_SLIP                   = 28;

     MIB_IF_ADMIN_STATUS_UP             = 1;
     MIB_IF_ADMIN_STATUS_DOWN           = 2;
     MIB_IF_ADMIN_STATUS_TESTING        = 3;


TYPE

   MIB_IFROW            = Record
         wszName              : Array[0 .. (MAX_INTERFACE_NAME_LEN*2-1)] of char;
         dwIndex              : LongInt;
         dwType               : LongInt;
         dwMtu                : LongInt;
         dwSpeed              : LongInt;
         dwPhysAddrLen        : LongInt;
         bPhysAddr            : Array[0 .. (MAXLEN_PHYSADDR-1)] of Byte;
         dwAdminStatus        : LongInt;
         dwOperStatus         : LongInt;
         dwLastChange         : LongInt;
         dwInOctets           : LongInt;
         dwInUcastPkts        : LongInt;
         dwInNUcastPkts       : LongInt;
         dwInDiscards         : LongInt;
         dwInErrors           : LongInt;
         dwInUnknownProtos    : LongInt;
         dwOutOctets          : LongInt;
         dwOutUcastPkts       : LongInt;
         dwOutNUcastPkts      : LongInt;
         dwOutDiscards        : LongInt;
         dwOutErrors          : LongInt;
         dwOutQLen            : LongInt;
         dwDescrLen           : LongInt;
         bDescr               : Array[0 .. (MAXLEN_IFDESCR - 1)] of Char;
         end;



Function GetIfTable(
   pIfTable        : Pointer;
   VAR pdwSize     : LongInt;
   bOrder          : LongInt
   ): LongInt;  StdCall;


implementation

Function GetIfTable;          stdcall; external   'IPHLPAPI.DLL';

end.