TSNMPRec

type TSNMPRec = class(TObject)

protected

  FVersion: Integer;

  FPDUType: Integer;

  FID: Integer;

  FErrorStatus: Integer;

  FErrorIndex: Integer;

  FCommunity: AnsiString;

  FSNMPMibList: TList;

  FMaxSize: Integer;

  FFlags: TV3Flags;

  FFlagReportable: Boolean;

  FContextEngineID: AnsiString;

  FContextName: AnsiString;

  FAuthMode: TV3Auth;

  FAuthEngineID: AnsiString;

  FAuthEngineBoots: Integer;

  FAuthEngineTime: Integer;

  FAuthEngineTimeStamp: cardinal;

  FUserName: AnsiString;

  FPassword: AnsiString;

  FAuthKey: AnsiString;

  FPrivKey: AnsiString;

  FOldTrapEnterprise: AnsiString;

  FOldTrapHost: AnsiString;

  FOldTrapGen: Integer;

  FOldTrapSpec: Integer;

  FOldTrapTimeTicks: Integer;

  function Pass2Key();

public

  constructor Create;

  destructor Destroy; override;

  function DecodeBuf();

  function EncodeBuf;

  procedure Clear;

  procedure MIBAdd();

  procedure MIBDelete();

  function MIBGet();

  function MIBCount;

  function MIBByIndex();

  property SNMPMibList: TList; [r]

published

  property Version: Integer; [rw]

  property Community: AnsiString; [rw]

  property PDUType: Integer; [rw]

  property ID: Integer; [rw]

  property ErrorStatus: Integer; [rw]

  property ErrorIndex: Integer; [rw]

  property NonRepeaters: Integer; [rw]

  property MaxRepetitions: Integer; [rw]

  property MaxSize: Integer; [rw]

  property Flags: TV3Flags; [rw]

  property FlagReportable: Boolean; [rw]

  property ContextEngineID: AnsiString; [rw]

  property ContextName: AnsiString; [rw]

  property AuthMode: TV3Auth; [rw]

  property AuthEngineID: AnsiString; [rw]

  property AuthEngineBoots: Integer; [rw]

  property AuthEngineTime: Integer; [rw]

  property AuthEngineTimeStamp: Cardinal; [rw]

  property UserName: AnsiString; [rw]

  property Password: AnsiString; [rw]

  property AuthKey: AnsiString; [rw]

  property PrivKey: AnsiString; [rw]

  property OldTrapEnterprise: AnsiString; [rw]

  property OldTrapHost: AnsiString; [rw]

  property OldTrapGen: Integer; [rw]

  property OldTrapSpec: Integer; [rw]

  property OldTrapTimeTicks: Integer; [rw]

end;

TSNMPRec

TObject