jwasnmp.pas

比较全面的win32api开发包

{$IFDEF DYNAMIC_LINK}
var
  _SnmpUtilMemReAlloc: Pointer;

function SnmpUtilMemReAlloc;
begin
  GetProcedureAddress(_SnmpUtilMemReAlloc, snmpapilib, 'SnmpUtilMemReAlloc');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpUtilMemReAlloc]
  end;
end;
{$ELSE}
function SnmpUtilMemReAlloc; external snmpapilib name 'SnmpUtilMemReAlloc';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SnmpUtilOidToA: Pointer;

function SnmpUtilOidToA;
begin
  GetProcedureAddress(_SnmpUtilOidToA, snmpapilib, 'SnmpUtilOidToA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpUtilOidToA]
  end;
end;
{$ELSE}
function SnmpUtilOidToA; external snmpapilib name 'SnmpUtilOidToA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SnmpUtilIdsToA: Pointer;

function SnmpUtilIdsToA;
begin
  GetProcedureAddress(_SnmpUtilIdsToA, snmpapilib, 'SnmpUtilIdsToA');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpUtilIdsToA]
  end;
end;
{$ELSE}
function SnmpUtilIdsToA; external snmpapilib name 'SnmpUtilIdsToA';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SnmpUtilPrintOid: Pointer;

procedure SnmpUtilPrintOid;
begin
  GetProcedureAddress(_SnmpUtilPrintOid, snmpapilib, 'SnmpUtilPrintOid');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpUtilPrintOid]
  end;
end;
{$ELSE}
procedure SnmpUtilPrintOid; external snmpapilib name 'SnmpUtilPrintOid';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SnmpUtilPrintAsnAny: Pointer;

procedure SnmpUtilPrintAsnAny;
begin
  GetProcedureAddress(_SnmpUtilPrintAsnAny, snmpapilib, 'SnmpUtilPrintAsnAny');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpUtilPrintAsnAny]
  end;
end;
{$ELSE}
procedure SnmpUtilPrintAsnAny; external snmpapilib name 'SnmpUtilPrintAsnAny';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SnmpSvcGetUptime: Pointer;

function SnmpSvcGetUptime;
begin
  GetProcedureAddress(_SnmpSvcGetUptime, snmpapilib, 'SnmpSvcGetUptime');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpSvcGetUptime]
  end;
end;
{$ELSE}
function SnmpSvcGetUptime; external snmpapilib name 'SnmpSvcGetUptime';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SnmpSvcSetLogLevel: Pointer;

procedure SnmpSvcSetLogLevel;
begin
  GetProcedureAddress(_SnmpSvcSetLogLevel, snmpapilib, 'SnmpSvcSetLogLevel');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpSvcSetLogLevel]
  end;
end;
{$ELSE}
procedure SnmpSvcSetLogLevel; external snmpapilib name 'SnmpSvcSetLogLevel';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SnmpSvcSetLogType: Pointer;

procedure SnmpSvcSetLogType;
begin
  GetProcedureAddress(_SnmpSvcSetLogType, snmpapilib, 'SnmpSvcSetLogType');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpSvcSetLogType]
  end;
end;
{$ELSE}
procedure SnmpSvcSetLogType; external snmpapilib name 'SnmpSvcSetLogType';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SnmpUtilDbgPrint: Pointer;

procedure SnmpUtilDbgPrint;
begin
  GetProcedureAddress(_SnmpUtilDbgPrint, snmpapilib, 'SnmpUtilDbgPrint');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SnmpUtilDbgPrint]
  end;
end;
{$ELSE}
procedure SnmpUtilDbgPrint; external snmpapilib name 'SnmpUtilDbgPrint';
{$ENDIF DYNAMIC_LINK}

{$IFNDEF SNMPSTRICT}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_oidcpy: Pointer;

function SNMP_oidcpy;
begin
  GetProcedureAddress(_SNMP_oidcpy, snmpapilib, 'SnmpUtilOidCpy');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_oidcpy]
  end;
end;
{$ELSE}
function SNMP_oidcpy; external snmpapilib name 'SnmpUtilOidCpy';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_oidappend: Pointer;

function SNMP_oidappend;
begin
  GetProcedureAddress(_SNMP_oidappend, snmpapilib, 'SnmpUtilOidAppend');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_oidappend]
  end;
end;
{$ELSE}
function SNMP_oidappend; external snmpapilib name 'SnmpUtilOidAppend';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_oidncmp: Pointer;

function SNMP_oidncmp;
begin
  GetProcedureAddress(_SNMP_oidncmp, snmpapilib, 'SnmpUtilOidNCmp');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_oidncmp]
  end;
end;
{$ELSE}
function SNMP_oidncmp; external snmpapilib name 'SnmpUtilOidNCmp';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_oidcmp: Pointer;

