دريافت trap با كنترل idsnmp

[iamehsan56]

سلام
من از كنترل idsnmp توي delphi 7 استفاده مي كنم . با اون مي تونم trap بفرستم . اما هنوز نتونستم باهاش trap دريافت كنم . كسي كد demo يا راهنمايي مي تونه بكنه .


تو سايت هم گشتم اما چيزي پيدا نكردم كه به درد بخوره
اين هم كد منه . ممنون:چشمک:


IdSNMP1.Active:=true;


IdSNMP1.Trap.PDUType := PDUTrap;

op:=IdSNMP1.ReceiveTrap;
if op<>0 then showmessage('trap received') ;
IdSNMP1.QuickReceiveTrap(source,entr,community,por t,Gen,spec,sec,mibname,mibvalue);
showmessage(inttostr(op)) ;
memo3.Lines.Add('src:'+source);
memo3.Lines.Add('entr:'+entr);
memo3.Lines.Add('community:'+community);
memo3.Lines.Add('port:'+inttostr(port));
memo3.Lines.Add('gen:'+inttostr(gen));
memo3.Lines.Add('spec:'+inttostr(spec));
memo3.Lines.Add('seconds:'+inttostr(sec));

MIBName.Clear;
MIBValue.Clear;

for i:=0 to (IdSNMP1.Trap.MIBOID.Count - 1) do
begin
MIBName.Add(IdSNMP1.Trap.MIBOID[i]);
MIBValue.Add(IdSNMP1.Trap.MIBValue[i]);
end;

[iamehsan56]

من به نتايج خوبي براي كار با اين كنترل رسيدم . اگه كسي خواست من مي تونم كمكش كنم :لبخند:

[mfurotan]

من شدیدا تو این زمینه (Indy SNMP) نیاز به کمک دارم
اگه میتونید کمکم کنید خیلی ممنون میشم