Class: TSNMPSend
RFC: 1157
Features:
{you must create object for SNMP session}
SNMP:=TSNMPSend.Create;
try
{set address of SNMP server}
SNMP.Host:=SNMPHost;
{build query...}
{set COMMUNITY for grant accessto SNMP server}
SNMP.Query.Community:=COMMUNITY;
{set type of PDU to define requested SNMP operation. Possible values are: PDUGetRequest, PDUGetNextRequest and PDUSetRequest}
SNMP.Query.PDUtype:=PDUGetRequest;
{define query OIDs...}
{add MIBOID as string to set of MIBs}
SNMP.Query.MIBAdd(FirstMIBOID,'',ASN1_NULL);
SNMP.Query.MIBAdd(SecondMIBOID,'',ASN1_NULL);
//...etc...
{send query to SNMP server}
if SNMP.DoIt then
{In Reply structure is response from SNMP server}
{set Value with value of searched MIBOID}
Value:=Snmp.Reply.MIBGet(MIBOID);
//...etc...
else
{error connecting to server}
;
finally
{destroy SNMP object}
SNMP.Free;
end;