TIdSNMP

type TIdSNMP = class(TIdUDPClient)

protected

  fCommunity: string;

  fTrapPort: TIdPort;

  fTrapRecvBinding: TIdSocketHandle;

  procedure SetCommunity();

  procedure SetTrapPort();

  procedure InitComponent; override;

  function GetBinding; override;

  procedure CloseBinding; override;

public

  Query: TSNMPInfo;

  Reply: TSNMPInfo;

  Trap: TSNMPInfo;

  destructor Destroy; override;

  function SendQuery;

  function QuickSend();

  function QuickSendTrap();

  function QuickReceiveTrap();

  function SendTrap;

  function ReceiveTrap;

published

  property Port: TIdPort;

  property TrapPort: TIdPort; [rw]

  property Community: string; [rw]

end;

TIdSNMP

TIdUDPClient

TIdUDPBase

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject