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

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

Windows编程

开发平台：

Delphi

JwaSnmp.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Simple Network Management Protocol 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: snmp.h, released October 2001. The original Pascal     }
  9. { code is: SNMP.pas, released October 2001. The initial developer of the       }
  10. { Pascal code is Petr Vones (petr.v@mujmail.cz).                               }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaSnmp;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "snmp.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. uses
  57.   JwaWinType;
  59. type
  60.   PAsnOctetString = ^TAsnOctetString;
  61.   TAsnOctetString = record
  62.     stream: PChar;
  63.     length: UINT;
  64.     dynamic_: BOOL;
  65.   end;
  66.   {$EXTERNALSYM TAsnOctetString}
  68.   PAsnObjectIdentifier = ^TAsnObjectIdentifier;
  69.   TAsnObjectIdentifier = record
  70.     idLength: UINT;
  71.     ids: PUINT;
  72.   end;
  73.   {$EXTERNALSYM TAsnObjectIdentifier}
  75.   TAsnInteger32        = LONG;
  76.   {$EXTERNALSYM TAsnInteger32}
  77.   TAsnUnsigned32       = ULONG;
  78.   {$EXTERNALSYM TAsnUnsigned32}
  79.   TAsnCounter64        = ULARGE_INTEGER;
  80.   {$EXTERNALSYM TAsnCounter64}
  81.   TAsnCounter32        = TAsnUnsigned32;
  82.   {$EXTERNALSYM TAsnCounter32}
  83.   TAsnGauge32          = TAsnUnsigned32;
  84.   {$EXTERNALSYM TAsnGauge32}
  85.   TAsnTimeticks        = TAsnUnsigned32;
  86.   {$EXTERNALSYM TAsnTimeticks}
  87.   TAsnBits             = TAsnOctetString;
  88.   {$EXTERNALSYM TAsnBits}
  89.   TAsnSequence         = TAsnOctetString;
  90.   {$EXTERNALSYM TAsnSequence}
  91.   TAsnImplicitSequence = TAsnOctetString;
  92.   {$EXTERNALSYM TAsnImplicitSequence}
  93.   TAsnIPAddress        = TAsnOctetString;
  94.   {$EXTERNALSYM TAsnIPAddress}
  95.   TAsnNetworkAddress   = TAsnOctetString;
  96.   {$EXTERNALSYM TAsnNetworkAddress}
  97.   TAsnDisplayString    = TAsnOctetString;
  98.   {$EXTERNALSYM TAsnDisplayString}
  99.   TAsnOpaque           = TAsnOctetString;
  100.   {$EXTERNALSYM TAsnOpaque}
  102.   PAsnAny = ^TAsnAny;
  103.   TAsnAny = record
  104.     asnType: Byte;
  105.     case Integer of
  106.       0: (number: TAsnInteger32);          // ASN_INTEGER, ASN_INTEGER32
  107.       1: (unsigned32: TAsnUnsigned32);     // ASN_UNSIGNED32
  108.       2: (counter64: TAsnCounter64);       // ASN_COUNTER64
  109.       3: (string_: TAsnOctetString);       // ASN_OCTETSTRING
  110.       4: (bits: TAsnBits);                 // ASN_BITS
  111.       5: (object_: TAsnObjectIdentifier);  // ASN_OBJECTIDENTIFIER
  112.       6: (sequence: TAsnSequence);         // ASN_SEQUENCE
  113.       7: (address: TAsnIPAddress);         // ASN_IPADDRESS
  114.       8: (counter: TAsnCounter32);         // ASN_COUNTER32
  115.       9: (gauge: TAsnGauge32);             // ASN_GAUGE32
  116.      10: (ticks: TAsnTimeticks);           // ASN_TIMETICKS
  117.      11: (arbitrary: TAsnOpaque);          // ASN_OPAQUE
  118.   end;
  119.   {$EXTERNALSYM TAsnAny}
  121.   TAsnObjectName = TAsnObjectIdentifier;
  122.   {$EXTERNALSYM TAsnObjectName}
  123.   TAsnObjectSyntax = TAsnAny;
  124.   {$EXTERNALSYM TAsnObjectSyntax}
  126.   PSnmpVarBind = ^TSnmpVarBind;
  127.   TSnmpVarBind = record
  128.     name: TAsnObjectName;
  129.     value: TAsnObjectSyntax;
  130.   end;
  131.   {$EXTERNALSYM TSnmpVarBind}
  133.   PSnmpVarBindList = ^TSnmpVarBindList;
  134.   TSnmpVarBindList = record
  135.     list: PSnmpVarBind;
  136.     len: UINT;
  137.   end;
  138.   {$EXTERNALSYM TSnmpVarBindList}
  140. const
  142. {$IFNDEF _INC_WINSNMP}
  144. { ASN/BER Base Types }
  146.   ASN_UNIVERSAL                   = $00;
  147.   {$EXTERNALSYM ASN_UNIVERSAL}
  148.   ASN_APPLICATION                 = $40;
  149.   {$EXTERNALSYM ASN_APPLICATION}
  150.   ASN_CONTEXT                     = $80;
  151.   {$EXTERNALSYM ASN_CONTEXT}
  152.   ASN_PRIVATE                     = $C0;
  153.   {$EXTERNALSYM ASN_PRIVATE}
  155.   ASN_PRIMITIVE                   = $00;
  156.   {$EXTERNALSYM ASN_PRIMITIVE}
  157.   ASN_CONSTRUCTOR                 = $20;
  158.   {$EXTERNALSYM ASN_CONSTRUCTOR}
  160. { PDU Type Values }
  162.   SNMP_PDU_GET                    = (ASN_CONTEXT or ASN_CONSTRUCTOR or $0);
  163.   {$EXTERNALSYM SNMP_PDU_GET}
  164.   SNMP_PDU_GETNEXT                = (ASN_CONTEXT or ASN_CONSTRUCTOR or $1);
  165.   {$EXTERNALSYM SNMP_PDU_GETNEXT}
  166.   SNMP_PDU_RESPONSE               = (ASN_CONTEXT or ASN_CONSTRUCTOR or $2);
  167.   {$EXTERNALSYM SNMP_PDU_RESPONSE}
  168.   SNMP_PDU_SET                    = (ASN_CONTEXT or ASN_CONSTRUCTOR or $3);
  169.   {$EXTERNALSYM SNMP_PDU_SET}
  170.   SNMP_PDU_V1TRAP                 = (ASN_CONTEXT or ASN_CONSTRUCTOR or $4);
  171.   {$EXTERNALSYM SNMP_PDU_V1TRAP}
  172.   SNMP_PDU_GETBULK                = (ASN_CONTEXT or ASN_CONSTRUCTOR or $5);
  173.   {$EXTERNALSYM SNMP_PDU_GETBULK}
  174.   SNMP_PDU_INFORM                 = (ASN_CONTEXT or ASN_CONSTRUCTOR or $6);
  175.   {$EXTERNALSYM SNMP_PDU_INFORM}
  176.   SNMP_PDU_TRAP                   = (ASN_CONTEXT or ASN_CONSTRUCTOR or $7);
  177.   {$EXTERNALSYM SNMP_PDU_TRAP}
  179. {$ENDIF _INC_WINSNMP}
  181. { SNMP Simple Syntax Values }
  183.   ASN_INTEGER                     = (ASN_UNIVERSAL or ASN_PRIMITIVE or $02);
  184.   {$EXTERNALSYM ASN_INTEGER}
  185.   ASN_BITS                        = (ASN_UNIVERSAL or ASN_PRIMITIVE or $03);
  186.   {$EXTERNALSYM ASN_BITS}
  187.   ASN_OCTETSTRING                 = (ASN_UNIVERSAL or ASN_PRIMITIVE or $04);
  188.   {$EXTERNALSYM ASN_OCTETSTRING}
  189.   ASN_NULL                        = (ASN_UNIVERSAL or ASN_PRIMITIVE or $05);
  190.   {$EXTERNALSYM ASN_NULL}
  191.   ASN_OBJECTIDENTIFIER            = (ASN_UNIVERSAL or ASN_PRIMITIVE or $06);
  192.   {$EXTERNALSYM ASN_OBJECTIDENTIFIER}
  193.   ASN_INTEGER32                   = ASN_INTEGER;
  194.   {$EXTERNALSYM ASN_INTEGER32}
  196. { SNMP Constructor Syntax Values }
  198.   ASN_SEQUENCE                    = (ASN_UNIVERSAL or ASN_CONSTRUCTOR or $10);
  199.   {$EXTERNALSYM ASN_SEQUENCE}
  200.   ASN_SEQUENCEOF                  = ASN_SEQUENCE;
  201.   {$EXTERNALSYM ASN_SEQUENCEOF}
  203. { SNMP Application Syntax Values }
  205.   ASN_IPADDRESS                   = (ASN_APPLICATION or ASN_PRIMITIVE or $00);
  206.   {$EXTERNALSYM ASN_IPADDRESS}
  207.   ASN_COUNTER32                   = (ASN_APPLICATION or ASN_PRIMITIVE or $01);
  208.   {$EXTERNALSYM ASN_COUNTER32}
  209.   ASN_GAUGE32                     = (ASN_APPLICATION or ASN_PRIMITIVE or $02);
  210.   {$EXTERNALSYM ASN_GAUGE32}
  211.   ASN_TIMETICKS                   = (ASN_APPLICATION or ASN_PRIMITIVE or $03);
  212.   {$EXTERNALSYM ASN_TIMETICKS}
  213.   ASN_OPAQUE                      = (ASN_APPLICATION or ASN_PRIMITIVE or $04);
  214.   {$EXTERNALSYM ASN_OPAQUE}
  215.   ASN_COUNTER64                   = (ASN_APPLICATION or ASN_PRIMITIVE or $06);
  216.   {$EXTERNALSYM ASN_COUNTER64}
  217.   ASN_UINTEGER32                  = (ASN_APPLICATION or ASN_PRIMITIVE or $07);
  218.   {$EXTERNALSYM ASN_UINTEGER32}
  219.   ASN_RFC2578_UNSIGNED32          = ASN_GAUGE32;
  220.   {$EXTERNALSYM ASN_RFC2578_UNSIGNED32}
  222. { SNMP Exception Conditions }
  224.   SNMP_EXCEPTION_NOSUCHOBJECT     = (ASN_CONTEXT or ASN_PRIMITIVE or $00);
  225.   {$EXTERNALSYM SNMP_EXCEPTION_NOSUCHOBJECT}
  226.   SNMP_EXCEPTION_NOSUCHINSTANCE   = (ASN_CONTEXT or ASN_PRIMITIVE or $01);
  227.   {$EXTERNALSYM SNMP_EXCEPTION_NOSUCHINSTANCE}
  228.   SNMP_EXCEPTION_ENDOFMIBVIEW     = (ASN_CONTEXT or ASN_PRIMITIVE or $02);
  229.   {$EXTERNALSYM SNMP_EXCEPTION_ENDOFMIBVIEW}
  231. { SNMP Request Types (used in SnmpExtensionQueryEx) }
  233.   SNMP_EXTENSION_GET              = SNMP_PDU_GET;
  234.   {$EXTERNALSYM SNMP_EXTENSION_GET}
  235.   SNMP_EXTENSION_GET_NEXT         = SNMP_PDU_GETNEXT;
  236.   {$EXTERNALSYM SNMP_EXTENSION_GET_NEXT}
  237.   SNMP_EXTENSION_GET_BULK         = SNMP_PDU_GETBULK;
  238.   {$EXTERNALSYM SNMP_EXTENSION_GET_BULK}
  239.   SNMP_EXTENSION_SET_TEST         = (ASN_PRIVATE or ASN_CONSTRUCTOR or $0);
  240.   {$EXTERNALSYM SNMP_EXTENSION_SET_TEST}
  241.   SNMP_EXTENSION_SET_COMMIT       = SNMP_PDU_SET;
  242.   {$EXTERNALSYM SNMP_EXTENSION_SET_COMMIT}
  243.   SNMP_EXTENSION_SET_UNDO         = (ASN_PRIVATE or ASN_CONSTRUCTOR or $1);
  244.   {$EXTERNALSYM SNMP_EXTENSION_SET_UNDO}
  245.   SNMP_EXTENSION_SET_CLEANUP      = (ASN_PRIVATE or ASN_CONSTRUCTOR or $2);
  246.   {$EXTERNALSYM SNMP_EXTENSION_SET_CLEANUP}
  248. { SNMP Error Codes }
  250.   SNMP_ERRORSTATUS_NOERROR                    = 0;
  251.   {$EXTERNALSYM SNMP_ERRORSTATUS_NOERROR}
  252.   SNMP_ERRORSTATUS_TOOBIG                     = 1;
  253.   {$EXTERNALSYM SNMP_ERRORSTATUS_TOOBIG}
  254.   SNMP_ERRORSTATUS_NOSUCHNAME                 = 2;
  255.   {$EXTERNALSYM SNMP_ERRORSTATUS_NOSUCHNAME}
  256.   SNMP_ERRORSTATUS_BADVALUE                   = 3;
  257.   {$EXTERNALSYM SNMP_ERRORSTATUS_BADVALUE}
  258.   SNMP_ERRORSTATUS_READONLY                   = 4;
  259.   {$EXTERNALSYM SNMP_ERRORSTATUS_READONLY}
  260.   SNMP_ERRORSTATUS_GENERR                     = 5;
  261.   {$EXTERNALSYM SNMP_ERRORSTATUS_GENERR}
  262.   SNMP_ERRORSTATUS_NOACCESS                   = 6;
  263.   {$EXTERNALSYM SNMP_ERRORSTATUS_NOACCESS}
  264.   SNMP_ERRORSTATUS_WRONGTYPE                  = 7;
  265.   {$EXTERNALSYM SNMP_ERRORSTATUS_WRONGTYPE}
  266.   SNMP_ERRORSTATUS_WRONGLENGTH                = 8;
  267.   {$EXTERNALSYM SNMP_ERRORSTATUS_WRONGLENGTH}
  268.   SNMP_ERRORSTATUS_WRONGENCODING              = 9;
  269.   {$EXTERNALSYM SNMP_ERRORSTATUS_WRONGENCODING}
  270.   SNMP_ERRORSTATUS_WRONGVALUE                 = 10;
  271.   {$EXTERNALSYM SNMP_ERRORSTATUS_WRONGVALUE}
  272.   SNMP_ERRORSTATUS_NOCREATION                 = 11;
  273.   {$EXTERNALSYM SNMP_ERRORSTATUS_NOCREATION}
  274.   SNMP_ERRORSTATUS_INCONSISTENTVALUE          = 12;
  275.   {$EXTERNALSYM SNMP_ERRORSTATUS_INCONSISTENTVALUE}
  276.   SNMP_ERRORSTATUS_RESOURCEUNAVAILABLE        = 13;
  277.   {$EXTERNALSYM SNMP_ERRORSTATUS_RESOURCEUNAVAILABLE}
  278.   SNMP_ERRORSTATUS_COMMITFAILED               = 14;
  279.   {$EXTERNALSYM SNMP_ERRORSTATUS_COMMITFAILED}
  280.   SNMP_ERRORSTATUS_UNDOFAILED                 = 15;
  281.   {$EXTERNALSYM SNMP_ERRORSTATUS_UNDOFAILED}
  282.   SNMP_ERRORSTATUS_AUTHORIZATIONERROR         = 16;
  283.   {$EXTERNALSYM SNMP_ERRORSTATUS_AUTHORIZATIONERROR}
  284.   SNMP_ERRORSTATUS_NOTWRITABLE                = 17;
  285.   {$EXTERNALSYM SNMP_ERRORSTATUS_NOTWRITABLE}
  286.   SNMP_ERRORSTATUS_INCONSISTENTNAME           = 18;
  287.   {$EXTERNALSYM SNMP_ERRORSTATUS_INCONSISTENTNAME}
  289. { SNMPv1 Trap Types }
  291.   SNMP_GENERICTRAP_COLDSTART                  = 0;
  292.   {$EXTERNALSYM SNMP_GENERICTRAP_COLDSTART}
  293.   SNMP_GENERICTRAP_WARMSTART                  = 1;
  294.   {$EXTERNALSYM SNMP_GENERICTRAP_WARMSTART}
  295.   SNMP_GENERICTRAP_LINKDOWN                   = 2;
  296.   {$EXTERNALSYM SNMP_GENERICTRAP_LINKDOWN}
  297.   SNMP_GENERICTRAP_LINKUP                     = 3;
  298.   {$EXTERNALSYM SNMP_GENERICTRAP_LINKUP}
  299.   SNMP_GENERICTRAP_AUTHFAILURE                = 4;
  300.   {$EXTERNALSYM SNMP_GENERICTRAP_AUTHFAILURE}
  301.   SNMP_GENERICTRAP_EGPNEIGHLOSS               = 5;
  302.   {$EXTERNALSYM SNMP_GENERICTRAP_EGPNEIGHLOSS}
  303.   SNMP_GENERICTRAP_ENTERSPECIFIC              = 6;
  304.   {$EXTERNALSYM SNMP_GENERICTRAP_ENTERSPECIFIC}
  306. { SNMP Access Types }
  308.   SNMP_ACCESS_NONE                            = 0;
  309.   {$EXTERNALSYM SNMP_ACCESS_NONE}
  310.   SNMP_ACCESS_NOTIFY                          = 1;
  311.   {$EXTERNALSYM SNMP_ACCESS_NOTIFY}
  312.   SNMP_ACCESS_READ_ONLY                       = 2;
  313.   {$EXTERNALSYM SNMP_ACCESS_READ_ONLY}
  314.   SNMP_ACCESS_READ_WRITE                      = 3;
  315.   {$EXTERNALSYM SNMP_ACCESS_READ_WRITE}
  316.   SNMP_ACCESS_READ_CREATE                     = 4;
  317.   {$EXTERNALSYM SNMP_ACCESS_READ_CREATE}
  319. { SNMP API Return Code Definitions }
  321. type
  322.   SNMPAPI = Integer;
  323.   {$EXTERNALSYM SNMPAPI}
  325. const
  326.   SNMPAPI_NOERROR = True;
  327.   {$EXTERNALSYM SNMPAPI_NOERROR}
  328.   SNMPAPI_ERROR = False;
  329.   {$EXTERNALSYM SNMPAPI_ERROR}
  331. { SNMP Extension API Type Definitions }
  333. type
  334.   TSnmpExtensionInit = function (dwUptimeReference: DWORD; var phSubagentTrapEvent: HANDLE;
  335.     var pFirstSupportedRegion: PAsnObjectIdentifier): BOOL; stdcall;
  337.   TSnmpExtensionInitEx = function (var pNextSupportedRegion: PAsnObjectIdentifier): BOOL; stdcall;
  339.   TSnmpExtensionMonitor = function (pAgentMgmtData: LPVOID): BOOL; stdcall;
  341.   TSnmpExtensionQuery = function (bPduType: Byte; var pVarBindList: TSnmpVarBindList;
  342.     var pErrorStatus: TAsnInteger32; var pErrorIndex: TAsnInteger32): BOOL; stdcall;
  344.   TSnmpExtensionQueryEx = function (nRequestType: UINT; nTransactionId: UINT; var pVarBindList: PSnmpVarBindList;
  345.     var pContextInfo: PAsnOctetString; var pErrorStatus: TAsnInteger32; var pErrorIndex: TAsnInteger32): BOOL; stdcall;
  347.   TSnmpExtensionTrap = function (pEnterpriseOid: PAsnObjectIdentifier; var pGenericTrapId: TAsnInteger32;
  348.      var pSpecificTrapId: TAsnInteger32; var pTimeStamp: TAsnTimeticks; var pVarBindList: PSnmpVarBindList): BOOL; stdcall;
  350.   TSnmpExtensionClose = procedure; stdcall;
  352. { SNMP API Prototypes }
  354. function SnmpUtilOidCpy(pOidDst: PAsnObjectIdentifier; pOidSrc: PAsnObjectIdentifier): SNMPAPI; stdcall;
  355. {$EXTERNALSYM SnmpUtilOidCpy}
  356. function SnmpUtilOidAppend(pOidDst: PAsnObjectIdentifier; pOidSrc: PAsnObjectIdentifier): SNMPAPI; stdcall;
  357. {$EXTERNALSYM SnmpUtilOidAppend}
  358. function SnmpUtilOidNCmp(pOid1, pOid2: PAsnObjectIdentifier; nSubIds: UINT): SNMPAPI; stdcall;
  359. {$EXTERNALSYM SnmpUtilOidNCmp}
  360. function SnmpUtilOidCmp(pOid1, pOid2: PAsnObjectIdentifier): SNMPAPI; stdcall;
  361. {$EXTERNALSYM SnmpUtilOidCmp}
  362. procedure SnmpUtilOidFree(pOid: TAsnObjectIdentifier); stdcall;
  363. {$EXTERNALSYM SnmpUtilOidFree}
  364. function SnmpUtilOctetsCmp(pOctets1, pOctets2: PAsnOctetString): SNMPAPI; stdcall;
  365. {$EXTERNALSYM SnmpUtilOctetsCmp}
  366. function SnmpUtilOctetsNCmp(pOctets1, pOctets2: PAsnOctetString; nChars: UINT): SNMPAPI; stdcall;
  367. {$EXTERNALSYM SnmpUtilOctetsNCmp}
  368. function SnmpUtilOctetsCpy(pOctetsDst, pOctetsSrc: PAsnOctetString): SNMPAPI; stdcall;
  369. {$EXTERNALSYM SnmpUtilOctetsCpy}
  370. procedure SnmpUtilOctetsFree(pOctets: PAsnOctetString); stdcall;
  371. {$EXTERNALSYM SnmpUtilOctetsFree}
  372. function SnmpUtilAsnAnyCpy(pAnyDst, pAnySrc: PAsnAny): SNMPAPI; stdcall;
  373. {$EXTERNALSYM SnmpUtilAsnAnyCpy}
  374. procedure SnmpUtilAsnAnyFree(pAny: PAsnAny); stdcall;
  375. {$EXTERNALSYM SnmpUtilAsnAnyFree}
  376. function SnmpUtilVarBindCpy(pVbDst: PSnmpVarBind; pVbSrc: PSnmpVarBind): SNMPAPI; stdcall;
  377. {$EXTERNALSYM SnmpUtilVarBindCpy}
  378. procedure SnmpUtilVarBindFree(pVb: PSnmpVarBind); stdcall;
  379. {$EXTERNALSYM SnmpUtilVarBindFree}
  380. function SnmpUtilVarBindListCpy(pVblDst: PSnmpVarBindList; pVblSrc: PSnmpVarBindList): SNMPAPI; stdcall;
  381. {$EXTERNALSYM SnmpUtilVarBindListCpy}
  382. procedure SnmpUtilVarBindListFree(pVbl: PSnmpVarBindList); stdcall;
  383. {$EXTERNALSYM SnmpUtilVarBindListFree}
  384. procedure SnmpUtilMemFree(pMem: LPVOID); stdcall;
  385. {$EXTERNALSYM SnmpUtilMemFree}
  386. function SnmpUtilMemAlloc(nBytes: UINT): LPVOID; stdcall;
  387. {$EXTERNALSYM SnmpUtilMemAlloc}
  388. function SnmpUtilMemReAlloc(pMem: LPVOID; nBytes: UINT): LPVOID; stdcall;
  389. {$EXTERNALSYM SnmpUtilMemReAlloc}
  390. function SnmpUtilOidToA(Oid: PAsnObjectIdentifier): LPSTR; stdcall;
  391. {$EXTERNALSYM SnmpUtilOidToA}
  392. function SnmpUtilIdsToA(Ids: PUINT; IdLength: UINT): LPSTR; stdcall;
  393. {$EXTERNALSYM SnmpUtilIdsToA}
  394. procedure SnmpUtilPrintOid(Oid: PAsnObjectIdentifier); stdcall;
  395. {$EXTERNALSYM SnmpUtilPrintOid}
  396. procedure SnmpUtilPrintAsnAny(pAny: PAsnAny); stdcall;
  397. {$EXTERNALSYM SnmpUtilPrintAsnAny}
  398. function SnmpSvcGetUptime: DWORD; stdcall;
  399. {$EXTERNALSYM SnmpSvcGetUptime}
  400. procedure SnmpSvcSetLogLevel(nLogLevel: INT); stdcall;
  401. {$EXTERNALSYM SnmpSvcSetLogLevel}
  402. procedure SnmpSvcSetLogType(nLogType: INT); stdcall;
  403. {$EXTERNALSYM SnmpSvcSetLogType}
  405. { SNMP Debugging Definitions }
  407. const
  408.   SNMP_LOG_SILENT                 = $0;
  409.   {$EXTERNALSYM SNMP_LOG_SILENT}
  410.   SNMP_LOG_FATAL                  = $1;
  411.   {$EXTERNALSYM SNMP_LOG_FATAL}
  412.   SNMP_LOG_ERROR                  = $2;
  413.   {$EXTERNALSYM SNMP_LOG_ERROR}
  414.   SNMP_LOG_WARNING                = $3;
  415.   {$EXTERNALSYM SNMP_LOG_WARNING}
  416.   SNMP_LOG_TRACE                  = $4;
  417.   {$EXTERNALSYM SNMP_LOG_TRACE}
  418.   SNMP_LOG_VERBOSE                = $5;
  419.   {$EXTERNALSYM SNMP_LOG_VERBOSE}
  421.   SNMP_OUTPUT_TO_CONSOLE          = $1;
  422.   {$EXTERNALSYM SNMP_OUTPUT_TO_CONSOLE}
  423.   SNMP_OUTPUT_TO_LOGFILE          = $2;
  424.   {$EXTERNALSYM SNMP_OUTPUT_TO_LOGFILE}
  425.   SNMP_OUTPUT_TO_EVENTLOG         = $4;  // no longer supported
  426.   {$EXTERNALSYM SNMP_OUTPUT_TO_EVENTLOG}
  427.   SNMP_OUTPUT_TO_DEBUGGER         = $8;
  428.   {$EXTERNALSYM SNMP_OUTPUT_TO_DEBUGGER}
  430. { SNMP Debugging Prototypes }
  432. procedure SnmpUtilDbgPrint(nLogLevel: INT; szFormat: LPSTR); stdcall;
  433. {$EXTERNALSYM SnmpUtilDbgPrint}
  435. { Miscellaneous definitions }
  437. const
  438.   DEFINE_NULLOID: TAsnObjectIdentifier = (idLength: 0; ids: nil);
  439.   {$EXTERNALSYM DEFINE_NULLOID}
  440.   DEFINE_NULLOCTETS: TAsnOctetString = (stream: nil; length: 0; dynamic_: False);
  441.   {$EXTERNALSYM DEFINE_NULLOCTETS}
  443.   DEFAULT_SNMP_PORT_UDP       = 161;
  444.   {$EXTERNALSYM DEFAULT_SNMP_PORT_UDP}
  445.   DEFAULT_SNMP_PORT_IPX       = 36879;
  446.   {$EXTERNALSYM DEFAULT_SNMP_PORT_IPX}
  447.   DEFAULT_SNMPTRAP_PORT_UDP   = 162;
  448.   {$EXTERNALSYM DEFAULT_SNMPTRAP_PORT_UDP}
  449.   DEFAULT_SNMPTRAP_PORT_IPX   = 36880;
  450.   {$EXTERNALSYM DEFAULT_SNMPTRAP_PORT_IPX}
  451.   SNMP_MAX_OID_LEN            = 128;
  452.   {$EXTERNALSYM SNMP_MAX_OID_LEN}
  454. { API Error Code Definitions }
  456.   SNMP_MEM_ALLOC_ERROR            = 1;
  457.   {$EXTERNALSYM SNMP_MEM_ALLOC_ERROR}
  458.   SNMP_BERAPI_INVALID_LENGTH      = 10;
  459.   {$EXTERNALSYM SNMP_BERAPI_INVALID_LENGTH}
  460.   SNMP_BERAPI_INVALID_TAG         = 11;
  461.   {$EXTERNALSYM SNMP_BERAPI_INVALID_TAG}
  462.   SNMP_BERAPI_OVERFLOW            = 12;
  463.   {$EXTERNALSYM SNMP_BERAPI_OVERFLOW}
  464.   SNMP_BERAPI_SHORT_BUFFER        = 13;
  465.   {$EXTERNALSYM SNMP_BERAPI_SHORT_BUFFER}
  466.   SNMP_BERAPI_INVALID_OBJELEM     = 14;
  467.   {$EXTERNALSYM SNMP_BERAPI_INVALID_OBJELEM}
  468.   SNMP_PDUAPI_UNRECOGNIZED_PDU    = 20;
  469.   {$EXTERNALSYM SNMP_PDUAPI_UNRECOGNIZED_PDU}
  470.   SNMP_PDUAPI_INVALID_ES          = 21;
  471.   {$EXTERNALSYM SNMP_PDUAPI_INVALID_ES}
  472.   SNMP_PDUAPI_INVALID_GT          = 22;
  473.   {$EXTERNALSYM SNMP_PDUAPI_INVALID_GT}
  474.   SNMP_AUTHAPI_INVALID_VERSION    = 30;
  475.   {$EXTERNALSYM SNMP_AUTHAPI_INVALID_VERSION}
  476.   SNMP_AUTHAPI_INVALID_MSG_TYPE   = 31;
  477.   {$EXTERNALSYM SNMP_AUTHAPI_INVALID_MSG_TYPE}
  478.   SNMP_AUTHAPI_TRIV_AUTH_FAILED   = 32;
  479.   {$EXTERNALSYM SNMP_AUTHAPI_TRIV_AUTH_FAILED}
  481. { Support for old definitions (support disabled via SNMPSTRICT) }
  483. {$IFNDEF SNMPSTRICT}
  485. function SNMP_oidcpy(pOidDst: PAsnObjectIdentifier; pOidSrc: PAsnObjectIdentifier): SNMPAPI; stdcall;
  486. {$EXTERNALSYM SNMP_oidcpy}
  487. function SNMP_oidappend(pOidDst: PAsnObjectIdentifier; pOidSrc: PAsnObjectIdentifier): SNMPAPI; stdcall;
  488. {$EXTERNALSYM SNMP_oidappend}
  489. function SNMP_oidncmp(pOid1, pOid2: PAsnObjectIdentifier; nSubIds: UINT): SNMPAPI; stdcall;
  490. {$EXTERNALSYM SNMP_oidncmp}
  491. function SNMP_oidcmp(pOid1, pOid2: PAsnObjectIdentifier): SNMPAPI; stdcall;
  492. {$EXTERNALSYM SNMP_oidcmp}
  493. procedure SNMP_oidfree(pOid: TAsnObjectIdentifier); stdcall;
  494. {$EXTERNALSYM SNMP_oidfree}
  496. function SNMP_CopyVarBind(pVbDst: PSnmpVarBind; pVbSrc: PSnmpVarBind): SNMPAPI; stdcall;
  497. {$EXTERNALSYM SNMP_CopyVarBind}
  498. procedure SNMP_FreeVarBind(pVb: PSnmpVarBind); stdcall;
  499. {$EXTERNALSYM SNMP_FreeVarBind}
  500. function SNMP_CopyVarBindList(pVblDst: PSnmpVarBindList; pVblSrc: PSnmpVarBindList): SNMPAPI; stdcall;
  501. {$EXTERNALSYM SNMP_CopyVarBindList}
  502. procedure SNMP_FreeVarBindList(pVbl: PSnmpVarBindList); stdcall;
  503. {$EXTERNALSYM SNMP_FreeVarBindList}
  505. procedure SNMP_printany(pAny: PAsnAny); stdcall;
  506. {$EXTERNALSYM SNMP_printany}
  508. procedure SNMP_free(pMem: LPVOID); stdcall;
  509. {$EXTERNALSYM SNMP_free}
  510. function SNMP_malloc(nBytes: UINT): LPVOID; stdcall;
  511. {$EXTERNALSYM SNMP_malloc}
  512. function SNMP_realloc(pMem: LPVOID; nBytes: UINT): LPVOID; stdcall;
  513. {$EXTERNALSYM SNMP_realloc}
  515. procedure SNMP_DBG_free(pMem: LPVOID); stdcall;
  516. {$EXTERNALSYM SNMP_DBG_free}
  517. function SNMP_DBG_malloc(nBytes: UINT): LPVOID; stdcall;
  518. {$EXTERNALSYM SNMP_DBG_malloc}
  519. function SNMP_DBG_realloc(pMem: LPVOID; nBytes: UINT): LPVOID; stdcall;
  520. {$EXTERNALSYM SNMP_DBG_realloc}
  522. const
  523.   ASN_RFC1155_IPADDRESS           = ASN_IPADDRESS;
  524.   {$EXTERNALSYM ASN_RFC1155_IPADDRESS}
  525.   ASN_RFC1155_COUNTER             = ASN_COUNTER32;
  526.   {$EXTERNALSYM ASN_RFC1155_COUNTER}
  527.   ASN_RFC1155_GAUGE               = ASN_GAUGE32;
  528.   {$EXTERNALSYM ASN_RFC1155_GAUGE}
  529.   ASN_RFC1155_TIMETICKS           = ASN_TIMETICKS;
  530.   {$EXTERNALSYM ASN_RFC1155_TIMETICKS}
  531.   ASN_RFC1155_OPAQUE              = ASN_OPAQUE;
  532.   {$EXTERNALSYM ASN_RFC1155_OPAQUE}
  533.   ASN_RFC1213_DISPSTRING          = ASN_OCTETSTRING;
  534.   {$EXTERNALSYM ASN_RFC1213_DISPSTRING}
  536.   ASN_RFC1157_GETREQUEST          = SNMP_PDU_GET;
  537.   {$EXTERNALSYM ASN_RFC1157_GETREQUEST}
  538.   ASN_RFC1157_GETNEXTREQUEST      = SNMP_PDU_GETNEXT;
  539.   {$EXTERNALSYM ASN_RFC1157_GETNEXTREQUEST}
  540.   ASN_RFC1157_GETRESPONSE         = SNMP_PDU_RESPONSE;
  541.   {$EXTERNALSYM ASN_RFC1157_GETRESPONSE}
  542.   ASN_RFC1157_SETREQUEST          = SNMP_PDU_SET;
  543.   {$EXTERNALSYM ASN_RFC1157_SETREQUEST}
  544.   ASN_RFC1157_TRAP                = SNMP_PDU_V1TRAP;
  545.   {$EXTERNALSYM ASN_RFC1157_TRAP}
  547.   ASN_CONTEXTSPECIFIC             = ASN_CONTEXT;
  548.   {$EXTERNALSYM ASN_CONTEXTSPECIFIC}
  549.   ASN_PRIMATIVE                   = ASN_PRIMITIVE;
  550.   {$EXTERNALSYM ASN_PRIMATIVE}
  552. type
  553.   RFC1157VarBindList              = TSnmpVarBindList;
  554.   {$EXTERNALSYM RFC1157VarBindList}
  555.   RFC1157VarBind                  = TSnmpVarBind;
  556.   {$EXTERNALSYM RFC1157VarBind}
  557.   TAsnInteger                     = TAsnInteger32;
  558.   {$EXTERNALSYM TAsnInteger}
  559.   TAsnCounter                     = TAsnCounter32;
  560.   {$EXTERNALSYM TAsnCounter}
  561.   TAsnGauge                       = TAsnGauge32;
  562.   {$EXTERNALSYM TAsnGauge}
  564. const
  565.   ASN_UNSIGNED32                  = ASN_UINTEGER32;
  566.   {$EXTERNALSYM ASN_UNSIGNED32}
  568. {$ENDIF SNMPSTRICT}
  570. implementation
  572. uses
  573.   JwaWinBase;
  575. const
  576.   snmpapilib = 'snmpapi.dll';
  579. {$IFDEF DYNAMIC_LINK}
  580. var
  581.   _SnmpUtilOidCpy: Pointer;
  583. function SnmpUtilOidCpy;
  584. begin
  585.   GetProcedureAddress(_SnmpUtilOidCpy, snmpapilib, 'SnmpUtilOidCpy');
  586.   asm
  587.     mov esp, ebp
  588.     pop ebp
  589.     jmp [_SnmpUtilOidCpy]
  590.   end;
  591. end;
  592. {$ELSE}
  593. function SnmpUtilOidCpy; external snmpapilib name 'SnmpUtilOidCpy';
  594. {$ENDIF DYNAMIC_LINK}
  596. {$IFDEF DYNAMIC_LINK}
  597. var
  598.   _SnmpUtilOidAppend: Pointer;
  600. function SnmpUtilOidAppend;
  601. begin
  602.   GetProcedureAddress(_SnmpUtilOidAppend, snmpapilib, 'SnmpUtilOidAppend');
  603.   asm
  604.     mov esp, ebp
  605.     pop ebp
  606.     jmp [_SnmpUtilOidAppend]
  607.   end;
  608. end;
  609. {$ELSE}
  610. function SnmpUtilOidAppend; external snmpapilib name 'SnmpUtilOidAppend';
  611. {$ENDIF DYNAMIC_LINK}
  613. {$IFDEF DYNAMIC_LINK}
  614. var
  615.   _SnmpUtilOidNCmp: Pointer;
  617. function SnmpUtilOidNCmp;
  618. begin
  619.   GetProcedureAddress(_SnmpUtilOidNCmp, snmpapilib, 'SnmpUtilOidNCmp');
  620.   asm
  621.     mov esp, ebp
  622.     pop ebp
  623.     jmp [_SnmpUtilOidNCmp]
  624.   end;
  625. end;
  626. {$ELSE}
  627. function SnmpUtilOidNCmp; external snmpapilib name 'SnmpUtilOidNCmp';
  628. {$ENDIF DYNAMIC_LINK}
  630. {$IFDEF DYNAMIC_LINK}
  631. var
  632.   _SnmpUtilOidCmp: Pointer;
  634. function SnmpUtilOidCmp;
  635. begin
  636.   GetProcedureAddress(_SnmpUtilOidCmp, snmpapilib, 'SnmpUtilOidCmp');
  637.   asm
  638.     mov esp, ebp
  639.     pop ebp
  640.     jmp [_SnmpUtilOidCmp]
  641.   end;
  642. end;
  643. {$ELSE}
  644. function SnmpUtilOidCmp; external snmpapilib name 'SnmpUtilOidCmp';
  645. {$ENDIF DYNAMIC_LINK}
  647. {$IFDEF DYNAMIC_LINK}
  648. var
  649.   _SnmpUtilOidFree: Pointer;
  651. procedure SnmpUtilOidFree;
  652. begin
  653.   GetProcedureAddress(_SnmpUtilOidFree, snmpapilib, 'SnmpUtilOidFree');
  654.   asm
  655.     mov esp, ebp
  656.     pop ebp
  657.     jmp [_SnmpUtilOidFree]
  658.   end;
  659. end;
  660. {$ELSE}
  661. procedure SnmpUtilOidFree; external snmpapilib name 'SnmpUtilOidFree';
  662. {$ENDIF DYNAMIC_LINK}
  664. {$IFDEF DYNAMIC_LINK}
  665. var
  666.   _SnmpUtilOctetsCmp: Pointer;
  668. function SnmpUtilOctetsCmp;
  669. begin
  670.   GetProcedureAddress(_SnmpUtilOctetsCmp, snmpapilib, 'SnmpUtilOctetsCmp');
  671.   asm
  672.     mov esp, ebp
  673.     pop ebp
  674.     jmp [_SnmpUtilOctetsCmp]
  675.   end;
  676. end;
  677. {$ELSE}
  678. function SnmpUtilOctetsCmp; external snmpapilib name 'SnmpUtilOctetsCmp';
  679. {$ENDIF DYNAMIC_LINK}
  681. {$IFDEF DYNAMIC_LINK}
  682. var
  683.   _SnmpUtilOctetsNCmp: Pointer;
  685. function SnmpUtilOctetsNCmp;
  686. begin
  687.   GetProcedureAddress(_SnmpUtilOctetsNCmp, snmpapilib, 'SnmpUtilOctetsNCmp');
  688.   asm
  689.     mov esp, ebp
  690.     pop ebp
  691.     jmp [_SnmpUtilOctetsNCmp]
  692.   end;
  693. end;
  694. {$ELSE}
  695. function SnmpUtilOctetsNCmp; external snmpapilib name 'SnmpUtilOctetsNCmp';
  696. {$ENDIF DYNAMIC_LINK}
  698. {$IFDEF DYNAMIC_LINK}
  699. var
  700.   _SnmpUtilOctetsCpy: Pointer;
  702. function SnmpUtilOctetsCpy;
  703. begin
  704.   GetProcedureAddress(_SnmpUtilOctetsCpy, snmpapilib, 'SnmpUtilOctetsCpy');
  705.   asm
  706.     mov esp, ebp
  707.     pop ebp
  708.     jmp [_SnmpUtilOctetsCpy]
  709.   end;
  710. end;
  711. {$ELSE}
  712. function SnmpUtilOctetsCpy; external snmpapilib name 'SnmpUtilOctetsCpy';
  713. {$ENDIF DYNAMIC_LINK}
  715. {$IFDEF DYNAMIC_LINK}
  716. var
  717.   _SnmpUtilOctetsFree: Pointer;
  719. procedure SnmpUtilOctetsFree;
  720. begin
  721.   GetProcedureAddress(_SnmpUtilOctetsFree, snmpapilib, 'SnmpUtilOctetsFree');
  722.   asm
  723.     mov esp, ebp
  724.     pop ebp
  725.     jmp [_SnmpUtilOctetsFree]
  726.   end;
  727. end;
  728. {$ELSE}
  729. procedure SnmpUtilOctetsFree; external snmpapilib name 'SnmpUtilOctetsFree';
  730. {$ENDIF DYNAMIC_LINK}
  732. {$IFDEF DYNAMIC_LINK}
  733. var
  734.   _SnmpUtilAsnAnyCpy: Pointer;
  736. function SnmpUtilAsnAnyCpy;
  737. begin
  738.   GetProcedureAddress(_SnmpUtilAsnAnyCpy, snmpapilib, 'SnmpUtilAsnAnyCpy');
  739.   asm
  740.     mov esp, ebp
  741.     pop ebp
  742.     jmp [_SnmpUtilAsnAnyCpy]
  743.   end;
  744. end;
  745. {$ELSE}
  746. function SnmpUtilAsnAnyCpy; external snmpapilib name 'SnmpUtilAsnAnyCpy';
  747. {$ENDIF DYNAMIC_LINK}
  749. {$IFDEF DYNAMIC_LINK}
  750. var
  751.   _SnmpUtilAsnAnyFree: Pointer;
  753. procedure SnmpUtilAsnAnyFree;
  754. begin
  755.   GetProcedureAddress(_SnmpUtilAsnAnyFree, snmpapilib, 'SnmpUtilAsnAnyFree');
  756.   asm
  757.     mov esp, ebp
  758.     pop ebp
  759.     jmp [_SnmpUtilAsnAnyFree]
  760.   end;
  761. end;
  762. {$ELSE}
  763. procedure SnmpUtilAsnAnyFree; external snmpapilib name 'SnmpUtilAsnAnyFree';
  764. {$ENDIF DYNAMIC_LINK}
  766. {$IFDEF DYNAMIC_LINK}
  767. var
  768.   _SnmpUtilVarBindCpy: Pointer;
  770. function SnmpUtilVarBindCpy;
  771. begin
  772.   GetProcedureAddress(_SnmpUtilVarBindCpy, snmpapilib, 'SnmpUtilVarBindCpy');
  773.   asm
  774.     mov esp, ebp
  775.     pop ebp
  776.     jmp [_SnmpUtilVarBindCpy]
  777.   end;
  778. end;
  779. {$ELSE}
  780. function SnmpUtilVarBindCpy; external snmpapilib name 'SnmpUtilVarBindCpy';
  781. {$ENDIF DYNAMIC_LINK}
  783. {$IFDEF DYNAMIC_LINK}
  784. var
  785.   _SnmpUtilVarBindFree: Pointer;
  787. procedure SnmpUtilVarBindFree;
  788. begin
  789.   GetProcedureAddress(_SnmpUtilVarBindFree, snmpapilib, 'SnmpUtilVarBindFree');
  790.   asm
  791.     mov esp, ebp
  792.     pop ebp
  793.     jmp [_SnmpUtilVarBindFree]
  794.   end;
  795. end;
  796. {$ELSE}
  797. procedure SnmpUtilVarBindFree; external snmpapilib name 'SnmpUtilVarBindFree';
  798. {$ENDIF DYNAMIC_LINK}
  800. {$IFDEF DYNAMIC_LINK}
  801. var
  802.   _SnmpUtilVarBindListCpy: Pointer;
  804. function SnmpUtilVarBindListCpy;
  805. begin
  806.   GetProcedureAddress(_SnmpUtilVarBindListCpy, snmpapilib, 'SnmpUtilVarBindListCpy');
  807.   asm
  808.     mov esp, ebp
  809.     pop ebp
  810.     jmp [_SnmpUtilVarBindListCpy]
  811.   end;
  812. end;
  813. {$ELSE}
  814. function SnmpUtilVarBindListCpy; external snmpapilib name 'SnmpUtilVarBindListCpy';
  815. {$ENDIF DYNAMIC_LINK}
  817. {$IFDEF DYNAMIC_LINK}
  818. var
  819.   _SnmpUtilVarBindListFree: Pointer;
  821. procedure SnmpUtilVarBindListFree;
  822. begin
  823.   GetProcedureAddress(_SnmpUtilVarBindListFree, snmpapilib, 'SnmpUtilVarBindListFree');
  824.   asm
  825.     mov esp, ebp
  826.     pop ebp
  827.     jmp [_SnmpUtilVarBindListFree]
  828.   end;
  829. end;
  830. {$ELSE}
  831. procedure SnmpUtilVarBindListFree; external snmpapilib name 'SnmpUtilVarBindListFree';
  832. {$ENDIF DYNAMIC_LINK}
  834. {$IFDEF DYNAMIC_LINK}
  835. var
  836.   _SnmpUtilMemFree: Pointer;
  838. procedure SnmpUtilMemFree;
  839. begin
  840.   GetProcedureAddress(_SnmpUtilMemFree, snmpapilib, 'SnmpUtilMemFree');
  841.   asm
  842.     mov esp, ebp
  843.     pop ebp
  844.     jmp [_SnmpUtilMemFree]
  845.   end;
  846. end;
  847. {$ELSE}
  848. procedure SnmpUtilMemFree; external snmpapilib name 'SnmpUtilMemFree';
  849. {$ENDIF DYNAMIC_LINK}
  851. {$IFDEF DYNAMIC_LINK}
  852. var
  853.   _SnmpUtilMemAlloc: Pointer;
  855. function SnmpUtilMemAlloc;
  856. begin
  857.   GetProcedureAddress(_SnmpUtilMemAlloc, snmpapilib, 'SnmpUtilMemAlloc');
  858.   asm
  859.     mov esp, ebp
  860.     pop ebp
  861.     jmp [_SnmpUtilMemAlloc]
  862.   end;
  863. end;
  864. {$ELSE}
  865. function SnmpUtilMemAlloc; external snmpapilib name 'SnmpUtilMemAlloc';
  866. {$ENDIF DYNAMIC_LINK}
  868. {$IFDEF DYNAMIC_LINK}
  869. var
  870.   _SnmpUtilMemReAlloc: Pointer;
  872. function SnmpUtilMemReAlloc;
  873. begin
  874.   GetProcedureAddress(_SnmpUtilMemReAlloc, snmpapilib, 'SnmpUtilMemReAlloc');
  875.   asm
  876.     mov esp, ebp
  877.     pop ebp
  878.     jmp [_SnmpUtilMemReAlloc]
  879.   end;
  880. end;
  881. {$ELSE}
  882. function SnmpUtilMemReAlloc; external snmpapilib name 'SnmpUtilMemReAlloc';
  883. {$ENDIF DYNAMIC_LINK}
  885. {$IFDEF DYNAMIC_LINK}
  886. var
  887.   _SnmpUtilOidToA: Pointer;
  889. function SnmpUtilOidToA;
  890. begin
  891.   GetProcedureAddress(_SnmpUtilOidToA, snmpapilib, 'SnmpUtilOidToA');
  892.   asm
  893.     mov esp, ebp
  894.     pop ebp
  895.     jmp [_SnmpUtilOidToA]
  896.   end;
  897. end;
  898. {$ELSE}
  899. function SnmpUtilOidToA; external snmpapilib name 'SnmpUtilOidToA';
  900. {$ENDIF DYNAMIC_LINK}
  902. {$IFDEF DYNAMIC_LINK}
  903. var
  904.   _SnmpUtilIdsToA: Pointer;
  906. function SnmpUtilIdsToA;
  907. begin
  908.   GetProcedureAddress(_SnmpUtilIdsToA, snmpapilib, 'SnmpUtilIdsToA');
  909.   asm
  910.     mov esp, ebp
  911.     pop ebp
  912.     jmp [_SnmpUtilIdsToA]
  913.   end;
  914. end;
  915. {$ELSE}
  916. function SnmpUtilIdsToA; external snmpapilib name 'SnmpUtilIdsToA';
  917. {$ENDIF DYNAMIC_LINK}
  919. {$IFDEF DYNAMIC_LINK}
  920. var
  921.   _SnmpUtilPrintOid: Pointer;
  923. procedure SnmpUtilPrintOid;
  924. begin
  925.   GetProcedureAddress(_SnmpUtilPrintOid, snmpapilib, 'SnmpUtilPrintOid');
  926.   asm
  927.     mov esp, ebp
  928.     pop ebp
  929.     jmp [_SnmpUtilPrintOid]
  930.   end;
  931. end;
  932. {$ELSE}
  933. procedure SnmpUtilPrintOid; external snmpapilib name 'SnmpUtilPrintOid';
  934. {$ENDIF DYNAMIC_LINK}
  936. {$IFDEF DYNAMIC_LINK}
  937. var
  938.   _SnmpUtilPrintAsnAny: Pointer;
  940. procedure SnmpUtilPrintAsnAny;
  941. begin
  942.   GetProcedureAddress(_SnmpUtilPrintAsnAny, snmpapilib, 'SnmpUtilPrintAsnAny');
  943.   asm
  944.     mov esp, ebp
  945.     pop ebp
  946.     jmp [_SnmpUtilPrintAsnAny]
  947.   end;
  948. end;
  949. {$ELSE}
  950. procedure SnmpUtilPrintAsnAny; external snmpapilib name 'SnmpUtilPrintAsnAny';
  951. {$ENDIF DYNAMIC_LINK}
  953. {$IFDEF DYNAMIC_LINK}
  954. var
  955.   _SnmpSvcGetUptime: Pointer;
  957. function SnmpSvcGetUptime;
  958. begin
  959.   GetProcedureAddress(_SnmpSvcGetUptime, snmpapilib, 'SnmpSvcGetUptime');
  960.   asm
  961.     mov esp, ebp
  962.     pop ebp
  963.     jmp [_SnmpSvcGetUptime]
  964.   end;
  965. end;
  966. {$ELSE}
  967. function SnmpSvcGetUptime; external snmpapilib name 'SnmpSvcGetUptime';
  968. {$ENDIF DYNAMIC_LINK}
  970. {$IFDEF DYNAMIC_LINK}
  971. var
  972.   _SnmpSvcSetLogLevel: Pointer;
  974. procedure SnmpSvcSetLogLevel;
  975. begin
  976.   GetProcedureAddress(_SnmpSvcSetLogLevel, snmpapilib, 'SnmpSvcSetLogLevel');
  977.   asm
  978.     mov esp, ebp
  979.     pop ebp
  980.     jmp [_SnmpSvcSetLogLevel]
  981.   end;
  982. end;
  983. {$ELSE}
  984. procedure SnmpSvcSetLogLevel; external snmpapilib name 'SnmpSvcSetLogLevel';
  985. {$ENDIF DYNAMIC_LINK}
  987. {$IFDEF DYNAMIC_LINK}
  988. var
  989.   _SnmpSvcSetLogType: Pointer;
  991. procedure SnmpSvcSetLogType;
  992. begin
  993.   GetProcedureAddress(_SnmpSvcSetLogType, snmpapilib, 'SnmpSvcSetLogType');
  994.   asm
  995.     mov esp, ebp
  996.     pop ebp
  997.     jmp [_SnmpSvcSetLogType]
  998.   end;
  999. end;
  1000. {$ELSE}
  1001. procedure SnmpSvcSetLogType; external snmpapilib name 'SnmpSvcSetLogType';
  1002. {$ENDIF DYNAMIC_LINK}
  1004. {$IFDEF DYNAMIC_LINK}
  1005. var
  1006.   _SnmpUtilDbgPrint: Pointer;
  1008. procedure SnmpUtilDbgPrint;
  1009. begin
  1010.   GetProcedureAddress(_SnmpUtilDbgPrint, snmpapilib, 'SnmpUtilDbgPrint');
  1011.   asm
  1012.     mov esp, ebp
  1013.     pop ebp
  1014.     jmp [_SnmpUtilDbgPrint]
  1015.   end;
  1016. end;
  1017. {$ELSE}
  1018. procedure SnmpUtilDbgPrint; external snmpapilib name 'SnmpUtilDbgPrint';
  1019. {$ENDIF DYNAMIC_LINK}
  1021. {$IFNDEF SNMPSTRICT}
  1023. {$IFDEF DYNAMIC_LINK}
  1024. var
  1025.   _SNMP_oidcpy: Pointer;
  1027. function SNMP_oidcpy;
  1028. begin
  1029.   GetProcedureAddress(_SNMP_oidcpy, snmpapilib, 'SnmpUtilOidCpy');
  1030.   asm
  1031.     mov esp, ebp
  1032.     pop ebp
  1033.     jmp [_SNMP_oidcpy]
  1034.   end;
  1035. end;
  1036. {$ELSE}
  1037. function SNMP_oidcpy; external snmpapilib name 'SnmpUtilOidCpy';
  1038. {$ENDIF DYNAMIC_LINK}
  1040. {$IFDEF DYNAMIC_LINK}
  1041. var
  1042.   _SNMP_oidappend: Pointer;
  1044. function SNMP_oidappend;
  1045. begin
  1046.   GetProcedureAddress(_SNMP_oidappend, snmpapilib, 'SnmpUtilOidAppend');
  1047.   asm
  1048.     mov esp, ebp
  1049.     pop ebp
  1050.     jmp [_SNMP_oidappend]
  1051.   end;
  1052. end;
  1053. {$ELSE}
  1054. function SNMP_oidappend; external snmpapilib name 'SnmpUtilOidAppend';
  1055. {$ENDIF DYNAMIC_LINK}
  1057. {$IFDEF DYNAMIC_LINK}
  1058. var
  1059.   _SNMP_oidncmp: Pointer;
  1061. function SNMP_oidncmp;
  1062. begin
  1063.   GetProcedureAddress(_SNMP_oidncmp, snmpapilib, 'SnmpUtilOidNCmp');
  1064.   asm
  1065.     mov esp, ebp
  1066.     pop ebp
  1067.     jmp [_SNMP_oidncmp]
  1068.   end;
  1069. end;
  1070. {$ELSE}
  1071. function SNMP_oidncmp; external snmpapilib name 'SnmpUtilOidNCmp';
  1072. {$ENDIF DYNAMIC_LINK}
  1074. {$IFDEF DYNAMIC_LINK}
  1075. var
  1076.   _SNMP_oidcmp: Pointer;
  1078. function SNMP_oidcmp;
  1079. begin
  1080.   GetProcedureAddress(_SNMP_oidcmp, snmpapilib, 'SnmpUtilOidCmp');
  1081.   asm
  1082.     mov esp, ebp
  1083.     pop ebp
  1084.     jmp [_SNMP_oidcmp]
  1085.   end;
  1086. end;
  1087. {$ELSE}
  1088. function SNMP_oidcmp; external snmpapilib name 'SnmpUtilOidCmp';
  1089. {$ENDIF DYNAMIC_LINK}
  1091. {$IFDEF DYNAMIC_LINK}
  1092. var
  1093.   _SNMP_oidfree: Pointer;
  1095. procedure SNMP_oidfree;
  1096. begin
  1097.   GetProcedureAddress(_SNMP_oidfree, snmpapilib, 'SnmpUtilOidFree');
  1098.   asm
  1099.     mov esp, ebp
  1100.     pop ebp
  1101.     jmp [_SNMP_oidfree]
  1102.   end;
  1103. end;
  1104. {$ELSE}
  1105. procedure SNMP_oidfree; external snmpapilib name 'SnmpUtilOidFree';
  1106. {$ENDIF DYNAMIC_LINK}
  1108. {$IFDEF DYNAMIC_LINK}
  1109. var
  1110.   _SNMP_CopyVarBind: Pointer;
  1112. function SNMP_CopyVarBind;
  1113. begin
  1114.   GetProcedureAddress(_SNMP_CopyVarBind, snmpapilib, 'SnmpUtilVarBindCpy');
  1115.   asm
  1116.     mov esp, ebp
  1117.     pop ebp
  1118.     jmp [_SNMP_CopyVarBind]
  1119.   end;
  1120. end;
  1121. {$ELSE}
  1122. function SNMP_CopyVarBind; external snmpapilib name 'SnmpUtilVarBindCpy';
  1123. {$ENDIF DYNAMIC_LINK}
  1125. {$IFDEF DYNAMIC_LINK}
  1126. var
  1127.   _SNMP_FreeVarBind: Pointer;
  1129. procedure SNMP_FreeVarBind;
  1130. begin
  1131.   GetProcedureAddress(_SNMP_FreeVarBind, snmpapilib, 'SnmpUtilVarBindFree');
  1132.   asm
  1133.     mov esp, ebp
  1134.     pop ebp
  1135.     jmp [_SNMP_FreeVarBind]
  1136.   end;
  1137. end;
  1138. {$ELSE}
  1139. procedure SNMP_FreeVarBind; external snmpapilib name 'SnmpUtilVarBindFree';
  1140. {$ENDIF DYNAMIC_LINK}
  1142. {$IFDEF DYNAMIC_LINK}
  1143. var
  1144.   _SNMP_CopyVarBindList: Pointer;
  1146. function SNMP_CopyVarBindList;
  1147. begin
  1148.   GetProcedureAddress(_SNMP_CopyVarBindList, snmpapilib, 'SnmpUtilVarBindListCpy');
  1149.   asm
  1150.     mov esp, ebp
  1151.     pop ebp
  1152.     jmp [_SNMP_CopyVarBindList]
  1153.   end;
  1154. end;
  1155. {$ELSE}
  1156. function SNMP_CopyVarBindList; external snmpapilib name 'SnmpUtilVarBindListCpy';
  1157. {$ENDIF DYNAMIC_LINK}
  1159. {$IFDEF DYNAMIC_LINK}
  1160. var
  1161.   _SNMP_FreeVarBindList: Pointer;
  1163. procedure SNMP_FreeVarBindList;
  1164. begin
  1165.   GetProcedureAddress(_SNMP_FreeVarBindList, snmpapilib, 'SnmpUtilVarBindListFree');
  1166.   asm
  1167.     mov esp, ebp
  1168.     pop ebp
  1169.     jmp [_SNMP_FreeVarBindList]
  1170.   end;
  1171. end;
  1172. {$ELSE}
  1173. procedure SNMP_FreeVarBindList; external snmpapilib name 'SnmpUtilVarBindListFree';
  1174. {$ENDIF DYNAMIC_LINK}
  1176. {$IFDEF DYNAMIC_LINK}
  1177. var
  1178.   _SNMP_printany: Pointer;
  1180. procedure SNMP_printany;
  1181. begin
  1182.   GetProcedureAddress(_SNMP_printany, snmpapilib, 'SnmpUtilPrintAsnAny');
  1183.   asm
  1184.     mov esp, ebp
  1185.     pop ebp
  1186.     jmp [_SNMP_printany]
  1187.   end;
  1188. end;
  1189. {$ELSE}
  1190. procedure SNMP_printany; external snmpapilib name 'SnmpUtilPrintAsnAny';
  1191. {$ENDIF DYNAMIC_LINK}
  1193. {$IFDEF DYNAMIC_LINK}
  1194. var
  1195.   _SNMP_free: Pointer;
  1197. procedure SNMP_free;
  1198. begin
  1199.   GetProcedureAddress(_SNMP_free, snmpapilib, 'SnmpUtilMemFree');
  1200.   asm
  1201.     mov esp, ebp
  1202.     pop ebp
  1203.     jmp [_SNMP_free]
  1204.   end;
  1205. end;
  1206. {$ELSE}
  1207. procedure SNMP_free; external snmpapilib name 'SnmpUtilMemFree';
  1208. {$ENDIF DYNAMIC_LINK}
  1210. {$IFDEF DYNAMIC_LINK}
  1211. var
  1212.   _SNMP_malloc: Pointer;
  1214. function SNMP_malloc;
  1215. begin
  1216.   GetProcedureAddress(_SNMP_malloc, snmpapilib, 'SnmpUtilMemAlloc');
  1217.   asm
  1218.     mov esp, ebp
  1219.     pop ebp
  1220.     jmp [_SNMP_malloc]
  1221.   end;
  1222. end;
  1223. {$ELSE}
  1224. function SNMP_malloc; external snmpapilib name 'SnmpUtilMemAlloc';
  1225. {$ENDIF DYNAMIC_LINK}
  1227. {$IFDEF DYNAMIC_LINK}
  1228. var
  1229.   _SNMP_realloc: Pointer;
  1231. function SNMP_realloc;
  1232. begin
  1233.   GetProcedureAddress(_SNMP_realloc, snmpapilib, 'SnmpUtilMemReAlloc');
  1234.   asm
  1235.     mov esp, ebp
  1236.     pop ebp
  1237.     jmp [_SNMP_realloc]
  1238.   end;
  1239. end;
  1240. {$ELSE}
  1241. function SNMP_realloc; external snmpapilib name 'SnmpUtilMemReAlloc';
  1242. {$ENDIF DYNAMIC_LINK}
  1244. {$IFDEF DYNAMIC_LINK}
  1245. var
  1246.   _SNMP_DBG_free: Pointer;
  1248. procedure SNMP_DBG_free;
  1249. begin
  1250.   GetProcedureAddress(_SNMP_DBG_free, snmpapilib, 'SnmpUtilMemFree');
  1251.   asm
  1252.     mov esp, ebp
  1253.     pop ebp
  1254.     jmp [_SNMP_DBG_free]
  1255.   end;
  1256. end;
  1257. {$ELSE}
  1258. procedure SNMP_DBG_free; external snmpapilib name 'SnmpUtilMemFree';
  1259. {$ENDIF DYNAMIC_LINK}
  1261. {$IFDEF DYNAMIC_LINK}
  1262. var
  1263.   _SNMP_DBG_malloc: Pointer;
  1265. function SNMP_DBG_malloc;
  1266. begin
  1267.   GetProcedureAddress(_SNMP_DBG_malloc, snmpapilib, 'SnmpUtilMemAlloc');
  1268.   asm
  1269.     mov esp, ebp
  1270.     pop ebp
  1271.     jmp [_SNMP_DBG_malloc]
  1272.   end;
  1273. end;
  1274. {$ELSE}
  1275. function SNMP_DBG_malloc; external snmpapilib name 'SnmpUtilMemAlloc';
  1276. {$ENDIF DYNAMIC_LINK}
  1278. {$IFDEF DYNAMIC_LINK}
  1279. var
  1280.   _SNMP_DBG_realloc: Pointer;
  1282. function SNMP_DBG_realloc;
  1283. begin
  1284.   GetProcedureAddress(_SNMP_DBG_realloc, snmpapilib, 'SnmpUtilMemReAlloc');
  1285.   asm
  1286.     mov esp, ebp
  1287.     pop ebp
  1288.     jmp [_SNMP_DBG_realloc]
  1289.   end;
  1290. end;
  1291. {$ELSE}
  1292. function SNMP_DBG_realloc; external snmpapilib name 'SnmpUtilMemReAlloc';
  1293. {$ENDIF DYNAMIC_LINK}
  1294. {$ENDIF SNMPSTRICT}
  1296. end.