function SNMP_oidcmp;
begin
  GetProcedureAddress(_SNMP_oidcmp, snmpapilib, 'SnmpUtilOidCmp');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_oidcmp]
  end;
end;
{$ELSE}
function SNMP_oidcmp; external snmpapilib name 'SnmpUtilOidCmp';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_oidfree: Pointer;

procedure SNMP_oidfree;
begin
  GetProcedureAddress(_SNMP_oidfree, snmpapilib, 'SnmpUtilOidFree');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_oidfree]
  end;
end;
{$ELSE}
procedure SNMP_oidfree; external snmpapilib name 'SnmpUtilOidFree';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_CopyVarBind: Pointer;

function SNMP_CopyVarBind;
begin
  GetProcedureAddress(_SNMP_CopyVarBind, snmpapilib, 'SnmpUtilVarBindCpy');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_CopyVarBind]
  end;
end;
{$ELSE}
function SNMP_CopyVarBind; external snmpapilib name 'SnmpUtilVarBindCpy';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_FreeVarBind: Pointer;

procedure SNMP_FreeVarBind;
begin
  GetProcedureAddress(_SNMP_FreeVarBind, snmpapilib, 'SnmpUtilVarBindFree');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_FreeVarBind]
  end;
end;
{$ELSE}
procedure SNMP_FreeVarBind; external snmpapilib name 'SnmpUtilVarBindFree';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_CopyVarBindList: Pointer;

function SNMP_CopyVarBindList;
begin
  GetProcedureAddress(_SNMP_CopyVarBindList, snmpapilib, 'SnmpUtilVarBindListCpy');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_CopyVarBindList]
  end;
end;
{$ELSE}
function SNMP_CopyVarBindList; external snmpapilib name 'SnmpUtilVarBindListCpy';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_FreeVarBindList: Pointer;

procedure SNMP_FreeVarBindList;
begin
  GetProcedureAddress(_SNMP_FreeVarBindList, snmpapilib, 'SnmpUtilVarBindListFree');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_FreeVarBindList]
  end;
end;
{$ELSE}
procedure SNMP_FreeVarBindList; external snmpapilib name 'SnmpUtilVarBindListFree';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_printany: Pointer;

procedure SNMP_printany;
begin
  GetProcedureAddress(_SNMP_printany, snmpapilib, 'SnmpUtilPrintAsnAny');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_printany]
  end;
end;
{$ELSE}
procedure SNMP_printany; external snmpapilib name 'SnmpUtilPrintAsnAny';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_free: Pointer;

procedure SNMP_free;
begin
  GetProcedureAddress(_SNMP_free, snmpapilib, 'SnmpUtilMemFree');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_free]
  end;
end;
{$ELSE}
procedure SNMP_free; external snmpapilib name 'SnmpUtilMemFree';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_malloc: Pointer;

function SNMP_malloc;
begin
  GetProcedureAddress(_SNMP_malloc, snmpapilib, 'SnmpUtilMemAlloc');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_malloc]
  end;
end;
{$ELSE}
function SNMP_malloc; external snmpapilib name 'SnmpUtilMemAlloc';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_realloc: Pointer;

function SNMP_realloc;
begin
  GetProcedureAddress(_SNMP_realloc, snmpapilib, 'SnmpUtilMemReAlloc');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_realloc]
  end;
end;
{$ELSE}
function SNMP_realloc; external snmpapilib name 'SnmpUtilMemReAlloc';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_DBG_free: Pointer;

procedure SNMP_DBG_free;
begin
  GetProcedureAddress(_SNMP_DBG_free, snmpapilib, 'SnmpUtilMemFree');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_DBG_free]
  end;
end;
{$ELSE}
procedure SNMP_DBG_free; external snmpapilib name 'SnmpUtilMemFree';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_DBG_malloc: Pointer;

function SNMP_DBG_malloc;
begin
  GetProcedureAddress(_SNMP_DBG_malloc, snmpapilib, 'SnmpUtilMemAlloc');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_DBG_malloc]
  end;
end;
{$ELSE}
function SNMP_DBG_malloc; external snmpapilib name 'SnmpUtilMemAlloc';
{$ENDIF DYNAMIC_LINK}

{$IFDEF DYNAMIC_LINK}
var
  _SNMP_DBG_realloc: Pointer;

function SNMP_DBG_realloc;
begin
  GetProcedureAddress(_SNMP_DBG_realloc, snmpapilib, 'SnmpUtilMemReAlloc');
  asm
    mov esp, ebp
    pop ebp
    jmp [_SNMP_DBG_realloc]
  end;
end;
{$ELSE}
function SNMP_DBG_realloc; external snmpapilib name 'SnmpUtilMemReAlloc';
{$ENDIF DYNAMIC_LINK}
{$ENDIF SNMPSTRICT}

end.