我
我人很笨
Unregistered / Unconfirmed
GUEST, unregistred user!
from 上只有一个memo1/idsnmp部件/按钮.
代码只有
procedure TForm1.Button1Click(Sender: TObject);
var
origOID:string;
i:integer;
begin
IdSNMP1.Community := 'public';
IdSNMP1.Host := '127.0.0.1';
IdSNMP1.Query.Clear;
//origOID := '1.3.6.1.2.1.1.1';
origOID := '1.3.6.1.2.1.1.1';
IdSNMP1.Query.MIBAdd(origOID, '');
IdSNMP1.Query.PDUType := PDUGetNextRequest;
memo1.clear;
while IdSNMP1.SendQuery do
begin
if Copy(IdSNMP1.Reply.MIBOID[0], 1, Length(origOID)) <> origOID then
Break;
for I := 0 to IdSNMP1.Reply.ValueCount - 1 do
memo1.Lines.Add(IdSNMP1.Reply.Value);
IdSNMP1.Query.Clear;
IdSNMP1.Query.MIBAdd(IdSNMP1.Reply.ValueOID[0], '');
IdSNMP1.Query.PDUType := PDUGetNextRequest;
end;
end;
代码能运行,但是点按钮时出错...
socket error # 10054 connection reset by peer
这个是什么原因呀??
这个是个INSNMPD
代码只有
procedure TForm1.Button1Click(Sender: TObject);
var
origOID:string;
i:integer;
begin
IdSNMP1.Community := 'public';
IdSNMP1.Host := '127.0.0.1';
IdSNMP1.Query.Clear;
//origOID := '1.3.6.1.2.1.1.1';
origOID := '1.3.6.1.2.1.1.1';
IdSNMP1.Query.MIBAdd(origOID, '');
IdSNMP1.Query.PDUType := PDUGetNextRequest;
memo1.clear;
while IdSNMP1.SendQuery do
begin
if Copy(IdSNMP1.Reply.MIBOID[0], 1, Length(origOID)) <> origOID then
Break;
for I := 0 to IdSNMP1.Reply.ValueCount - 1 do
memo1.Lines.Add(IdSNMP1.Reply.Value);
IdSNMP1.Query.Clear;
IdSNMP1.Query.MIBAdd(IdSNMP1.Reply.ValueOID[0], '');
IdSNMP1.Query.PDUType := PDUGetNextRequest;
end;
end;
代码能运行,但是点按钮时出错...
socket error # 10054 connection reset by peer
这个是什么原因呀??
这个是个INSNMPD