Hallo zusammen,
ich versuche gerade mit der Komponente TIdSNMP auf meinen Netzwerkdrucker zuzugreifen. Nur leider werden keine Wert(e) zurückgegeben.
Delphi-Quellcode:
var
Idx: Integer;
IdSNMP_1 : TIdSNMP;
RetrStr:
string;
begin
M_1.Lines.Clear;
IdSNMP_1 := TIdSNMP.Create(
nil);
IdSNMP_1.Query.Clear;
IdSNMP_1.Query.Host := '
192.168.200.88';
IdSNMP_1.Query.Community := '
public';
IdSNMP_1.Query.PDUType := PDUGetNextRequest;
IdSNMP_1.Query.MIBAdd('
1.3.6.1.2.1.1.5.0', '
');
IdSNMP_1.Query.Version := 1;
IdSNMP_1.Connect;
if IdSNMP_1.Connected
then
if IdSNMP_1.SendQuery
then
begin
M_1.Lines.Add('
Replies: ' + IntToStr(IdSNMP_1.Reply.ValueCount));
for Idx := 0
to IdSNMP_1.Reply.ValueCount - 1
do
M_1.Lines.Add(IdSNMP_1.Reply.Value[0]);
end
else
ShowMessage('
SNMP-Request failed !!')
else
ShowMessage('
SNMP-Connect failed !!');
end;
Wenn ich jetzt einen Versuch starte, wird mir lediglich nur die Message "
SNMP-Request failed !!" angezeigt. Was mache ich falsch ?
Ich muss nicht die
Indy-Komponente nehmen, ich kann auch auf eine andere kostenlose Variante ausweichen. Ich teste das ganze nämlich gerade.