Re: Delphi ir SNMP [Tadas @ 2009-10-14 10:40:59]

Tema: Re: Delphi ir SNMP
Autorius: Tadas
Data: 2009-10-14 10:40:59
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=windows-1257" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18812">
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial>&gt; Gal galetum mestelt koki pavyzdi, kuris 
pasiuncia bet kokia uzklausa ir <BR>&gt; parodo rezultata?<BR>&gt; <BR><SPAN 
lang=RU></SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN lang=RU>Gaudyk...</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN lang=RU>&nbsp;</DIV>
<DIV><FONT size=3 face=System>type TSNMPdata=record</FONT></DIV>
<DIV><FONT size=3 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
OID: AnsiString;</FONT></DIV>
<DIV><FONT size=3 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp; Community: AnsiString;</FONT></DIV>
<DIV><FONT size=3 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
AgentIP: AnsiString;</FONT></DIV>
<DIV><FONT size=3 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Value: AnsiString;</FONT></DIV>
<DIV><FONT size=3 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
ValueType: integer;</FONT></DIV>
<DIV><FONT size=3 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
RetryCount: integer;</FONT></DIV>
<DIV><FONT size=3 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
TimeOut: integer;</FONT></DIV>
<DIV><FONT size=3 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;end;</FONT></DIV>
<DIV><FONT size=3 face=System></FONT>&nbsp;</DIV>
<DIV><FONT size=3 face=System></FONT>&nbsp;</DIV>
<DIV><FONT size=3 face=System></FONT><SPAN lang=RU>&nbsp;</DIV>
<DIV><FONT size=3 face=System>var SNMPdata: TSNMPdata;</FONT></DIV>
<DIV><FONT size=3 face=System>&nbsp; &nbsp;&nbsp;&nbsp; GetValue: 
AnsiString;</FONT></DIV>
<DIV><FONT size=3 face=System></FONT></SPAN></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT face=System></FONT>&nbsp;</DIV><SPAN lang=RU>
<DIV><FONT face=System>function GetRequest(data: TSNMPdata): 
boolean;</FONT></DIV>
<DIV><FONT face=System>var r: boolean;</FONT></DIV>
<DIV><FONT face=System>c: integer;</FONT></DIV>
<DIV><FONT face=System>begin</FONT></DIV>
<DIV><FONT face=System>&nbsp; r:=false;</FONT></DIV>
<DIV><FONT face=System>&nbsp; c:=data.RetryCount;</FONT></DIV>
<DIV><FONT face=System>&nbsp; while (not r) and (c &gt; 0) do</FONT></DIV>
<DIV><FONT face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
begin</FONT></DIV>
<DIV><FONT 
face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
Application.ProcessMessages;</FONT></DIV>
<DIV><FONT face=System>&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
r:=SNMPGet(data.OID, data.Community, data.AgentIP, data.TimeOut, 
GetValue);</FONT></DIV>
<DIV><FONT face=System>&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
dec(c);</FONT></DIV>
<DIV><FONT face=System>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
end;</FONT></DIV>
<DIV><FONT face=System>&nbsp; if not r then GetValue:='No 
response';</FONT></DIV>
<DIV><FONT face=System>&nbsp; Result:=r;</FONT></DIV>
<DIV><FONT face=System>end;</FONT></DIV></SPAN></BODY></HTML>