TSNMPInfo

type TSNMPInfo = class(TObject)

protected

  Buffer: string;

  procedure SyncMIB;

public

  Host: string;

  Port: TIdPort;

  Enterprise: string;

  GenTrap: Integer;

  SpecTrap: Integer;

  Version: Integer;

  PDUType: Integer;

  TimeTicks: Integer;

  ID: Integer;

  ErrorStatus: Integer;

  ErrorIndex: Integer;

  MIBOID: TStrings;

  MIBValue: TStrings;

  constructor Create();

  destructor Destroy; override;

  function EncodeTrap;

  function DecodeTrap;

  procedure DecodeBuf();

  function EncodeBuf;

  procedure Clear;

  procedure MIBAdd();

  procedure MIBDelete();

  function MIBGet();

  property Owner: TIdSNMP; [r]

  property Community: string; [rw]

  property ValueCount: Integer; [r]

  property Value []: string; [r]

  property ValueOID []: string; [r]

  property ValueType []: Integer; [r]

end;

TSNMPInfo

TObject