 |
BorlandTalk.com Borland discussion newsgroups
|
| View previous topic :: View next topic |
| Author |
Message |
C Albrecht Guest
|
Posted: Wed Feb 11, 2004 5:51 pm Post subject: SNMP |
|
|
Hi,
Does anyone have a demo of the SNMP client working
in Indy 9>
--
Thanks,
Charles Albrecht
free software at http://www.cwalbrec.com
Home of Back Door Guard
|
|
| Back to top |
|
 |
Simon Devlin Guest
|
Posted: Mon Feb 16, 2004 7:52 pm Post subject: Re: SNMP |
|
|
You might want to look at the Synapse SNMP units. The one in Indy was
initially based on it (IIRC), but the Synapse one IME works better.
"C Albrecht" <cwalbrec (AT) NoSpamsover (DOT) net> wrote
| Quote: | Hi,
Does anyone have a demo of the SNMP client working
in Indy 9
--
Thanks,
Charles Albrecht
free software at http://www.cwalbrec.com
Home of Back Door Guard
|
|
|
| Back to top |
|
 |
Bill Door Guest
|
Posted: Mon Feb 16, 2004 11:25 pm Post subject: Re: SNMP |
|
|
"C Albrecht" <cwalbrec (AT) NoSpamsover (DOT) net> wrote in news:402a6c67
@newsgroups.borland.com:
| Quote: | Hi,
Does anyone have a demo of the SNMP client working
in Indy 9
|
When you say a demo if the SNMP client working, what do you mean?
Do you want to see how TIdSNMP is used in code? or do you want to see how
you actually use it to send/receive snmp responses from an SNMP agent?
The code below is a simplistic example of using TIdSNMP:
procedure DoSomeStuff();
var
Connection: TIdSNMP;
begin
Connection := TIdSNMP.Create(nil);
try
Connection.Query.Host := REMOTE_IP;
Connection.Query.Port := REMOTE_Port;
Connection.Query.Enterprise := ENTERPRISE_ID;
Connection.Query.Version := 1;
Connection.Query.PDUType := SNMP_PDU_GET;
Connection.Query.MIBAdd(SOME_OBJECT_ID, Value, asnType);
if (Connection.SendQuery) then
try
Value := Connection.Reply.MIBGet(Oid);
except
end;
finally
Connection.Free;
end;
end;
Cheers,
Ed
--
ELKNews FREE Edition - Empower your News Reader! http://www.atozedsoftware.com
|
|
| Back to top |
|
 |
C Albrecht Guest
|
Posted: Wed Feb 18, 2004 6:11 pm Post subject: Re: SNMP |
|
|
Thanks A lot it does help
"Bill Door" <BillDoorNZ (AT) yahool (DOT) com> wrote
| Quote: | "C Albrecht" <cwalbrec (AT) NoSpamsover (DOT) net> wrote in news:402a6c67
@newsgroups.borland.com:
Hi,
Does anyone have a demo of the SNMP client working
in Indy 9
When you say a demo if the SNMP client working, what do you mean?
Do you want to see how TIdSNMP is used in code? or do you want to see how
you actually use it to send/receive snmp responses from an SNMP agent?
The code below is a simplistic example of using TIdSNMP:
procedure DoSomeStuff();
var
Connection: TIdSNMP;
begin
Connection := TIdSNMP.Create(nil);
try
Connection.Query.Host := REMOTE_IP;
Connection.Query.Port := REMOTE_Port;
Connection.Query.Enterprise := ENTERPRISE_ID;
Connection.Query.Version := 1;
Connection.Query.PDUType := SNMP_PDU_GET;
Connection.Query.MIBAdd(SOME_OBJECT_ID, Value, asnType);
if (Connection.SendQuery) then
try
Value := Connection.Reply.MIBGet(Oid);
except
end;
finally
Connection.Free;
end;
end;
Cheers,
Ed
--
ELKNews FREE Edition - Empower your News Reader!
http://www.atozedsoftware.com
|
|
|
| Back to top |
|
 |
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
|