Thank You very much!
Download it from http://www.indyproject.org/download/Indy9.html if you've
haven't got any indy demo's (they are not shipped with Delphi 7 (if am
correct?))
If not you haven't got Delphi 6, try to install it from the
"Mindaugas" <ad...@roventa.lt> wrote in message
news:3f0e...@newsgroups.borland.com...
He's looking for SNMP, not SMTP though. :)
--
Chad Z. Hower (a.k.a. Kudzu) - http://www.hower.org/Kudzu/
"Programming is an art form that fights back"
Qualified help FAST with Indy Experts Support
from the experts themselves:
http://www.atozedsoftware.com/indy/experts/support.html
ELKNews - Get your free copy at http://www.atozedsoftware.com
Kind Regards,
"Chad Z. Hower aka Kudzu" <cp...@hower.org> wrote in message
news:Xns93B6750...@127.0.0.1...
Mindaugas
"NeonBlue" <neonb...@hotmail.com> wrote in message
news:3f0f...@newsgroups.borland.com...
Im sorry but I just dont have 5 minutes to devote to ever user in this group
- I wish I did. Furthermore Im not an expert on every protocol, Indy is very
big. SNMP is one that I am not an expert in. And SNMP is very "broad" so to
develop a demo would likely not address your situation, and would certainly
take more than 5 minutes.
--
Chad Z. Hower (a.k.a. Kudzu) - http://www.hower.org/Kudzu/
"Programming is an art form that fights back"
Want more Indy stuff? Try the Atozed Indy Portal at
http://www.atozedsoftware.com/
* More Free Demos
* Free Articles
* Extra Support
:(((((
M.
"Chad Z. Hower aka Kudzu" <cp...@hower.org> wrote in message
news:Xns93B6DE2...@127.0.0.1...
A) Yes. As I said, Im not the SNMP expert.
B) If I spent 5 minutes writing your demo - everyone is going to expect that.
And it wont be 5 minutes - it will be much more. Then each day I'll do
nothing but write peoples demos for free, I'll have to forget about my job,
then I'll have to beg in the metro and wont be able to answer any ones
questions.
--
Chad Z. Hower (a.k.a. Kudzu) - http://www.hower.org/Kudzu/
"Programming is an art form that fights back"
Need extra help with an Indy problem?
http://www.atozedsoftware.com/indy/experts/support.html
"Chad Z. Hower aka Kudzu" <cp...@hower.org> wrote in message
news:Xns93B75DA...@127.0.0.1...
Probably because no one has written one.
--
Chad Z. Hower (a.k.a. Kudzu) - http://www.hower.org/Kudzu/
"Programming is an art form that fights back"
Want to keep up to date with Indy?
Join Indy News - it free!
http://www.atozedsoftware.com/indy/news/
> But here in Indy are IdSNMP1.Query, IdSNMP1.Reply, etc... - why?
> Chad Z.! Could you write me a working code in 5 minutes,
> which would snmpget('.1.3.6.1.2.1.1.4.0')?
Leave Indy and get Synapse. (SNMP implementation in INDY is based on my
Synapses code!)
In Synapse I have this simple function:
function SNMPGet(const OID, Community, SNMPHost: string; var Value:
string): Boolean;
OID is your '1.3.6.1.2.1.1.4.0', Communicty is community string for yous
SNMp query (if you not know this, then try 'public'), SNMPhost is
address of your SNMP server. When fynction retur true (succes), then you
have readed value in Value string.
Simple, or not? ;-)
--
Lukas Gebauer.
http://www.ararat.cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
I got one, but it seems that it is not working - returns empty string in any
case.
Here it is:
IdSNMP1.active:=true;
IdSNMP1.Host:='192.168.100.1';
IdSNMP1.Port:=161;
IdSNMP1.Query.Clear;
IdSNMP1.Query.Host:='192.168.100.1';
IdSNMP1.Query.Port:=161;
IdSNMP1.Query.MIBAdd('1.3.6.1.2.1.1.4.0','');
IdSNMP1.Query.PDUType:=PDUGetNextRequest;
IdSNMP1.SendQuery;
if IdSNMP1.Query.ValueCount>0 then
Edit1.Text:=IntToStr(IdSNMP1.Query.ValueCount)+': '+IdSNMP1.Query.Value[0]
else
Edit1.Text:='Value count zero';
IdSNMP1.active:=false;
What i am doing wrong?
Mindaugas
"Chad Z. Hower aka Kudzu" <cp...@hower.org> wrote in message
news:Xns93B7C67...@127.0.0.1...
IdSNMP1.active:=true;
IdSNMP1.Query.Clear;
IdSNMP1.Query.Host:='192.168.100.1';
IdSNMP1.Query.Port:=161;
IdSNMP1.Query.MIBAdd('1.3.6.1.2.1.1.1.0','');
IdSNMP1.Query.PDUType:=PDUGetRequest;
IdSNMP1.SendQuery;
if IdSNMP1.Reply.ValueCount>0 then
Edit1.Text:=IntToStr(IdSNMP1.Reply.ValueCount)+':
'+IdSNMP1.Reply.Value[0]
else
Edit1.Text:='Value count zero';
IdSNMP1.active:=false;
<guit...@hotmail.com> wrote in message news:3F183B...@hotmail.com...