开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaIpRtrMib.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：41k
源码类别：

Windows编程

开发平台：

Delphi

JwaIpRtrMib.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Management Information Base API interface Unit for Object Pascal             }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: iprtrmib.h, released August 2001. The original Pascal  }
  9. { code is: IpRtrMib.pas, released September 2000. The initial developer of the }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Contributor(s): John C. Penman (jcp@craiglockhart.com)                       }
  16. {                 Vladimir Vassiliev (voldemarv@hotpop.com)                    }
  17. {                 }
  18. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  19. {                }
  20. { You may retrieve the latest version of this file at the Project JEDI home    }
  21. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  22. { http://members.chello.nl/m.vanbrakel2                                        }
  23. {                }
  24. { The contents of this file are used with permission, subject to the Mozilla   }
  25. { Public License Version 1.1 (the "License"); you may not use this file except }
  26. { in compliance with the License. You may obtain a copy of the License at      }
  27. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  28. {                                                                              }
  29. { Software distributed under the License is distributed on an "AS IS" basis,   }
  30. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  31. { the specific language governing rights and limitations under the License.    }
  32. {                                                                              }
  33. { Alternatively, the contents of this file may be used under the terms of the  }
  34. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  35. { provisions of the LGPL License are applicable instead of those above.        }
  36. { If you wish to allow use of your version of this file only under the terms   }
  37. { of the LGPL License and not to allow others to use your version of this file }
  38. { under the MPL, indicate your decision by deleting  the provisions above and  }
  39. { replace  them with the notice and other provisions required by the LGPL      }
  40. { License.  If you do not delete the provisions above, a recipient may use     }
  41. { your version of this file under either the MPL or the LGPL License.          }
  42. {                 }
  43. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  44. {                 }
  45. {******************************************************************************}
  47. unit JwaIpRtrMib;
  49. {$WEAKPACKAGEUNIT}
  51. {$HPPEMIT ''}
  52. {$HPPEMIT '#include "iprtrmib.h"'}
  53. {$HPPEMIT ''}
  55. {$I WINDEFINES.INC}
  57. interface
  59. uses
  60.   JwaWinType;
  62. //////////////////////////////////////////////////////////////////////////////
  63. //                                                                          //
  64. // Included to get the value of MAX_INTERFACE_NAME_LEN                      //
  65. //                                                                          //
  66. //////////////////////////////////////////////////////////////////////////////
  68. // #include <mprapi.h>
  70. //////////////////////////////////////////////////////////////////////////////
  71. //                                                                          //
  72. // Included to get the necessary constants                                  //
  73. //                                                                          //
  74. //////////////////////////////////////////////////////////////////////////////
  76. // #include <ipifcons.h>
  78. //////////////////////////////////////////////////////////////////////////////
  79. //                                                                          //
  80. // This is the Id for IP Router Manager.  The Router Manager handles        //
  81. // MIB-II, Forwarding MIB and some enterprise specific information.         //
  82. // Calls made with any other ID are passed on to the corresponding protocol //
  83. // For example, an MprAdminMIBXXX call with a protocol ID of PID_IP and    //
  84. // a routing Id of 0xD will be sent to the IP Router Manager and then       //
  85. // forwarded to OSPF                                                        //
  86. // This lives in the same number space as the protocol Ids of RIP, OSPF     //
  87. // etc, so any change made to it should be done keeping this in mind        //
  88. //                                                                          //
  89. //////////////////////////////////////////////////////////////////////////////
  91. const
  92.   MAX_INTERFACE_NAME_LEN = 256; // MPRAPI.H
  93.   {$EXTERNALSYM MAX_INTERFACE_NAME_LEN}
  94.   
  95.   IPRTRMGR_PID = 10000;
  96.   {$EXTERNALSYM IPRTRMGR_PID}
  98.   ANY_SIZE = 1;
  99.   {$EXTERNALSYM ANY_SIZE}
  101. //////////////////////////////////////////////////////////////////////////////
  102. //                                                                          //
  103. // The following #defines are the Ids of the MIB variables made accessible  //
  104. // to the user via MprAdminMIBXXX Apis.  It will be noticed that these are  //
  105. // not the same as RFC 1213, since the MprAdminMIBXXX APIs work on rows and //
  106. // groups instead of scalar variables                                       //
  107. //                                                                          //
  108. //////////////////////////////////////////////////////////////////////////////
  110.   IF_NUMBER        = 0;
  111.   {$EXTERNALSYM IF_NUMBER}
  112.   IF_TABLE         = IF_NUMBER + 1;
  113.   {$EXTERNALSYM IF_TABLE}
  114.   IF_ROW           = IF_TABLE + 1;
  115.   {$EXTERNALSYM IF_ROW}
  116.   IP_STATS         = IF_ROW + 1;
  117.   {$EXTERNALSYM IP_STATS}
  118.   IP_ADDRTABLE     = IP_STATS + 1;
  119.   {$EXTERNALSYM IP_ADDRTABLE}
  120.   IP_ADDRROW       = IP_ADDRTABLE + 1;
  121.   {$EXTERNALSYM IP_ADDRROW}
  122.   IP_FORWARDNUMBER = IP_ADDRROW + 1;
  123.   {$EXTERNALSYM IP_FORWARDNUMBER}
  124.   IP_FORWARDTABLE  = IP_FORWARDNUMBER + 1;
  125.   {$EXTERNALSYM IP_FORWARDTABLE}
  126.   IP_FORWARDROW    = IP_FORWARDTABLE + 1;
  127.   {$EXTERNALSYM IP_FORWARDROW}
  128.   IP_NETTABLE      = IP_FORWARDROW + 1;
  129.   {$EXTERNALSYM IP_NETTABLE}
  130.   IP_NETROW        = IP_NETTABLE + 1;
  131.   {$EXTERNALSYM IP_NETROW}
  132.   ICMP_STATS       = IP_NETROW + 1;
  133.   {$EXTERNALSYM ICMP_STATS}
  134.   TCP_STATS        = ICMP_STATS + 1;
  135.   {$EXTERNALSYM TCP_STATS}
  136.   TCP_TABLE        = TCP_STATS + 1;
  137.   {$EXTERNALSYM TCP_TABLE}
  138.   TCP_ROW          = TCP_TABLE + 1;
  139.   {$EXTERNALSYM TCP_ROW}
  140.   UDP_STATS        = TCP_ROW + 1;
  141.   {$EXTERNALSYM UDP_STATS}
  142.   UDP_TABLE        = UDP_STATS + 1;
  143.   {$EXTERNALSYM UDP_TABLE}
  144.   UDP_ROW          = UDP_TABLE + 1;
  145.   {$EXTERNALSYM UDP_ROW}
  146.   MCAST_MFE        = UDP_ROW + 1;
  147.   {$EXTERNALSYM MCAST_MFE}
  148.   MCAST_MFE_STATS  = MCAST_MFE + 1;
  149.   {$EXTERNALSYM MCAST_MFE_STATS}
  150.   BEST_IF          = MCAST_MFE_STATS + 1;
  151.   {$EXTERNALSYM BEST_IF}
  152.   BEST_ROUTE       = BEST_IF + 1;
  153.   {$EXTERNALSYM BEST_ROUTE}
  154.   PROXY_ARP        = BEST_ROUTE + 1;
  155.   {$EXTERNALSYM PROXY_ARP}
  156.   MCAST_IF_ENTRY   = PROXY_ARP + 1;
  157.   {$EXTERNALSYM MCAST_IF_ENTRY}
  158.   MCAST_GLOBAL     = MCAST_IF_ENTRY + 1;
  159.   {$EXTERNALSYM MCAST_GLOBAL}
  160.   IF_STATUS        = MCAST_GLOBAL + 1;
  161.   {$EXTERNALSYM IF_STATUS}
  162.   MCAST_BOUNDARY   = IF_STATUS + 1;
  163.   {$EXTERNALSYM MCAST_BOUNDARY}
  164.   MCAST_SCOPE      = MCAST_BOUNDARY + 1;
  165.   {$EXTERNALSYM MCAST_SCOPE}
  166.   DEST_MATCHING    = MCAST_SCOPE + 1;
  167.   {$EXTERNALSYM DEST_MATCHING}
  168.   DEST_LONGER      = DEST_MATCHING + 1;
  169.   {$EXTERNALSYM DEST_LONGER}
  170.   DEST_SHORTER     = DEST_LONGER + 1;
  171.   {$EXTERNALSYM DEST_SHORTER}
  172.   ROUTE_MATCHING   = DEST_SHORTER + 1;
  173.   {$EXTERNALSYM ROUTE_MATCHING}
  174.   ROUTE_LONGER     = ROUTE_MATCHING + 1;
  175.   {$EXTERNALSYM ROUTE_LONGER}
  176.   ROUTE_SHORTER    = ROUTE_LONGER + 1;
  177.   {$EXTERNALSYM ROUTE_SHORTER}
  178.   ROUTE_STATE      = ROUTE_SHORTER + 1;
  179.   {$EXTERNALSYM ROUTE_STATE}
  180.   MCAST_MFE_STATS_EX = ROUTE_STATE + 1;
  181.   {$EXTERNALSYM MCAST_MFE_STATS_EX}
  182.   IP6_STATS          = MCAST_MFE_STATS_EX + 1;
  183.   {$EXTERNALSYM IP6_STATS}
  184.   UDP6_STATS         = IP6_STATS + 1;
  185.   {$EXTERNALSYM UDP6_STATS}
  186.   TCP6_STATS         = UDP6_STATS + 1;
  187.   {$EXTERNALSYM TCP6_STATS}
  189.   NUMBER_OF_EXPORTED_VARIABLES = TCP6_STATS + 1;
  190.   {$EXTERNALSYM NUMBER_OF_EXPORTED_VARIABLES}
  192. //////////////////////////////////////////////////////////////////////////////
  193. //                                                                          //
  194. // MIB_OPAQUE_QUERY is the structure filled in by the user to identify a    //
  195. // MIB variable                                                             //
  196. //                                                                          //
  197. //  dwVarId     ID of MIB Variable (One of the Ids #defined above)          //
  198. //  dwVarIndex  Variable sized array containing the indices needed to       //
  199. //              identify a variable. NOTE: Unlike SNMP we dont require that //
  200. //              a scalar variable be indexed by 0                           //
  201. //                                                                          //
  202. //////////////////////////////////////////////////////////////////////////////
  204. type
  205.   PMIB_OPAQUE_QUERY = ^MIB_OPAQUE_QUERY;
  206.   {$EXTERNALSYM PMIB_OPAQUE_QUERY}
  207.   _MIB_OPAQUE_QUERY = record
  208.     dwVarId: DWORD;
  209.     rgdwVarIndex: array [0..ANY_SIZE - 1] of DWORD;
  210.   end;
  211.   {$EXTERNALSYM _MIB_OPAQUE_QUERY}
  212.   MIB_OPAQUE_QUERY = _MIB_OPAQUE_QUERY;
  213.   {$EXTERNALSYM MIB_OPAQUE_QUERY}
  214.   TMibOpaqueQuery = MIB_OPAQUE_QUERY;
  215.   PMibOpaqueQuery = PMIB_OPAQUE_QUERY;
  217. //////////////////////////////////////////////////////////////////////////////
  218. //                                                                          //
  219. // The following are the structures which are filled in and returned to the //
  220. // user when a query is made, OR  are filled in BY THE USER when a set is   //
  221. // done                                                                     //
  222. //                                                                          //
  223. //////////////////////////////////////////////////////////////////////////////
  225. type
  226.   PMIB_IFNUMBER = ^MIB_IFNUMBER;
  227.   {$EXTERNALSYM PMIB_IFNUMBER}
  228.   _MIB_IFNUMBER = record
  229.     dwValue: DWORD;
  230.   end;
  231.   {$EXTERNALSYM _MIB_IFNUMBER}
  232.   MIB_IFNUMBER = _MIB_IFNUMBER;
  233.   {$EXTERNALSYM MIB_IFNUMBER}
  234.   TMibIfnumber = MIB_IFNUMBER;
  235.   PMibIfnumber = PMIB_IFNUMBER;
  237. const
  238.   MAXLEN_IFDESCR  = 256;
  239.   {$EXTERNALSYM MAXLEN_IFDESCR}
  240.   MAXLEN_PHYSADDR = 8;
  241.   {$EXTERNALSYM MAXLEN_PHYSADDR}
  243. type
  244.   PMIB_IFROW = ^MIB_IFROW;
  245.   {$EXTERNALSYM PMIB_IFROW}
  246.   _MIB_IFROW = record
  247.     wszName: array [0..MAX_INTERFACE_NAME_LEN - 1] of WCHAR;
  248.     dwIndex: DWORD;
  249.     dwType: DWORD;
  250.     dwMtu: DWORD;
  251.     dwSpeed: DWORD;
  252.     dwPhysAddrLen: DWORD;
  253.     bPhysAddr: array [0..MAXLEN_PHYSADDR - 1] of BYTE;
  254.     dwAdminStatus: DWORD;
  255.     dwOperStatus: DWORD;
  256.     dwLastChange: DWORD;
  257.     dwInOctets: DWORD;
  258.     dwInUcastPkts: DWORD;
  259.     dwInNUcastPkts: DWORD;
  260.     dwInDiscards: DWORD;
  261.     dwInErrors: DWORD;
  262.     dwInUnknownProtos: DWORD;
  263.     dwOutOctets: DWORD;
  264.     dwOutUcastPkts: DWORD;
  265.     dwOutNUcastPkts: DWORD;
  266.     dwOutDiscards: DWORD;
  267.     dwOutErrors: DWORD;
  268.     dwOutQLen: DWORD;
  269.     dwDescrLen: DWORD;
  270.     bDescr: array[0..MAXLEN_IFDESCR - 1] of BYTE;
  271.   end;
  272.   {$EXTERNALSYM _MIB_IFROW}
  273.   MIB_IFROW = _MIB_IFROW;
  274.   {$EXTERNALSYM MIB_IFROW}
  275.   TMibIfRow = MIB_IFROW;
  276.   PMibIfRow = PMIB_IFROW;
  278.   PMIB_IFTABLE = ^MIB_IFTABLE;
  279.   {$EXTERNALSYM PMIB_IFTABLE}
  280.   _MIB_IFTABLE = record
  281.     dwNumEntries: DWORD;
  282.     table: array [0..ANY_SIZE - 1] of MIB_IFROW;
  283.   end;
  284.   {$EXTERNALSYM _MIB_IFTABLE}
  285.   MIB_IFTABLE = _MIB_IFTABLE;
  286.   {$EXTERNALSYM MIB_IFTABLE}
  287.   TMibIftable = MIB_IFTABLE;
  288.   PMibIftable = PMIB_IFTABLE;
  290. // #define SIZEOF_IFTABLE(X) (FIELD_OFFSET(MIB_IFTABLE,table[0]) + ((X) * sizeof(MIB_IFROW)) + ALIGN_SIZE)
  292. type
  293.   PMibIcmpStats = ^TMibIcmpStats;
  294.   _MIBICMPSTATS = record
  295.     dwMsgs: DWORD;
  296.     dwErrors: DWORD;
  297.     dwDestUnreachs: DWORD;
  298.     dwTimeExcds: DWORD;
  299.     dwParmProbs: DWORD;
  300.     dwSrcQuenchs: DWORD;
  301.     dwRedirects: DWORD;
  302.     dwEchos: DWORD;
  303.     dwEchoReps: DWORD;
  304.     dwTimestamps: DWORD;
  305.     dwTimestampReps: DWORD;
  306.     dwAddrMasks: DWORD;
  307.     dwAddrMaskReps: DWORD;
  308.   end;
  309.   {$EXTERNALSYM _MIBICMPSTATS}
  310.   MIBICMPSTATS = _MIBICMPSTATS;
  311.   {$EXTERNALSYM MIBICMPSTATS}
  312.   TMibIcmpStats = _MIBICMPSTATS;
  314.   _MIBICMPINFO = record
  315.     icmpInStats: MIBICMPSTATS;
  316.     icmpOutStats: MIBICMPSTATS;
  317.   end;
  318.   {$EXTERNALSYM _MIBICMPINFO}
  319.   MIBICMPINFO = _MIBICMPINFO;
  320.   {$EXTERNALSYM MIBICMPINFO}
  321.   PMIBICMPINFO = ^MIBICMPINFO;
  322.   {$EXTERNALSYM PMIBICMPINFO}
  323.   TMibIcmpInfo = MIBICMPINFO;
  325.   PMIB_ICMP = ^MIB_ICMP;
  326.   {$EXTERNALSYM PMIB_ICMP}
  327.   _MIB_ICMP = record
  328.     stats: MIBICMPINFO;
  329.   end;
  330.   {$EXTERNALSYM _MIB_ICMP}
  331.   MIB_ICMP = _MIB_ICMP;
  332.   {$EXTERNALSYM MIB_ICMP}
  333.   TMibIcmp = MIB_ICMP;
  334.   PMibIcmp = PMIB_ICMP;
  336. //
  337. // ICMPv6 Type Values from RFC 2292.
  338. //
  340. const
  341.   ICMP6_DST_UNREACH          = 1;
  342.   {$EXTERNALSYM ICMP6_DST_UNREACH}
  343.   ICMP6_PACKET_TOO_BIG       = 2;
  344.   {$EXTERNALSYM ICMP6_PACKET_TOO_BIG}
  345.   ICMP6_TIME_EXCEEDED        = 3;
  346.   {$EXTERNALSYM ICMP6_TIME_EXCEEDED}
  347.   ICMP6_PARAM_PROB           = 4;
  348.   {$EXTERNALSYM ICMP6_PARAM_PROB}
  349.   ICMP6_ECHO_REQUEST         = 128;
  350.   {$EXTERNALSYM ICMP6_ECHO_REQUEST}
  351.   ICMP6_ECHO_REPLY           = 129;
  352.   {$EXTERNALSYM ICMP6_ECHO_REPLY}
  353.   ICMP6_MEMBERSHIP_QUERY     = 130;
  354.   {$EXTERNALSYM ICMP6_MEMBERSHIP_QUERY}
  355.   ICMP6_MEMBERSHIP_REPORT    = 131;
  356.   {$EXTERNALSYM ICMP6_MEMBERSHIP_REPORT}
  357.   ICMP6_MEMBERSHIP_REDUCTION = 132;
  358.   {$EXTERNALSYM ICMP6_MEMBERSHIP_REDUCTION}
  359.   ND_ROUTER_SOLICIT          = 133;
  360.   {$EXTERNALSYM ND_ROUTER_SOLICIT}
  361.   ND_ROUTER_ADVERT           = 134;
  362.   {$EXTERNALSYM ND_ROUTER_ADVERT}
  363.   ND_NEIGHBOR_SOLICIT        = 135;
  364.   {$EXTERNALSYM ND_NEIGHBOR_SOLICIT}
  365.   ND_NEIGHBOR_ADVERT         = 136;
  366.   {$EXTERNALSYM ND_NEIGHBOR_ADVERT}
  367.   ND_REDIRECT                = 137;
  368.   {$EXTERNALSYM ND_REDIRECT}
  370. type
  371.   ICMP6_TYPE = DWORD;
  372.   {$EXTERNALSYM ICMP6_TYPE}
  373.   PICMP6_TYPE = ^ICMP6_TYPE;
  374.   {$EXTERNALSYM PICMP6_TYPE}
  375.   TIcmp6Type = ICMP6_TYPE;
  376.   PIcmp6Type = PICMP6_TYPE;
  378. //
  379. // There are no RFC-specified defines for ICMPv4 message types, so we try to
  380. // use the ICMP6 values from RFC 2292 modified to be prefixed with ICMP4.
  381. //
  383. const
  384.   ICMP4_ECHO_REPLY        = 0;  // Echo Reply
  385.   {$EXTERNALSYM ICMP4_ECHO_REPLY}
  386.   ICMP4_DST_UNREACH       = 3;  // Destination Unreachable
  387.   {$EXTERNALSYM ICMP4_DST_UNREACH}
  388.   ICMP4_SOURCE_QUENCH     = 4;  // Source Quench
  389.   {$EXTERNALSYM ICMP4_SOURCE_QUENCH}
  390.   ICMP4_REDIRECT          = 5;  // Redirect
  391.   {$EXTERNALSYM ICMP4_REDIRECT}
  392.   ICMP4_ECHO_REQUEST      = 8;  // Echo Request
  393.   {$EXTERNALSYM ICMP4_ECHO_REQUEST}
  394.   ICMP4_ROUTER_ADVERT     = 9;  // Router Advertisement
  395.   {$EXTERNALSYM ICMP4_ROUTER_ADVERT}
  396.   ICMP4_ROUTER_SOLICIT    = 10; // Router Solicitation
  397.   {$EXTERNALSYM ICMP4_ROUTER_SOLICIT}
  398.   ICMP4_TIME_EXCEEDED     = 11; // Time Exceeded
  399.   {$EXTERNALSYM ICMP4_TIME_EXCEEDED}
  400.   ICMP4_PARAM_PROB        = 12; // Parameter Problem
  401.   {$EXTERNALSYM ICMP4_PARAM_PROB}
  402.   ICMP4_TIMESTAMP_REQUEST = 13; // Timestamp Request
  403.   {$EXTERNALSYM ICMP4_TIMESTAMP_REQUEST}
  404.   ICMP4_TIMESTAMP_REPLY   = 14; // Timestamp Reply
  405.   {$EXTERNALSYM ICMP4_TIMESTAMP_REPLY}
  406.   ICMP4_MASK_REQUEST      = 17; // Address Mask Request
  407.   {$EXTERNALSYM ICMP4_MASK_REQUEST}
  408.   ICMP4_MASK_REPLY        = 18; // Address Mask Reply
  409.   {$EXTERNALSYM ICMP4_MASK_REPLY}
  411. type
  412.   ICMP4_TYPE = DWORD;
  413.   {$EXTERNALSYM ICMP4_TYPE}
  414.   PICMP4_TYPE = ^ICMP4_TYPE;
  415.   {$EXTERNALSYM PICMP4_TYPE}
  416.   TIcmp4Type = ICMP4_TYPE;
  417.   PIcmp4Type = PICMP4_TYPE;
  419.   _MIBICMPSTATS_EX = record
  420.     dwMsgs: DWORD;
  421.     dwErrors: DWORD;
  422.     rgdwTypeCount: array [0..255] of DWORD;
  423.   end;
  424.   {$EXTERNALSYM _MIBICMPSTATS_EX}
  425.   MIBICMPSTATS_EX = _MIBICMPSTATS_EX;
  426.   {$EXTERNALSYM MIBICMPSTATS_EX}
  427.   PMIBICMPSTATS_EX = ^MIBICMPSTATS_EX;
  428.   {$EXTERNALSYM PMIBICMPSTATS_EX}
  429.   TMibIcmpStatsEx = MIBICMPSTATS_EX;
  430.   PMibIcmpStatsEx = PMIBICMPSTATS_EX;
  432.   _MIB_ICMP_EX = record
  433.     icmpInStats: MIBICMPSTATS_EX;
  434.     icmpOutStats: MIBICMPSTATS_EX;
  435.   end;
  436.   {$EXTERNALSYM _MIB_ICMP_EX}
  437.   MIB_ICMP_EX = _MIB_ICMP_EX;
  438.   {$EXTERNALSYM MIB_ICMP_EX}
  439.   PMIB_ICMP_EX = ^MIB_ICMP_EX;
  440.   {$EXTERNALSYM PMIB_ICMP_EX}
  441.   TMibIcmpEx = MIB_ICMP_EX;
  442.   PMibIcmpEx = PMIB_ICMP_EX;  
  444.   PMIB_UDPSTATS = ^MIB_UDPSTATS;
  445.   {$EXTERNALSYM PMIB_UDPSTATS}
  446.   _MIB_UDPSTATS = record
  447.     dwInDatagrams: DWORD;
  448.     dwNoPorts: DWORD;
  449.     dwInErrors: DWORD;
  450.     dwOutDatagrams: DWORD;
  451.     dwNumAddrs: DWORD;
  452.   end;
  453.   {$EXTERNALSYM _MIB_UDPSTATS}
  454.   MIB_UDPSTATS = _MIB_UDPSTATS;
  455.   {$EXTERNALSYM MIB_UDPSTATS}
  456.   TMibUdpStats = MIB_UDPSTATS;
  457.   PMibUdpStats = PMIB_UDPSTATS;
  459.   PMIB_UDPROW = ^MIB_UDPROW;
  460.   {$EXTERNALSYM PMIB_UDPROW}
  461.   _MIB_UDPROW = record
  462.     dwLocalAddr: DWORD;
  463.     dwLocalPort: DWORD;
  464.   end;
  465.   {$EXTERNALSYM _MIB_UDPROW}
  466.   MIB_UDPROW = _MIB_UDPROW;
  467.   {$EXTERNALSYM MIB_UDPROW}
  468.   TMibUdpRow = MIB_UDPROW;
  469.   PMibUdpRow = PMIB_UDPROW;
  471.   PMIB_UDPTABLE = ^MIB_UDPTABLE;
  472.   {$EXTERNALSYM PMIB_UDPTABLE}
  473.   _MIB_UDPTABLE = record
  474.     dwNumEntries: DWORD;
  475.     table: array [0..ANY_SIZE - 1] of MIB_UDPROW;
  476.   end;
  477.   {$EXTERNALSYM _MIB_UDPTABLE}
  478.   MIB_UDPTABLE = _MIB_UDPTABLE;
  479.   {$EXTERNALSYM MIB_UDPTABLE}
  480.   TMibUdpTable = MIB_UDPTABLE;
  481.   PMibUdpTable = PMIB_UDPTABLE;
  483. // #define SIZEOF_UDPTABLE(X) (FIELD_OFFSET(MIB_UDPTABLE, table[0]) + ((X) * sizeof(MIB_UDPROW)) + ALIGN_SIZE)
  485.   PMIB_TCPSTATS = ^MIB_TCPSTATS;
  486.   {$EXTERNALSYM PMIB_TCPSTATS}
  487.   _MIB_TCPSTATS = record
  488.     dwRtoAlgorithm: DWORD;
  489.     dwRtoMin: DWORD;
  490.     dwRtoMax: DWORD;
  491.     dwMaxConn: DWORD;
  492.     dwActiveOpens: DWORD;
  493.     dwPassiveOpens: DWORD;
  494.     dwAttemptFails: DWORD;
  495.     dwEstabResets: DWORD;
  496.     dwCurrEstab: DWORD;
  497.     dwInSegs: DWORD;
  498.     dwOutSegs: DWORD;
  499.     dwRetransSegs: DWORD;
  500.     dwInErrs: DWORD;
  501.     dwOutRsts: DWORD;
  502.     dwNumConns: DWORD;
  503.   end;
  504.   {$EXTERNALSYM _MIB_TCPSTATS}
  505.   MIB_TCPSTATS = _MIB_TCPSTATS;
  506.   {$EXTERNALSYM MIB_TCPSTATS}
  507.   TMibTcpStats = MIB_TCPSTATS;
  508.   PMibTcpStats = PMIB_TCPSTATS;
  510. const
  511.   MIB_TCP_RTO_OTHER    = 1;
  512.   {$EXTERNALSYM MIB_TCP_RTO_OTHER}
  513.   MIB_TCP_RTO_CONSTANT = 2;
  514.   {$EXTERNALSYM MIB_TCP_RTO_CONSTANT}
  515.   MIB_TCP_RTO_RSRE     = 3;
  516.   {$EXTERNALSYM MIB_TCP_RTO_RSRE}
  517.   MIB_TCP_RTO_VANJ     = 4;
  518.   {$EXTERNALSYM MIB_TCP_RTO_VANJ}
  520.   MIB_TCP_MAXCONN_DYNAMIC = DWORD(-1);
  521.   {$EXTERNALSYM MIB_TCP_MAXCONN_DYNAMIC}
  523. type
  524.   PMIB_TCPROW = ^MIB_TCPROW;
  525.   {$EXTERNALSYM PMIB_TCPROW}
  526.   _MIB_TCPROW = record
  527.     dwState: DWORD;
  528.     dwLocalAddr: DWORD;
  529.     dwLocalPort: DWORD;
  530.     dwRemoteAddr: DWORD;
  531.     dwRemotePort: DWORD;
  532.   end;
  533.   {$EXTERNALSYM _MIB_TCPROW}
  534.   MIB_TCPROW = _MIB_TCPROW;
  535.   {$EXTERNALSYM MIB_TCPROW}
  536.   TMibTcpRow = MIB_TCPROW;
  537.   PMibTcpRow = PMIB_TCPROW;
  539. const
  540.   MIB_TCP_STATE_CLOSED     = 1;
  541.   {$EXTERNALSYM MIB_TCP_STATE_CLOSED}
  542.   MIB_TCP_STATE_LISTEN     = 2;
  543.   {$EXTERNALSYM MIB_TCP_STATE_LISTEN}
  544.   MIB_TCP_STATE_SYN_SENT   = 3;
  545.   {$EXTERNALSYM MIB_TCP_STATE_SYN_SENT}
  546.   MIB_TCP_STATE_SYN_RCVD   = 4;
  547.   {$EXTERNALSYM MIB_TCP_STATE_SYN_RCVD}
  548.   MIB_TCP_STATE_ESTAB      = 5;
  549.   {$EXTERNALSYM MIB_TCP_STATE_ESTAB}
  550.   MIB_TCP_STATE_FIN_WAIT1  = 6;
  551.   {$EXTERNALSYM MIB_TCP_STATE_FIN_WAIT1}
  552.   MIB_TCP_STATE_FIN_WAIT2  = 7;
  553.   {$EXTERNALSYM MIB_TCP_STATE_FIN_WAIT2}
  554.   MIB_TCP_STATE_CLOSE_WAIT = 8;
  555.   {$EXTERNALSYM MIB_TCP_STATE_CLOSE_WAIT}
  556.   MIB_TCP_STATE_CLOSING    = 9;
  557.   {$EXTERNALSYM MIB_TCP_STATE_CLOSING}
  558.   MIB_TCP_STATE_LAST_ACK   = 10;
  559.   {$EXTERNALSYM MIB_TCP_STATE_LAST_ACK}
  560.   MIB_TCP_STATE_TIME_WAIT  = 11;
  561.   {$EXTERNALSYM MIB_TCP_STATE_TIME_WAIT}
  562.   MIB_TCP_STATE_DELETE_TCB = 12;
  563.   {$EXTERNALSYM MIB_TCP_STATE_DELETE_TCB}
  565. type
  566.   PMIB_TCPTABLE = ^MIB_TCPTABLE;
  567.   {$EXTERNALSYM PMIB_TCPTABLE}
  568.   _MIB_TCPTABLE = record
  569.     dwNumEntries: DWORD;
  570.     table: array [0..ANY_SIZE - 1] of MIB_TCPROW;
  571.   end;
  572.   {$EXTERNALSYM _MIB_TCPTABLE}
  573.   MIB_TCPTABLE = _MIB_TCPTABLE;
  574.   {$EXTERNALSYM MIB_TCPTABLE}
  575.   TMibTcpTable = MIB_TCPTABLE;
  576.   PMibTcpTable = PMIB_TCPTABLE;
  578. // #define SIZEOF_TCPTABLE(X) (FIELD_OFFSET(MIB_TCPTABLE,table[0]) + ((X) * sizeof(MIB_TCPROW)) + ALIGN_SIZE)
  580. const
  581.   MIB_USE_CURRENT_TTL        = DWORD(-1);
  582.   {$EXTERNALSYM MIB_USE_CURRENT_TTL}
  583.   MIB_USE_CURRENT_FORWARDING = DWORD(-1);
  584.   {$EXTERNALSYM MIB_USE_CURRENT_FORWARDING}
  586. type
  587.   PMIB_IPSTATS = ^MIB_IPSTATS;
  588.   {$EXTERNALSYM PMIB_IPSTATS}
  589.   _MIB_IPSTATS = record
  590.     dwForwarding: DWORD;
  591.     dwDefaultTTL: DWORD;
  592.     dwInReceives: DWORD;
  593.     dwInHdrErrors: DWORD;
  594.     dwInAddrErrors: DWORD;
  595.     dwForwDatagrams: DWORD;
  596.     dwInUnknownProtos: DWORD;
  597.     dwInDiscards: DWORD;
  598.     dwInDelivers: DWORD;
  599.     dwOutRequests: DWORD;
  600.     dwRoutingDiscards: DWORD;
  601.     dwOutDiscards: DWORD;
  602.     dwOutNoRoutes: DWORD;
  603.     dwReasmTimeout: DWORD;
  604.     dwReasmReqds: DWORD;
  605.     dwReasmOks: DWORD;
  606.     dwReasmFails: DWORD;
  607.     dwFragOks: DWORD;
  608.     dwFragFails: DWORD;
  609.     dwFragCreates: DWORD;
  610.     dwNumIf: DWORD;
  611.     dwNumAddr: DWORD;
  612.     dwNumRoutes: DWORD;
  613.   end;
  614.   {$EXTERNALSYM _MIB_IPSTATS}
  615.   MIB_IPSTATS = _MIB_IPSTATS;
  616.   {$EXTERNALSYM MIB_IPSTATS}
  617.   TMibIpStats = MIB_IPSTATS;
  618.   PMibIpStats = PMIB_IPSTATS;
  620. const
  621.   MIB_IP_FORWARDING     = 1;
  622.   {$EXTERNALSYM MIB_IP_FORWARDING}
  623.   MIB_IP_NOT_FORWARDING = 2;
  624.   {$EXTERNALSYM MIB_IP_NOT_FORWARDING}
  626. // Note: These addr types have dependency on ipdef.h
  628.   MIB_IPADDR_PRIMARY      = $0001;  // Primary ipaddr
  629.   {$EXTERNALSYM MIB_IPADDR_PRIMARY}
  630.   MIB_IPADDR_DYNAMIC      = $0004;  // Dynamic ipaddr
  631.   {$EXTERNALSYM MIB_IPADDR_DYNAMIC}
  632.   MIB_IPADDR_DISCONNECTED = $0008;  // Address is on disconnected interface
  633.   {$EXTERNALSYM MIB_IPADDR_DISCONNECTED}
  634.   MIB_IPADDR_DELETED      = $0040;  // Address being deleted
  635.   {$EXTERNALSYM MIB_IPADDR_DELETED}
  636.   MIB_IPADDR_TRANSIENT    = $0080;  // Transient address
  637.   {$EXTERNALSYM MIB_IPADDR_TRANSIENT}
  639. type
  640.   PMIB_IPADDRROW = ^MIB_IPADDRROW;
  641.   {$EXTERNALSYM PMIB_IPADDRROW}
  642.   _MIB_IPADDRROW = record
  643.     dwAddr: DWORD;
  644.     dwIndex: DWORD;
  645.     dwMask: DWORD;
  646.     dwBCastAddr: DWORD;
  647.     dwReasmSize: DWORD;
  648.     unused1: Word;
  649.     wType: Word;
  650.   end;
  651.   {$EXTERNALSYM _MIB_IPADDRROW}
  652.   MIB_IPADDRROW = _MIB_IPADDRROW;
  653.   {$EXTERNALSYM MIB_IPADDRROW}
  654.   TMibIpAddrRow = MIB_IPADDRROW;
  655.   PMibIpAddrRow = PMIB_IPADDRROW;
  657.   PMIB_IPADDRTABLE = ^MIB_IPADDRTABLE;
  658.   {$EXTERNALSYM PMIB_IPADDRTABLE}
  659.   _MIB_IPADDRTABLE = record
  660.     dwNumEntries: DWORD;
  661.     table: array [0..ANY_SIZE - 1] of MIB_IPADDRROW;
  662.   end;
  663.   {$EXTERNALSYM _MIB_IPADDRTABLE}
  664.   MIB_IPADDRTABLE = _MIB_IPADDRTABLE;
  665.   {$EXTERNALSYM MIB_IPADDRTABLE}
  666.   TMibIpAddrTable = _MIB_IPADDRTABLE;
  667.   PMibIpAddrTable = PMIB_IPADDRTABLE;
  669. // #define SIZEOF_IPADDRTABLE(X) (FIELD_OFFSET(MIB_IPADDRTABLE,table[0]) + ((X) * sizeof(MIB_IPADDRROW)) + ALIGN_SIZE)
  671. type
  672.   PMIB_IPFORWARDNUMBER = ^MIB_IPFORWARDNUMBER;
  673.   {$EXTERNALSYM PMIB_IPFORWARDNUMBER}
  674.   _MIB_IPFORWARDNUMBER = record
  675.     dwValue: DWORD;
  676.   end;
  677.   {$EXTERNALSYM _MIB_IPFORWARDNUMBER}
  678.   MIB_IPFORWARDNUMBER = _MIB_IPFORWARDNUMBER;
  679.   {$EXTERNALSYM MIB_IPFORWARDNUMBER}
  680.   TMibIpForwardNumber = MIB_IPFORWARDNUMBER;
  681.   PMibIpForwardNumber = PMIB_IPFORWARDNUMBER;
  683.   PMIB_IPFORWARDROW = ^MIB_IPFORWARDROW;
  684.   {$EXTERNALSYM PMIB_IPFORWARDROW}
  685.   _MIB_IPFORWARDROW = record
  686.     dwForwardDest: DWORD;
  687.     dwForwardMask: DWORD;
  688.     dwForwardPolicy: DWORD;
  689.     dwForwardNextHop: DWORD;
  690.     dwForwardIfIndex: DWORD;
  691.     dwForwardType: DWORD;
  692.     dwForwardProto: DWORD;
  693.     dwForwardAge: DWORD;
  694.     dwForwardNextHopAS: DWORD;
  695.     dwForwardMetric1: DWORD;
  696.     dwForwardMetric2: DWORD;
  697.     dwForwardMetric3: DWORD;
  698.     dwForwardMetric4: DWORD;
  699.     dwForwardMetric5: DWORD;
  700.   end;
  701.   {$EXTERNALSYM _MIB_IPFORWARDROW}
  702.   MIB_IPFORWARDROW = _MIB_IPFORWARDROW;
  703.   {$EXTERNALSYM MIB_IPFORWARDROW}
  704.   TMibIpForwardRow = MIB_IPFORWARDROW;
  705.   PMibIpForwardRow = PMIB_IPFORWARDROW;
  707. const
  708.   MIB_IPROUTE_TYPE_OTHER    = 1;
  709.   {$EXTERNALSYM MIB_IPROUTE_TYPE_OTHER}
  710.   MIB_IPROUTE_TYPE_INVALID  = 2;
  711.   {$EXTERNALSYM MIB_IPROUTE_TYPE_INVALID}
  712.   MIB_IPROUTE_TYPE_DIRECT   = 3;
  713.   {$EXTERNALSYM MIB_IPROUTE_TYPE_DIRECT}
  714.   MIB_IPROUTE_TYPE_INDIRECT = 4;
  715.   {$EXTERNALSYM MIB_IPROUTE_TYPE_INDIRECT}
  717.   MIB_IPROUTE_METRIC_UNUSED = DWORD(-1);
  718.   {$EXTERNALSYM MIB_IPROUTE_METRIC_UNUSED}
  720. //
  721. // THESE MUST MATCH the ids in routprot.h
  722. //
  724. const
  725.   MIB_IPPROTO_OTHER   = 1;
  726.   {$EXTERNALSYM MIB_IPPROTO_OTHER}
  727.   MIB_IPPROTO_LOCAL   = 2;
  728.   {$EXTERNALSYM MIB_IPPROTO_LOCAL}
  729.   MIB_IPPROTO_NETMGMT = 3;
  730.   {$EXTERNALSYM MIB_IPPROTO_NETMGMT}
  731.   MIB_IPPROTO_ICMP    = 4;
  732.   {$EXTERNALSYM MIB_IPPROTO_ICMP}
  733.   MIB_IPPROTO_EGP     = 5;
  734.   {$EXTERNALSYM MIB_IPPROTO_EGP}
  735.   MIB_IPPROTO_GGP     = 6;
  736.   {$EXTERNALSYM MIB_IPPROTO_GGP}
  737.   MIB_IPPROTO_HELLO   = 7;
  738.   {$EXTERNALSYM MIB_IPPROTO_HELLO}
  739.   MIB_IPPROTO_RIP     = 8;
  740.   {$EXTERNALSYM MIB_IPPROTO_RIP}
  741.   MIB_IPPROTO_IS_IS   = 9;
  742.   {$EXTERNALSYM MIB_IPPROTO_IS_IS}
  743.   MIB_IPPROTO_ES_IS   = 10;
  744.   {$EXTERNALSYM MIB_IPPROTO_ES_IS}
  745.   MIB_IPPROTO_CISCO   = 11;
  746.   {$EXTERNALSYM MIB_IPPROTO_CISCO}
  747.   MIB_IPPROTO_BBN     = 12;
  748.   {$EXTERNALSYM MIB_IPPROTO_BBN}
  749.   MIB_IPPROTO_OSPF    = 13;
  750.   {$EXTERNALSYM MIB_IPPROTO_OSPF}
  751.   MIB_IPPROTO_BGP     = 14;
  752.   {$EXTERNALSYM MIB_IPPROTO_BGP}
  754.   MIB_IPPROTO_NT_AUTOSTATIC     = 10002;
  755.   {$EXTERNALSYM MIB_IPPROTO_NT_AUTOSTATIC}
  756.   MIB_IPPROTO_NT_STATIC         = 10006;
  757.   {$EXTERNALSYM MIB_IPPROTO_NT_STATIC}
  758.   MIB_IPPROTO_NT_STATIC_NON_DOD = 10007;
  759.   {$EXTERNALSYM MIB_IPPROTO_NT_STATIC_NON_DOD}
  761. type
  762.   PMIB_IPFORWARDTABLE = ^MIB_IPFORWARDTABLE;
  763.   {$EXTERNALSYM PMIB_IPFORWARDTABLE}
  764.   _MIB_IPFORWARDTABLE = record
  765.     dwNumEntries: DWORD;
  766.     table: array [0..ANY_SIZE - 1] of MIB_IPFORWARDROW;
  767.   end;
  768.   {$EXTERNALSYM _MIB_IPFORWARDTABLE}
  769.   MIB_IPFORWARDTABLE = _MIB_IPFORWARDTABLE;
  770.   {$EXTERNALSYM MIB_IPFORWARDTABLE}
  771.   TMibIpForwardTable = MIB_IPFORWARDTABLE;
  772.   PMibIpForwardTable = PMIB_IPFORWARDTABLE;
  774. // #define SIZEOF_IPFORWARDTABLE(X) (FIELD_OFFSET(MIB_IPFORWARDTABLE,table[0]) + ((X) * sizeof(MIB_IPFORWARDROW)) + ALIGN_SIZE)
  776. type
  777.   PMIB_IPNETROW = ^MIB_IPNETROW;
  778.   {$EXTERNALSYM PMIB_IPNETROW}
  779.   _MIB_IPNETROW = record
  780.     dwIndex: DWORD;
  781.     dwPhysAddrLen: DWORD;
  782.     bPhysAddr: array [0..MAXLEN_PHYSADDR - 1] of BYTE;
  783.     dwAddr: DWORD;
  784.     dwType: DWORD;
  785.   end;
  786.   {$EXTERNALSYM _MIB_IPNETROW}
  787.   MIB_IPNETROW = _MIB_IPNETROW;
  788.   {$EXTERNALSYM MIB_IPNETROW}
  789.   TMibIpNetRow = MIB_IPNETROW;
  790.   PMibIpNetRow = PMIB_IPNETROW;
  792. const
  793.   MIB_IPNET_TYPE_OTHER   = 1;
  794.   {$EXTERNALSYM MIB_IPNET_TYPE_OTHER}
  795.   MIB_IPNET_TYPE_INVALID = 2;
  796.   {$EXTERNALSYM MIB_IPNET_TYPE_INVALID}
  797.   MIB_IPNET_TYPE_DYNAMIC = 3;
  798.   {$EXTERNALSYM MIB_IPNET_TYPE_DYNAMIC}
  799.   MIB_IPNET_TYPE_STATIC  = 4;
  800.   {$EXTERNALSYM MIB_IPNET_TYPE_STATIC}
  802. type
  803.   PMIB_IPNETTABLE = ^MIB_IPNETTABLE;
  804.   {$EXTERNALSYM PMIB_IPNETTABLE}
  805.   _MIB_IPNETTABLE = record
  806.     dwNumEntries: DWORD;
  807.     table: array [0..ANY_SIZE - 1] of MIB_IPNETROW;
  808.   end;
  809.   {$EXTERNALSYM _MIB_IPNETTABLE}
  810.   MIB_IPNETTABLE = _MIB_IPNETTABLE;
  811.   {$EXTERNALSYM MIB_IPNETTABLE}
  812.   TMibIpNetTable = MIB_IPNETTABLE;
  813.   PMibIpNetTable = PMIB_IPNETTABLE;
  815. // #define SIZEOF_IPNETTABLE(X) (FIELD_OFFSET(MIB_IPNETTABLE, table[0]) + ((X) * sizeof(MIB_IPNETROW)) + ALIGN_SIZE)
  817. type
  818.   PMIB_IPMCAST_OIF = ^MIB_IPMCAST_OIF;
  819.   {$EXTERNALSYM PMIB_IPMCAST_OIF}
  820.   _MIB_IPMCAST_OIF = record
  821.     dwOutIfIndex: DWORD;
  822.     dwNextHopAddr: DWORD;
  823.     dwReserved: DWORD;
  824.     dwReserved1: DWORD;
  825.   end;
  826.   {$EXTERNALSYM _MIB_IPMCAST_OIF}
  827.   MIB_IPMCAST_OIF = _MIB_IPMCAST_OIF;
  828.   {$EXTERNALSYM MIB_IPMCAST_OIF}
  829.   TMibIpmCastOif = MIB_IPMCAST_OIF;
  830.   PMibIpmCastOif = PMIB_IPMCAST_OIF;
  832.   PMIB_IPMCAST_MFE = ^MIB_IPMCAST_MFE;
  833.   {$EXTERNALSYM PMIB_IPMCAST_MFE}
  834.   _MIB_IPMCAST_MFE = record
  835.     dwGroup: DWORD;
  836.     dwSource: DWORD;
  837.     dwSrcMask: DWORD;
  838.     dwUpStrmNgbr: DWORD;
  839.     dwInIfIndex: DWORD;
  840.     dwInIfProtocol: DWORD;
  841.     dwRouteProtocol: DWORD;
  842.     dwRouteNetwork: DWORD;
  843.     dwRouteMask: DWORD;
  844.     ulUpTime: ULONG;
  845.     ulExpiryTime: ULONG;
  846.     ulTimeOut: ULONG;
  847.     ulNumOutIf: ULONG;
  848.     fFlags: DWORD;
  849.     dwReserved: DWORD;
  850.     rgmioOutInfo: array [0..ANY_SIZE - 1] of MIB_IPMCAST_OIF;
  851.   end;
  852.   {$EXTERNALSYM _MIB_IPMCAST_MFE}
  853.   MIB_IPMCAST_MFE = _MIB_IPMCAST_MFE;
  854.   {$EXTERNALSYM MIB_IPMCAST_MFE}
  855.   TMibIpmCastMfe = MIB_IPMCAST_MFE;
  856.   PMibIpmCastMfe = PMIB_IPMCAST_MFE;
  858.   PMIB_MFE_TABLE = ^MIB_MFE_TABLE;
  859.   {$EXTERNALSYM PMIB_MFE_TABLE}
  860.   _MIB_MFE_TABLE = record
  861.     dwNumEntries: DWORD;
  862.     table: array [0..ANY_SIZE - 1] of MIB_IPMCAST_MFE;
  863.   end;
  864.   {$EXTERNALSYM _MIB_MFE_TABLE}
  865.   MIB_MFE_TABLE = _MIB_MFE_TABLE;
  866.   {$EXTERNALSYM MIB_MFE_TABLE}
  867.   TMibMfeTable = MIB_MFE_TABLE;
  868.   PMibMfeTable = PMIB_MFE_TABLE;
  871. // #define SIZEOF_BASIC_MIB_MFE          
  872. //    (ULONG)(FIELD_OFFSET(MIB_IPMCAST_MFE, rgmioOutInfo[0]))
  874. // #define SIZEOF_MIB_MFE(X)             
  875. //    (SIZEOF_BASIC_MIB_MFE + ((X) * sizeof(MIB_IPMCAST_OIF)))
  877. type
  878.   PMIB_IPMCAST_OIF_STATS = ^MIB_IPMCAST_OIF_STATS;
  879.   {$EXTERNALSYM PMIB_IPMCAST_OIF_STATS}
  880.   _MIB_IPMCAST_OIF_STATS = record
  881.     dwOutIfIndex: DWORD;
  882.     dwNextHopAddr: DWORD;
  883.     dwDialContext: DWORD;
  884.     ulTtlTooLow: ULONG;
  885.     ulFragNeeded: ULONG;
  886.     ulOutPackets: ULONG;
  887.     ulOutDiscards: ULONG;
  888.   end;
  889.   {$EXTERNALSYM _MIB_IPMCAST_OIF_STATS}
  890.   MIB_IPMCAST_OIF_STATS = _MIB_IPMCAST_OIF_STATS;
  891.   {$EXTERNALSYM MIB_IPMCAST_OIF_STATS}
  892.   TMibIpmCastOifStats = MIB_IPMCAST_OIF_STATS;
  893.   PMibIpmCastOifStats = PMIB_IPMCAST_OIF_STATS;
  895.   PMIB_IPMCAST_MFE_STATS = ^MIB_IPMCAST_MFE_STATS;
  896.   {$EXTERNALSYM PMIB_IPMCAST_MFE_STATS}
  897.   _MIB_IPMCAST_MFE_STATS = record
  898.     dwGroup: DWORD;
  899.     dwSource: DWORD;
  900.     dwSrcMask: DWORD;
  901.     dwUpStrmNgbr: DWORD;
  902.     dwInIfIndex: DWORD;
  903.     dwInIfProtocol: DWORD;
  904.     dwRouteProtocol: DWORD;
  905.     dwRouteNetwork: DWORD;
  906.     dwRouteMask: DWORD;
  907.     ulUpTime: ULONG;
  908.     ulExpiryTime: ULONG;
  909.     ulNumOutIf: ULONG;
  910.     ulInPkts: ULONG;
  911.     ulInOctets: ULONG;
  912.     ulPktsDifferentIf: ULONG;
  913.     ulQueueOverflow: ULONG;
  914.     rgmiosOutStats: array [0..ANY_SIZE - 1] of MIB_IPMCAST_OIF_STATS;
  915.   end;
  916.   {$EXTERNALSYM _MIB_IPMCAST_MFE_STATS}
  917.   MIB_IPMCAST_MFE_STATS = _MIB_IPMCAST_MFE_STATS;
  918.   {$EXTERNALSYM MIB_IPMCAST_MFE_STATS}
  919.   TMibIpmCastMfeStats = MIB_IPMCAST_MFE_STATS;
  920.   PMibIpmCastMfeStats = PMIB_IPMCAST_MFE_STATS;
  922.   PMIB_MFE_STATS_TABLE = ^MIB_MFE_STATS_TABLE;
  923.   {$EXTERNALSYM PMIB_MFE_STATS_TABLE}
  924.   _MIB_MFE_STATS_TABLE = record
  925.     dwNumEntries: DWORD;
  926.     table: array [0..ANY_SIZE - 1] of MIB_IPMCAST_MFE_STATS;
  927.   end;
  928.   {$EXTERNALSYM _MIB_MFE_STATS_TABLE}
  929.   MIB_MFE_STATS_TABLE = _MIB_MFE_STATS_TABLE;
  930.   {$EXTERNALSYM MIB_MFE_STATS_TABLE}
  931.   TMibMfeStatsTable = MIB_MFE_STATS_TABLE;
  932.   PMibMfeStatsTable = PMIB_MFE_STATS_TABLE;
  934. // #define SIZEOF_BASIC_MIB_MFE_STATS    
  935. //    (ULONG)(FIELD_OFFSET(MIB_IPMCAST_MFE_STATS, rgmiosOutStats[0]))
  937. // #define SIZEOF_MIB_MFE_STATS(X)       
  938. //    (SIZEOF_BASIC_MIB_MFE_STATS + ((X) * sizeof(MIB_IPMCAST_OIF_STATS)))
  940. type
  941.   _MIB_IPMCAST_MFE_STATS_EX = record
  942.     dwGroup: DWORD;
  943.     dwSource: DWORD;
  944.     dwSrcMask: DWORD;
  945.     dwUpStrmNgbr: DWORD;
  946.     dwInIfIndex: DWORD;
  947.     dwInIfProtocol: DWORD;
  948.     dwRouteProtocol: DWORD;
  949.     dwRouteNetwork: DWORD;
  950.     dwRouteMask: DWORD;
  951.     ulUpTime: ULONG;
  952.     ulExpiryTime: ULONG;
  953.     ulNumOutIf: ULONG;
  954.     ulInPkts: ULONG;
  955.     ulInOctets: ULONG;
  956.     ulPktsDifferentIf: ULONG;
  957.     ulQueueOverflow: ULONG;
  958.     ulUninitMfe: ULONG;
  959.     ulNegativeMfe: ULONG;
  960.     ulInDiscards: ULONG;
  961.     ulInHdrErrors: ULONG;
  962.     ulTotalOutPackets: ULONG;
  964.     rgmiosOutStats: array [0..ANY_SIZE - 1] of MIB_IPMCAST_OIF_STATS;
  965.   end;
  966.   {$EXTERNALSYM _MIB_IPMCAST_MFE_STATS_EX}
  967.   MIB_IPMCAST_MFE_STATS_EX = _MIB_IPMCAST_MFE_STATS_EX;
  968.   {$EXTERNALSYM MIB_IPMCAST_MFE_STATS_EX}
  969.   PMIB_IPMCAST_MFE_STATS_EX = ^MIB_IPMCAST_MFE_STATS_EX;
  970.   {$EXTERNALSYM PMIB_IPMCAST_MFE_STATS_EX}
  971.   TMibIpMCastMfeStatsEx = MIB_IPMCAST_MFE_STATS_EX;
  972.   PMibIpMCastMfeStatsEx = PMIB_IPMCAST_MFE_STATS_EX;  
  974.   _MIB_MFE_STATS_TABLE_EX = record
  975.     dwNumEntries: DWORD;
  976.     table: array [0..ANY_SIZE - 1] of MIB_IPMCAST_MFE_STATS_EX;
  977.   end;
  978.   {$EXTERNALSYM _MIB_MFE_STATS_TABLE_EX}
  979.   MIB_MFE_STATS_TABLE_EX = _MIB_MFE_STATS_TABLE_EX;
  980.   {$EXTERNALSYM MIB_MFE_STATS_TABLE_EX}
  981.   PMIB_MFE_STATS_TABLE_EX = ^MIB_MFE_STATS_TABLE_EX;
  982.   {$EXTERNALSYM PMIB_MFE_STATS_TABLE_EX}
  983.   TMibMfeStatsTableEx = MIB_MFE_STATS_TABLE_EX;
  984.   PMibMfeStatsTableEx = PMIB_MFE_STATS_TABLE_EX;
  986. //#define SIZEOF_BASIC_MIB_MFE_STATS_EX    
  987. //    (ULONG)(FIELD_OFFSET(MIB_IPMCAST_MFE_STATS_EX, rgmiosOutStats[0]))
  989. //#define SIZEOF_MIB_MFE_STATS_EX(X)       
  990. //    (SIZEOF_BASIC_MIB_MFE_STATS_EX + ((X) * sizeof(MIB_IPMCAST_OIF_STATS)))
  992. type
  993.   PMIB_IPMCAST_GLOBAL = ^MIB_IPMCAST_GLOBAL;
  994.   {$EXTERNALSYM PMIB_IPMCAST_GLOBAL}
  995.   _MIB_IPMCAST_GLOBAL = record
  996.     dwEnable: DWORD;
  997.   end;
  998.   {$EXTERNALSYM _MIB_IPMCAST_GLOBAL}
  999.   MIB_IPMCAST_GLOBAL = _MIB_IPMCAST_GLOBAL;
  1000.   {$EXTERNALSYM MIB_IPMCAST_GLOBAL}
  1001.   TMibIpmCastGlobal = MIB_IPMCAST_GLOBAL;
  1002.   PMibIpmCastGlobal = PMIB_IPMCAST_GLOBAL;
  1004.   PMIB_IPMCAST_IF_ENTRY = ^MIB_IPMCAST_IF_ENTRY;
  1005.   {$EXTERNALSYM PMIB_IPMCAST_IF_ENTRY}
  1006.   _MIB_IPMCAST_IF_ENTRY = record
  1007.     dwIfIndex: DWORD;
  1008.     dwTtl: DWORD;
  1009.     dwProtocol: DWORD;
  1010.     dwRateLimit: DWORD;
  1011.     ulInMcastOctets: ULONG;
  1012.     ulOutMcastOctets: ULONG;
  1013.   end;
  1014.   {$EXTERNALSYM _MIB_IPMCAST_IF_ENTRY}
  1015.   MIB_IPMCAST_IF_ENTRY = _MIB_IPMCAST_IF_ENTRY;
  1016.   {$EXTERNALSYM MIB_IPMCAST_IF_ENTRY}
  1017.   TMibIpmCastIfEntry = MIB_IPMCAST_IF_ENTRY;
  1018.   PMibIpmCastIfEntry = PMIB_IPMCAST_IF_ENTRY;
  1020.   PMIB_IPMCAST_IF_TABLE = ^MIB_IPMCAST_IF_TABLE;
  1021.   {$EXTERNALSYM PMIB_IPMCAST_IF_TABLE}
  1022.   _MIB_IPMCAST_IF_TABLE = record
  1023.     dwNumEntries: DWORD;
  1024.     table: array [0..ANY_SIZE - 1] of MIB_IPMCAST_IF_ENTRY;
  1025.   end;
  1026.   {$EXTERNALSYM _MIB_IPMCAST_IF_TABLE}
  1027.   MIB_IPMCAST_IF_TABLE = _MIB_IPMCAST_IF_TABLE;
  1028.   {$EXTERNALSYM MIB_IPMCAST_IF_TABLE}
  1029.   TMibIpmCastIfTable = MIB_IPMCAST_IF_TABLE;
  1030.   PMibIpmCastIfTable = PMIB_IPMCAST_IF_TABLE;
  1032. // #define SIZEOF_MCAST_IF_TABLE(X) (FIELD_OFFSET(MIB_IPMCAST_IF_TABLE,table[0]) + ((X) * sizeof(MIB_IPMCAST_IF_ENTRY)) + ALIGN_SIZE)
  1034. type
  1035.   PMIB_IPMCAST_BOUNDARY = ^MIB_IPMCAST_BOUNDARY;
  1036.   {$EXTERNALSYM PMIB_IPMCAST_BOUNDARY}
  1037.   _MIB_IPMCAST_BOUNDARY = record
  1038.     dwIfIndex: DWORD;
  1039.     dwGroupAddress: DWORD;
  1040.     dwGroupMask: DWORD;
  1041.     dwStatus: DWORD;
  1042.   end;
  1043.   {$EXTERNALSYM _MIB_IPMCAST_BOUNDARY}
  1044.   MIB_IPMCAST_BOUNDARY = _MIB_IPMCAST_BOUNDARY;
  1045.   {$EXTERNALSYM MIB_IPMCAST_BOUNDARY}
  1046.   TMibIpmCastBoundary = MIB_IPMCAST_BOUNDARY;
  1047.   PMibIpmCastBoundary = PMIB_IPMCAST_BOUNDARY;
  1049.   PMIB_IPMCAST_BOUNDARY_TABLE = ^MIB_IPMCAST_BOUNDARY_TABLE;
  1050.   {$EXTERNALSYM PMIB_IPMCAST_BOUNDARY_TABLE}
  1051.   _MIB_IPMCAST_BOUNDARY_TABLE = record
  1052.     dwNumEntries: DWORD;
  1053.     table: array [0..ANY_SIZE - 1] of MIB_IPMCAST_BOUNDARY;
  1054.   end;
  1055.   {$EXTERNALSYM _MIB_IPMCAST_BOUNDARY_TABLE}
  1056.   MIB_IPMCAST_BOUNDARY_TABLE = _MIB_IPMCAST_BOUNDARY_TABLE;
  1057.   {$EXTERNALSYM MIB_IPMCAST_BOUNDARY_TABLE}
  1058.   TMibIpmCastBoundaryTable = MIB_IPMCAST_BOUNDARY_TABLE;
  1059.   PMibIpmCastBoundaryTable = PMIB_IPMCAST_BOUNDARY_TABLE;
  1061. // #define SIZEOF_BOUNDARY_TABLE(X) (FIELD_OFFSET(MIB_IPMCAST_BOUNDARY_TABLE,table[0]) + ((X) * sizeof(MIB_IPMCAST_BOUNDARY)) + ALIGN_SIZE)
  1063. type
  1064.   PMIB_BOUNDARYROW = ^MIB_BOUNDARYROW;
  1065.   {$EXTERNALSYM PMIB_BOUNDARYROW}
  1066.   MIB_BOUNDARYROW = record
  1067.     dwGroupAddress: DWORD;
  1068.     dwGroupMask: DWORD;
  1069.   end;
  1070.   {$EXTERNALSYM MIB_BOUNDARYROW}
  1071.   TMibBoundaryRow = MIB_BOUNDARYROW;
  1072.   PMibBoundaryRow = PMIB_BOUNDARYROW;
  1074. // Structure matching what goes in the registry in a block of type
  1075. // IP_MCAST_LIMIT_INFO.  This contains the fields of
  1076. // MIB_IPMCAST_IF_ENTRY which are configurable.
  1078.   PMIB_MCAST_LIMIT_ROW = ^MIB_MCAST_LIMIT_ROW;
  1079.   {$EXTERNALSYM PMIB_MCAST_LIMIT_ROW}
  1080.   MIB_MCAST_LIMIT_ROW = record
  1081.     dwTtl: DWORD;
  1082.     dwRateLimit: DWORD;
  1083.   end;
  1084.   {$EXTERNALSYM MIB_MCAST_LIMIT_ROW}
  1085.   TMibMcastLimitRow = MIB_MCAST_LIMIT_ROW;
  1086.   PMibMcastLimitRow = PMIB_MCAST_LIMIT_ROW;
  1088. const
  1089.   MAX_SCOPE_NAME_LEN = 255;
  1090.   {$EXTERNALSYM MAX_SCOPE_NAME_LEN}
  1092. //
  1093. // Scope names are unicode.  SNMP and MZAP use UTF-8 encoding.
  1094. //
  1096. type
  1097.   SN_CHAR = WCHAR;
  1098.   {$EXTERNALSYM SN_CHAR}
  1099.   SCOPE_NAME_BUFFER = array [0..MAX_SCOPE_NAME_LEN] of SN_CHAR;
  1100.   {$EXTERNALSYM SCOPE_NAME_BUFFER}
  1101.   SCOPE_NAME = ^SN_CHAR;
  1102.   {$EXTERNALSYM SCOPE_NAME}
  1104.   PMIB_IPMCAST_SCOPE = ^MIB_IPMCAST_SCOPE;
  1105.   {$EXTERNALSYM PMIB_IPMCAST_SCOPE}
  1106.   _MIB_IPMCAST_SCOPE = record
  1107.     dwGroupAddress: DWORD;
  1108.     dwGroupMask: DWORD;
  1109.     snNameBuffer: SCOPE_NAME_BUFFER;
  1110.     dwStatus: DWORD;
  1111.   end;
  1112.   {$EXTERNALSYM _MIB_IPMCAST_SCOPE}
  1113.   MIB_IPMCAST_SCOPE = _MIB_IPMCAST_SCOPE;
  1114.   {$EXTERNALSYM MIB_IPMCAST_SCOPE}
  1115.   TMibIpmCastScope = MIB_IPMCAST_SCOPE;
  1116.   PMibIpmCastScope = PMIB_IPMCAST_SCOPE;
  1118.   PMIB_IPDESTROW = ^MIB_IPDESTROW;
  1119.   {$EXTERNALSYM PMIB_IPDESTROW}
  1120.   _MIB_IPDESTROW = record
  1121.     ForwardRow: MIB_IPFORWARDROW;
  1122.     dwForwardPreference: DWORD;
  1123.     dwForwardViewSet: DWORD;
  1124.   end;
  1125.   {$EXTERNALSYM _MIB_IPDESTROW}
  1126.   MIB_IPDESTROW = _MIB_IPDESTROW;
  1127.   {$EXTERNALSYM MIB_IPDESTROW}
  1128.   TMibIpDestRow = MIB_IPDESTROW;
  1129.   PMibIpDestRow = PMIB_IPDESTROW;
  1131.   PMIB_IPDESTTABLE = ^MIB_IPDESTTABLE;
  1132.   {$EXTERNALSYM PMIB_IPDESTTABLE}
  1133.   _MIB_IPDESTTABLE = record
  1134.     dwNumEntries: DWORD;
  1135.     table: array [0..ANY_SIZE - 1] of MIB_IPDESTROW;
  1136.   end;
  1137.   {$EXTERNALSYM _MIB_IPDESTTABLE}
  1138.   MIB_IPDESTTABLE = _MIB_IPDESTTABLE;
  1139.   {$EXTERNALSYM MIB_IPDESTTABLE}
  1140.   TMibIpDestTable = MIB_IPDESTTABLE;
  1141.   PMibIpDestTable = PMIB_IPDESTTABLE;
  1143.   PMIB_BEST_IF = ^MIB_BEST_IF;
  1144.   {$EXTERNALSYM PMIB_BEST_IF}
  1145.   _MIB_BEST_IF = record
  1146.     dwDestAddr: DWORD;
  1147.     dwIfIndex: DWORD;
  1148.   end;
  1149.   {$EXTERNALSYM _MIB_BEST_IF}
  1150.   MIB_BEST_IF = _MIB_BEST_IF;
  1151.   {$EXTERNALSYM MIB_BEST_IF}
  1152.   TMibBestIf = MIB_BEST_IF;
  1153.   PMibBestIf = PMIB_BEST_IF;
  1155.   PMIB_PROXYARP = ^MIB_PROXYARP;
  1156.   {$EXTERNALSYM PMIB_PROXYARP}
  1157.   _MIB_PROXYARP = record
  1158.     dwAddress: DWORD;
  1159.     dwMask: DWORD;
  1160.     dwIfIndex: DWORD;
  1161.   end;
  1162.   {$EXTERNALSYM _MIB_PROXYARP}
  1163.   MIB_PROXYARP = _MIB_PROXYARP;
  1164.   {$EXTERNALSYM MIB_PROXYARP}
  1165.   TMibProxyArp = MIB_PROXYARP;
  1166.   PMibProxyArp = PMIB_PROXYARP;
  1168.   PMIB_IFSTATUS = ^MIB_IFSTATUS;
  1169.   {$EXTERNALSYM PMIB_IFSTATUS}
  1170.   _MIB_IFSTATUS = record
  1171.     dwIfIndex: DWORD;
  1172.     dwAdminStatus: DWORD;
  1173.     dwOperationalStatus: DWORD;
  1174.     bMHbeatActive: BOOL;
  1175.     bMHbeatAlive: BOOL;
  1176.   end;
  1177.   {$EXTERNALSYM _MIB_IFSTATUS}
  1178.   MIB_IFSTATUS = _MIB_IFSTATUS;
  1179.   {$EXTERNALSYM MIB_IFSTATUS}
  1180.   TMibIfStatus = MIB_IFSTATUS;
  1181.   PMibIfStatus = PMIB_IFSTATUS;
  1183.   PMIB_ROUTESTATE = ^MIB_ROUTESTATE;
  1184.   {$EXTERNALSYM PMIB_ROUTESTATE}
  1185.   _MIB_ROUTESTATE = record
  1186.     bRoutesSetToStack: BOOL;
  1187.   end;
  1188.   {$EXTERNALSYM _MIB_ROUTESTATE}
  1189.   MIB_ROUTESTATE = _MIB_ROUTESTATE;
  1190.   {$EXTERNALSYM MIB_ROUTESTATE}
  1191.   TMibRouteState = MIB_ROUTESTATE;
  1192.   PMibRouteState = PMIB_ROUTESTATE;
  1194. //////////////////////////////////////////////////////////////////////////////
  1195. //                                                                          //
  1196. // All the info passed to (SET/CREATE) and from (GET/GETNEXT/GETFIRST)      //
  1197. // IP Router Manager is encapsulated in the following "discriminated"       //
  1198. // union.  To pass, say MIB_IFROW, use the following code                   //
  1199. //                                                                          //
  1200. //  PMIB_OPAQUE_INFO    pInfo;                                              //
  1201. //  PMIB_IFROW          pIfRow;                                             //
  1202. //  DWORD rgdwBuff[(MAX_MIB_OFFSET + sizeof(MIB_IFROW))/sizeof(DWORD) + 1]; //
  1203. //                                                                          //
  1204. //  pInfo   = (PMIB_OPAQUE_INFO)rgdwBuffer;                                 //
  1205. //  pIfRow  = (MIB_IFROW *)(pInfo->rgbyData);                               //
  1206. //                                                                          //
  1207. //  This can also be accomplished by using the following macro              //
  1208. //                                                                          //
  1209. //  DEFINE_MIB_BUFFER(pInfo,MIB_IFROW, pIfRow);                             //
  1210. //                                                                          //
  1211. //////////////////////////////////////////////////////////////////////////////
  1213. type
  1214.   PMibOpaqueInfo = ^TMibOpaqueInfo;
  1215.   _MIB_OPAQUE_INFO = record
  1216.     dwId: DWORD;
  1217.     case Integer of
  1218.       0: (ullAlign: Int64); // ULONGLONG (unsigned!)
  1219.       1: (rgbyData: array [0..0] of BYTE);
  1220.   end;
  1221.   {$EXTERNALSYM _MIB_OPAQUE_INFO}
  1222.   MIB_OPAQUE_INFO = _MIB_OPAQUE_INFO;
  1223.   {$EXTERNALSYM MIB_OPAQUE_INFO}
  1224.   TMibOpaqueInfo = MIB_OPAQUE_INFO;
  1226. const
  1227.   MAX_MIB_OFFSET = 8;
  1228.   {$EXTERNALSYM MAX_MIB_OFFSET}
  1230. // #define MIB_INFO_SIZE(S)    (MAX_MIB_OFFSET + sizeof(S))
  1232. // #define MIB_INFO_SIZE_IN_DWORDS(S)      
  1233. //    ((MIB_INFO_SIZE(S))/sizeof(DWORD) + 1)
  1235. // #define DEFINE_MIB_BUFFER(X,Y,Z)                                        
  1236. //    DWORD __rgdwBuff[MIB_INFO_SIZE_IN_DWORDS(Y)]; 
  1237. //    PMIB_OPAQUE_INFO    X = (PMIB_OPAQUE_INFO)__rgdwBuff;               
  1238. //    Y *                 Z = (Y *)(X->rgbyData)
  1240. // #define CAST_MIB_INFO(X,Y,Z)    Z = (Y)(X->rgbyData)
  1242. implementation
  1244. end.