Отправлено 630 нм 20 декабря 2005 г. 12:41 В ответ на: Увсем привет. Кто ковырял SNMP? Не могу разрулить формат Varbindinglist(это там где OID и значение), rfc не помогают. отправлено <font color=gray>Zlobster</font> 20 декабря 2005 г. 10:55

идентификаторы OID - PIds(VarBindList.list^.name.ids)^[номер позиции OID]

строковые дан.- VarBindList.list^.value.str:
VarBindList.list^.value.str.stream
VarBindList.list^.value.str.length

числ.значение - VarBindList.list^.value.number

type
PIds = ^TIds;
TIds = array[0..SNMP_MAX_OID_LEN - 1] of UINT;

PAsnOctetString = ^TAsnOctetString;
TAsnOctetString = record
stream: PBYTE;
length: UINT;
dynam: BOOL;
end;

PAsnObjectIdentifier = ^TAsnObjectIdentifier;
TAsnObjectIdentifier = record
idLength: UINT;
ids: PUINT;
end;

PAsnInteger32 = ^TAsnInteger32;
TAsnInteger32 = Longint;

PAsnUnsigned32 = ^TAsnUnsigned32;
TAsnUnsigned32 = ULONG;

PTAsnCounter64 = ^TAsnCounter64;
TAsnCounter64 = ULARGE_INTEGER;

PAsnCounter32 = ^TAsnCounter32;
TAsnCounter32 = TAsnUnsigned32;

PAsnGauge32 = ^TAsnGauge32;
TAsnGauge32 = TAsnUnsigned32;

PAsnTimeticks = ^TAsnTimeticks;
TAsnTimeticks = TAsnUnsigned32;

PAsnBits = ^TAsnBits;
TAsnBits = TAsnOctetString;

PAsnSequence = ^TAsnSequence;
TAsnSequence = TAsnOctetString;

PAsnImplicitSequence = ^TAsnImplicitSequence;
TAsnImplicitSequence = TAsnOctetString;

PAsnIpAddress = ^TAsnIpAddress;
TAsnIpAddress = TAsnOctetString;

PAsnNetworkAddress = ^TAsnNetworkAddress;
TAsnNetworkAddress = TAsnOctetString;

PAsnDisplayString = ^TAsnDisplayString;
TAsnDisplayString = TAsnOctetString;

PAsnOpaque = ^TAsnOpaque;
TAsnOpaque = TAsnOctetString;

PAsnAny = ^TAsnAny;
TAsnAny = record
asnType: BYTE;
case Integer of
0: (number: TAsnInteger32); { ASN_INTEGER, ASN_INTEGER32 }
1: (unsigned32: TAsnUnsigned32); { ASN_UNSIGNED32 }
2: (counter64: TAsnCounter64); { ASN_COUNTER64 }
3: (str: TAsnOctetString); { ASN_OCTETSTRING }
4: (bits: TAsnBits); { ASN_BITS }
5: (obj: TAsnObjectIdentifier); { ASN_OBJECTIDENTIFIER }
6: (sequence: TAsnSequence); { ASN_SEQUENCE }
7: (address: TAsnIpAddress); { ASN_IPADDRESS }
8: (counter: TAsnCounter32); { ASN_COUNTER32 }
9: (gauge: TAsnGauge32); { ASN_GAUGE32 }
10: (ticks: TAsnTimeticks); { ASN_TIMETICKS }
11: (arbitrary: TAsnOpaque); { ASN_OPAQUE }
end;

TAsnObjectName = TAsnObjectIdentifier;
TAsnObjectSyntax = TAsnAny;

PSnmpVarBind = ^TSnmpVarBind;
TSnmpVarBind = record
name: TAsnObjectName;
value: TAsnObjectSyntax;
end;

PSnmpVarBindList = ^TSnmpVarBindList;
TSnmpVarBindList = record
list: PSnmpVarBind;
len: UINT;
end;

var
VarBindList: TSnmpVarBindList;

• Спасибо, уже легче. А то хрен где найдешь. — Zlobster   (20.12.2005 16:29 82.207.102.162, пустое)

E-mail: info@telesys.ru