{******************************************************************************}
{ }
{ Management Information Base API interface Unit for Object Pascal }
{ }
{ Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft }
{ Corporation. All Rights Reserved. }
{ }
{ The original file is: iprtrmib.h, released August 2001. The original Pascal }
{ code is: IpRtrMib.pas, released September 2000. The initial developer of the }
{ Pascal code is Marcel van Brakel (brakelm att chello dott nl). }
{ }
{ Portions created by Marcel van Brakel are Copyright (C) 1999-2001 }
{ Marcel van Brakel. All Rights Reserved. }
{ }
{ Contributor(s): John C. Penman (jcp att craiglockhart dott com) }
{ Vladimir Vassiliev (voldemarv att hotpop dott com) }
{ }
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) }
{ }
{ You may retrieve the latest version of this file at the Project JEDI }
{ APILIB home page, located at http://jedi-apilib.sourceforge.net }
{ }
{ The contents of this file are used with permission, subject to the Mozilla }
{ Public License Version 1.1 (the "License"); you may not use this file except }
{ in compliance with the License. You may obtain a copy of the License at }
{ http://www.mozilla.org/MPL/MPL-1.1.html }
{ }
{ Software distributed under the License is distributed on an "AS IS" basis, }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
{ the specific language governing rights and limitations under the License. }
{ }
{ Alternatively, the contents of this file may be used under the terms of the }
{ GNU Lesser General Public License (the "LGPL License"), in which case the }
{ provisions of the LGPL License are applicable instead of those above. }
{ If you wish to allow use of your version of this file only under the terms }
{ of the LGPL License and not to allow others to use your version of this file }
{ under the MPL, indicate your decision by deleting the provisions above and }
{ replace them with the notice and other provisions required by the LGPL }
{ License. If you do not delete the provisions above, a recipient may use }
{ your version of this file under either the MPL or the LGPL License. }
{ }
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
{ }
{******************************************************************************}
unit JwaIpRtrMib;
{$WEAKPACKAGEUNIT}
{$HPPEMIT ''}
{$HPPEMIT '#include "iprtrmib.h"'}
{$HPPEMIT ''}
{$I jediapilib.inc}
interface
uses
JwaWinType;
//////////////////////////////////////////////////////////////////////////////
// //
// Included to get the value of MAX_INTERFACE_NAME_LEN //
// //
//////////////////////////////////////////////////////////////////////////////
// #include <mprapi.h>
//////////////////////////////////////////////////////////////////////////////
// //
// Included to get the necessary constants //
// //
//////////////////////////////////////////////////////////////////////////////
// #include <ipifcons.h>
//////////////////////////////////////////////////////////////////////////////
// //
// This is the Id for IP Router Manager. The Router Manager handles //
// MIB-II, Forwarding MIB and some enterprise specific information. //
// Calls made with any other ID are passed on to the corresponding protocol //
// For example, an MprAdminMIBXXX call with a protocol ID of PID_IP and //
// a routing Id of 0xD will be sent to the IP Router Manager and then //
// forwarded to OSPF //
// This lives in the same number space as the protocol Ids of RIP, OSPF //
// etc, so any change made to it should be done keeping this in mind //
// //
//////////////////////////////////////////////////////////////////////////////
const
MAX_INTERFACE_NAME_LEN = 256; // MPRAPI.H
{$EXTERNALSYM MAX_INTERFACE_NAME_LEN}
IPRTRMGR_PID = 10000;
{$EXTERNALSYM IPRTRMGR_PID}
ANY_SIZE = 1;
{$EXTERNALSYM ANY_SIZE}
//////////////////////////////////////////////////////////////////////////////
// //
// The following #defines are the Ids of the MIB variables made accessible //
// to the user via MprAdminMIBXXX Apis. It will be noticed that these are //
// not the same as RFC 1213, since the MprAdminMIBXXX APIs work on rows and //
// groups instead of scalar variables //
// //
//////////////////////////////////////////////////////////////////////////////
IF_NUMBER = 0;
{$EXTERNALSYM IF_NUMBER}
IF_TABLE = IF_NUMBER + 1;
{$EXTERNALSYM IF_TABLE}
IF_ROW = IF_TABLE + 1;
{$EXTERNALSYM IF_ROW}
IP_STATS = IF_ROW + 1;
{$EXTERNALSYM IP_STATS}
IP_ADDRTABLE = IP_STATS + 1;
{$EXTERNALSYM IP_ADDRTABLE}
IP_ADDRROW = IP_ADDRTABLE + 1;
{$EXTERNALSYM IP_ADDRROW}
IP_FORWARDNUMBER = IP_ADDRROW + 1;
{$EXTERNALSYM IP_FORWARDNUMBER}
IP_FORWARDTABLE = IP_FORWARDNUMBER + 1;
{$EXTERNALSYM IP_FORWARDTABLE}
IP_FORWARDROW = IP_FORWARDTABLE + 1;
{$EXTERNALSYM IP_FORWARDROW}
IP_NETTABLE = IP_FORWARDROW + 1;
{$EXTERNALSYM IP_NETTABLE}
IP_NETROW = IP_NETTABLE + 1;
{$EXTERNALSYM IP_NETROW}
ICMP_STATS = IP_NETROW + 1;
{$EXTERNALSYM ICMP_STATS}
TCP_STATS = ICMP_STATS + 1;
{$EXTERNALSYM TCP_STATS}
TCP_TABLE = TCP_STATS + 1;
{$EXTERNALSYM TCP_TABLE}
TCP_ROW = TCP_TABLE + 1;
{$EXTERNALSYM TCP_ROW}
UDP_STATS = TCP_ROW + 1;
{$EXTERNALSYM UDP_STATS}
UDP_TABLE = UDP_STATS + 1;
{$EXTERNALSYM UDP_TABLE}
UDP_ROW = UDP_TABLE + 1;
{$EXTERNALSYM UDP_ROW}
MCAST_MFE = UDP_ROW + 1;
{$EXTERNALSYM MCAST_MFE}
MCAST_MFE_STATS = MCAST_MFE + 1;
{$EXTERNALSYM MCAST_MFE_STATS}
BEST_IF = MCAST_MFE_STATS + 1;
{$EXTERNALSYM BEST_IF}
BEST_ROUTE = BEST_IF + 1;
{$EXTERNALSYM BEST_ROUTE}
PROXY_ARP = BEST_ROUTE + 1;
{$EXTERNALSYM PROXY_ARP}
MCAST_IF_ENTRY = PROXY_ARP + 1;
{$EXTERNALSYM MCAST_IF_ENTRY}
MCAST_GLOBAL = MCAST_IF_ENTRY + 1;
{$EXTERNALSYM MCAST_GLOBAL}
IF_STATUS = MCAST_GLOBAL + 1;
{$EXTERNALSYM IF_STATUS}
MCAST_BOUNDARY = IF_STATUS + 1;
{$EXTERNALSYM MCAST_BOUNDARY}
MCAST_SCOPE = MCAST_BOUNDARY + 1;
{$EXTERNALSYM MCAST_SCOPE}
DEST_MATCHING = MCAST_SCOPE + 1;
{$EXTERNALSYM DEST_MATCHING}
DEST_LONGER = DEST_MATCHING + 1;
{$EXTERNALSYM DEST_LONGER}
DEST_SHORTER = DEST_LONGER + 1;
{$EXTERNALSYM DEST_SHORTER}
ROUTE_MATCHING = DEST_SHORTER + 1;
{$EXTERNALSYM ROUTE_MATCHING}
ROUTE_LONGER = ROUTE_MATCHING + 1;
{$EXTERNALSYM ROUTE_LONGER}
ROUTE_SHORTER = ROUTE_LONGER + 1;
{$EXTERNALSYM ROUTE_SHORTER}
ROUTE_STATE = ROUTE_SHORTER + 1;
{$EXTERNALSYM ROUTE_STATE}
MCAST_MFE_STATS_EX = ROUTE_STATE + 1;
{$EXTERNALSYM MCAST_MFE_STATS_EX}
IP6_STATS = MCAST_MFE_STATS_EX + 1;
{$EXTERNALSYM IP6_STATS}
UDP6_STATS = IP6_STATS + 1;
{$EXTERNALSYM UDP6_STATS}
TCP6_STATS = UDP6_STATS + 1;
{$EXTERNALSYM TCP6_STATS}
NUMBER_OF_EXPORTED_VARIABLES = TCP6_STATS + 1;
{$EXTERNALSYM NUMBER_OF_EXPORTED_VARIABLES}
//////////////////////////////////////////////////////////////////////////////
// //
// MIB_OPAQUE_QUERY is the structure filled in by the user to identify a //
// MIB variable //
// //
// dwVarId ID of MIB Variable (One of the Ids #defined above) //
// dwVarIndex Variable sized array containing the indices needed to //
// identify a variable. NOTE: Unlike SNMP we dont require that //
// a scalar variable be indexed by 0 //
// //
//////////////////////////////////////////////////////////////////////////////
type
PMIB_OPAQUE_QUERY = ^MIB_OPAQUE_QUERY;
{$EXTERNALSYM PMIB_OPAQUE_QUERY}
_MIB_OPAQUE_QUERY = record
dwVarId: DWORD;
rgdwVarIndex: array [0..ANY_SIZE - 1] of DWORD;
end;
{$EXTERNALSYM _MIB_OPAQUE_QUERY}
MIB_OPAQUE_QUERY = _MIB_OPAQUE_QUERY;
{$EXTERNALSYM MIB_OPAQUE_QUERY}
TMibOpaqueQuery = MIB_OPAQUE_QUERY;
PMibOpaqueQuery = PMIB_OPAQUE_QUERY;
//////////////////////////////////////////////////////////////////////////////
// //
// The following are the structures which are filled in and returned to the //
// user when a query is made, OR are filled in BY THE USER when a set is //
// done //
// //
//////////////////////////////////////////////////////////////////////////////
type
PMIB_IFNUMBER = ^MIB_IFNUMBER;
{$EXTERNALSYM PMIB_IFNUMBER}
_MIB_IFNUMBER = record
dwValue: DWORD;
end;
{$EXTERNALSYM _MIB_IFNUMBER}
MIB_IFNUMBER = _MIB_IFNUMBER;
{$EXTERNALSYM MIB_IFNUMBER}
TMibIfnumber = MIB_IFNUMBER;
PMibIfnumber = PMIB_IFNUMBER;
const
MAXLEN_IFDESCR = 256;
{$EXTERNALSYM MAXLEN_IFDESCR}
MAXLEN_PHYSADDR = 8;
{$EXTERNALSYM MAXLEN_PHYSADDR}
type
PMIB_IFROW = ^MIB_IFROW;
{$EXTERNALSYM PMIB_IFROW}
_MIB_IFROW = record
wszName: array [0..MAX_INTERFACE_NAME_LEN - 1] of WCHAR;
dwIndex: DWORD;
dwType: DWORD;
dwMtu: DWORD;
dwSpeed: DWORD;
dwPhysAddrLen: DWORD;
bPhysAddr: array [0..MAXLEN_PHYSADDR - 1] of BYTE;
dwAdminStatus: DWORD;
dwOperStatus: DWORD;
dwLastChange: DWORD;
dwInOctets: DWORD;
dwInUcastPkts: DWORD;
dwInNUcastPkts: DWORD;
dwInDiscards: DWORD;
dwInErrors: DWORD;
dwInUnknownProtos: DWORD;
dwOutOctets: DWORD;
dwOutUcastPkts: DWORD;
dwOutNUcastPkts: DWORD;
dwOutDiscards: DWORD;
dwOutErrors: DWORD;
dwOutQLen: DWORD;
dwDescrLen: DWORD;
bDescr: array[0..MAXLEN_IFDESCR - 1] of BYTE;
end;
{$EXTERNALSYM _MIB_IFROW}
MIB_IFROW = _MIB_IFROW;
{$EXTERNALSYM MIB_IFROW}
TMibIfRow = MIB_IFROW;
PMibIfRow = PMIB_IFROW;
PMIB_IFTABLE = ^MIB_IFTABLE;
{$EXTERNALSYM PMIB_IFTABLE}
_MIB_IFTABLE = record
dwNumEntries: DWORD;
table: array [0..ANY_SIZE - 1] of MIB_IFROW;
end;
{$EXTERNALSYM _MIB_IFTABLE}
MIB_IFTABLE = _MIB_IFTABLE;
{$EXTERNALSYM MIB_IFTABLE}
TMibIftable = MIB_IFTABLE;
PMibIftable = PMIB_IFTABLE;
// #define SIZEOF_IFTABLE(X) (FIELD_OFFSET(MIB_IFTABLE,table[0]) + ((X) * sizeof(MIB_IFROW)) + ALIGN_SIZE)
type
PMibIcmpStats = ^TMibIcmpStats;
_MIBICMPSTATS = record
dwMsgs: DWORD;
dwErrors: DWORD;
dwDestUnreachs: DWORD;
dwTimeExcds: DWORD;
dwParmProbs: DWORD;
dwSrcQuenchs: DWORD;
dwRedirects: DWORD;
dwEchos: DWORD;
dwEchoReps: DWORD;
dwTimestamps: DWORD;
dwTimestampReps: DWORD;
dwAddrMasks: DWORD;
dwAddrMaskReps: DWORD;
end;
{$EXTERNALSYM _MIBICMPSTATS}
MIBICMPSTATS = _MIBICMPSTATS;
{$EXTERNALSYM MIBICMPSTATS}
TMibIcmpStats = _MIBICMPSTATS;
_MIBICMPINFO = record
icmpInStats: MIBICMPSTATS;
icmpOutStats: MIBICMPSTATS;
end;
{$EXTERNALSYM _MIBICMPINFO}
MIBICMPINFO = _MIBICMPINFO;
{$EXTERNALSYM MIBICMPINFO}
PMIBICMPINFO = ^MIBICMPINFO;
{$EXTERNALSYM PMIBICMPINFO}
TMibIcmpInfo = MIBICMPINFO;
PMIB_ICMP = ^MIB_ICMP;
{$EXTERNALSYM PMIB_ICMP}
_MIB_ICMP = record
stats: MIBICMPINFO;
end;
{$EXTERNALSYM _MIB_ICMP}
MIB_ICMP = _MIB_ICMP;
{$EXTERNALSYM MIB_ICMP}
TMibIcmp = MIB_ICMP;
PMibIcmp = PMIB_ICMP;
//
// ICMPv6 Type Values from RFC 2292.
//
const
ICMP6_DST_UNREACH = 1;
{$EXTERNALSYM ICMP6_DST_UNREACH}
ICMP6_PACKET_TOO_BIG = 2;
{$EXTERNALSYM ICMP6_PACKET_TOO_BIG}
ICMP6_TIME_EXCEEDED = 3;
{$EXTERNALSYM ICMP6_TIME_EXCEEDED}
ICMP6_PARAM_PROB = 4;
{$EXTERNALSYM ICMP6_PARAM_PROB}
ICMP6_ECHO_REQUEST = 128;
{$EXTERNALSYM ICMP6_ECHO_REQUEST}
ICMP6_ECHO_REPLY = 129;
{$EXTERNALSYM ICMP6_ECHO_REPLY}
ICMP6_MEMBERSHIP_QUERY = 130;
{$EXTERNALSYM ICMP6_MEMBERSHIP_QUERY}
ICMP6_MEMBERSHIP_REPORT = 131;
{$EXTERNALSYM ICMP6_MEMBERSHIP_REPORT}
ICMP6_MEMBERSHIP_REDUCTION = 132;
{$EXTERNALSYM ICMP6_MEMBERSHIP_REDUCTION}
ND_ROUTER_SOLICIT = 133;
{$EXTERNALSYM ND_ROUTER_SOLICIT}
ND_ROUTER_ADVERT = 134;
{$EXTERNALSYM ND_ROUTER_ADVERT}
ND_NEIGHBOR_SOLICIT = 135;
{$EXTERNALSYM ND_NEIGHBOR_SOLICIT}
ND_NEIGHBOR_ADVERT = 136;
{$EXTERNALSYM ND_NEIGHBOR_ADVERT}
ND_REDIRECT = 137;
{$EXTERNALSYM ND_REDIRECT}
type
ICMP6_TYPE = DWORD;
{$EXTERNALSYM ICMP6_TYPE}
PICMP6_TYPE = ^ICMP6_TYPE;
{$EXTERNALSYM PICMP6_TYPE}
TIcmp6Type = ICMP6_TYPE;
PIcmp6Type = PICMP6_TYPE;
//
// There are no RFC-specified defines for ICMPv4 message types, so we try to
// use the ICMP6 values from RFC 2292 modified to be prefixed with ICMP4.
//
const
ICMP4_ECHO_REPLY = 0; // Echo Reply
{$EXTERNALSYM ICMP4_ECHO_REPLY}
ICMP4_DST_UNREACH = 3; // Destination Unreachable
{$EXTERNALSYM ICMP4_DST_UNREACH}
ICMP4_SOURCE_QUENCH = 4; // Source Quench
{$EXTERNALSYM ICMP4_SOURCE_QUENCH}
ICMP4_REDIRECT = 5; // Redirect
{$EXTERNALSYM ICMP4_REDIRECT}
ICMP4_ECHO_REQUEST = 8; // Echo Request
{$EXTERNALSYM ICMP4_ECHO_REQUEST}
ICMP4_ROUTER_ADVERT = 9; // Router Advertisement
{$EXTERNALSYM ICMP4_ROUTER_ADVERT}
ICMP4_ROUTER_SOLICIT = 10; // Router Solicitation
{$EXTERNALSYM ICMP4_ROUTER_SOLICIT}
ICMP4_TIME_EXCEEDED = 11; // Time Exceeded
{$EXTERNALSYM ICMP4_TIME_EXCEEDED}
ICMP4_PARAM_PROB = 12; // Parameter Problem
{$EXTERNALSYM ICMP4_PARAM_PROB}
ICMP4_TIMESTAMP_REQUEST = 13; // Timestamp Request
{$EXTERNALSYM ICMP4_TIMESTAMP_REQUEST}
ICMP4_TIMESTAMP_REPLY = 14; // Timestamp Reply
{$EXTERNALSYM ICMP4_TIMESTAMP_REPLY}
ICMP4_MASK_REQUEST = 17; // Address Mask Request
{$EXTERNALSYM ICMP4_MASK_REQUEST}
ICMP4_MASK_REPLY = 18; // Address Mask Reply
{$EXTERNALSYM ICMP4_MASK_REPLY}
type
ICMP4_TYPE = DWORD;
{$EXTERNALSYM ICMP4_TYPE}
PICMP4_TYPE = ^ICMP4_TYPE;
{$EXTERNALSYM PICMP4_TYPE}
TIcmp4Type = ICMP4_TYPE;
PIcmp4Type = PICMP4_TYPE;
_MIBICMPSTATS_EX = record
dwMsgs: DWORD;
dwErrors: DWORD;
rgdwTypeCount: array [0..255] of DWORD;
end;
{$EXTERNALSYM _MIBICMPSTATS_EX}
MIBICMPSTATS_EX = _MIBICMPSTATS_EX;
{$EXTERNALSYM MIBICMPSTATS_EX}
PMIBICMPSTATS_EX = ^MIBICMPSTATS_EX;
{$EXTERNALSYM PMIBICMPSTATS_EX}
TMibIcmpStatsEx = MIBICMPSTATS_EX;
PMibIcmpStatsEx = PMIBICMPSTATS_EX;
_MIB_ICMP_EX = record
icmpInStats: MIBICMPSTATS_EX;
icmpOutStats: MIBICMPSTATS_EX;
end;
{$EXTERNALSYM _MIB_ICMP_EX}
MIB_ICMP_EX = _MIB_ICMP_EX;
{$EXTERNALSYM MIB_ICMP_EX}
PMIB_ICMP_EX = ^MIB_ICMP_EX;
{$EXTERNALSYM PMIB_ICMP_EX}
TMibIcmpEx = MIB_ICMP_EX;
PMibIcmpEx = PMIB_ICMP_EX;
PMIB_UDPSTATS = ^MIB_UDPSTATS;
{$EXTERNALSYM PMIB_UDPSTATS}
_MIB_UDPSTATS = record
dwInDatagrams: DWORD;
dwNoPorts: DWORD;
dwInErrors: DWORD;
dwOutDatagrams: DWORD;
dwNumAddrs: DWORD;
end;
{$EXTERNALSYM _MIB_UDPSTATS}
MIB_UDPSTATS = _MIB_UDPSTATS;
{$EXTERNALSYM MIB_UDPSTATS}
TMibUdpStats = MIB_UDPSTATS;
PMibUdpStats = PMIB_UDPSTATS;
PMIB_UDPROW = ^MIB_UDPROW;
{$EXTERNALSYM PMIB_UDPROW}
_MIB_UDPROW = record
dwLocalAddr: DWORD;
dwLocalPort: DWORD;
end;
{$EXTERNALSYM _MIB_UDPROW}
MIB_UDPROW = _MIB_UDPROW;
{$EXTERNALSYM MIB_UDPROW}
TMibUdpRow = MIB_UDPROW;
PMibUdpRow = PMIB_UDPROW;
PMIB_UDPTABLE = ^MIB_UDPTABLE;
{$EXTERNALSYM PMIB_UDPTABLE}
_MIB_UDPTABLE = record
dwNumEntries: DWORD;
table: array [0..ANY_SIZE - 1] of MIB_UDPROW;
end;
{$EXTERNALSYM _MIB_UDPTABLE}
MIB_UDPTABLE = _MIB_UDPTABLE;
{$EXTERNALSYM MIB_UDPTABLE}
TMibUdpTable = MIB_UDPTABLE;
PMibUdpTable