ipworks问题,500分,另外开贴给!

[cqwty]

我做一个网络设备(交换机,路由器等)数据采集系统,我使用的ipworks的snmpmgr控件,我做的是多线程采集多个设备,一个线程采集一个设备,当我运行程序的时候,只启动一个线程,程序正确,当启动两个的时候就出错了,错误提示:
109 The component must be Active for this operation.
下面是线程代码:
unit SnmpDataSampUnit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ipwcore, ipwsnmpmgr, ExtCtrls, DB, ADODB, comObj, ActiveX;

type
SnmpDataSamp = class(TThread)
private
{ Private declarations }
Fsnmp:tipwsnmpmgr;
Ftimer:ttimer;
Fsamptime:integer;
Fipaddress:string;
Fsnmpver:integer;//v1=1;v2c=2;v3=3;
FAdoConn:TADOConnection;
FADOQuery:TADOQuery;
procedure ontimer(sender:tobject);
procedure sampledata;
protected
procedure Execute; override;
destructor Destroy; override;
public
constructor create(ipaddress:string;fsamptime:integer;snmpver:integer;user:string;pw:string);
end;

implementation

{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,

procedure SnmpDataSamp.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

{ SnmpDataSamp }
constructor SnmpDataSamp.create(ipaddress:string;fsamptime:integer;snmpver:integer;user:string;pw:string);
begin
//-----------------------------------------------------------------------------//
FreeOnTerminate:=false;
Fsnmp:=tipwsnmpmgr.Create(nil);
Ftimer:=ttimer.Create(nil);
Ftimer.Interval:=fsamptime*1000;
ftimer.Enabled:=false;
fsnmp.RemoteHost:=ipaddress;
fsnmp.Community:='public';
if snmpver=1 then
begin
fsnmp.SNMPVersion:=TipwsnmpmgrSNMPVersions(1);
fsnmp.User:='';
fsnmp.Password:='';
end
else if snmpver=2 then
begin
fsnmp.SNMPVersion:=TipwsnmpmgrSNMPVersions(2);
fsnmp.User:='';
fsnmp.Password:='';
end
else begin
fsnmp.SNMPVersion:=TipwsnmpmgrSNMPVersions(3);
fsnmp.User:=user;
fsnmp.Password:=pw;
end;
//-----------------------------------------------------------------------------//
CoInitialize(nil);
FAdoConn:=TAdoconnection.Create(nil);
FAdoConn.LoginPrompt:=false;
FAdoConn.ConnectionString:='Provider=SQLOLEDB.1;Password=nmss;Persist Security Info=True;User ID=nmss;Initial Catalog=NMSD;Data Source=WTY';
FAdoQuery:=TAdoQuery.Create(nil);
FAdoQuery.Connection:=FAdoConn;
try
FAdoConn.Connected:=true;
except
showmessage('不能连接数据库!');
exit;
end;

//-----------------------------------------------------------------------------//
inherited create(false);
end;
//-----------------------------------------------------------------------------//
destructor SnmpDataSamp.Destroy;
begin
inherited destroy;
Fsnmp.Active:=false;
fsnmp.Free;
ftimer.Enabled:=false;
ftimer.Free;
CoUninitialize;
FAdoquery.Free;
FAdoconn.Connected:=false;
FAdoconn.Free;
end;
//-----------------------------------------------------------------------------//
procedure SnmpDataSamp.sampledata;
var
i:integer;
j,portcount,k:integer;
valuestr:tstrings;
timestr:string;
sqlstr:string;
begin
fsnmp.Active:=false;
try
timestr:=datetimetostr(now);
valuestr:=tstringlist.Create;
valuestr.Clear;
fsnmp.ObjCount:=1;
fsnmp.ObjId[1]:='1.3.6.1.2.1.2.1.0';

fsnmp.Active:=true;//

fsnmp.SendGetRequest;
portcount:=strtoint(fsnmp.ObjValue[1]);

fsnmp.Active:=false;//

i:=strtoint(fsnmp.ObjValue[1])*22;
fsnmp.ObjId[1]:='1.3.6.1.2.1.2.2';



while i>0 do
begin
fsnmp.Active:=true;///
fsnmp.SendGetNextRequest;
valuestr.Add(fsnmp.ObjValue[1]);
dec(i);
fsnmp.Active:=false;///
end;
for j:=0 to portcount-1 do
begin
////////////////////////////////////
sqlstr:='insert into datatable (ipaddress,dtstr,port,mtu,speed,portadstate,portoperstate,lastchange,inoctets,inucastpkts,innucastpkts,indiscards,inerrors,inunknownprotos,outoctets,outucastpkts,outnucastpkts,outdiscards,outerrors,outqlen)';
sqlstr:=sqlstr+' values('''+Fsnmp.RemoteHost+''',';
sqlstr:=sqlstr+''''+timestr+''',';
for k:=0 to 21 do
begin
if ((k=1) or (k=2) or (k=5) or (k=21)) then
continue
else begin
/////////////////////////////
if K<>20 then
sqlstr:=sqlstr+''''+valuestr.Strings[k*portcount+j]+''','
else sqlstr:=sqlstr+''''+valuestr.Strings[k*portcount+j]+''')';
end;
end;
///////////////////////////////
with Fadoquery do
begin
close;
sql.Clear;
sql.Text:=sqlstr;
Execsql;
end;
end;
finally
valuestr.Free;
end;

end;

//-----------------------------------------------------------------------------//
procedure SnmpDataSamp.ontimer(Sender:Tobject);
begin
Synchronize(sampledata);
end;

//-----------------------------------------------------------------------------//
procedure SnmpDataSamp.Execute;
begin
{ Place thread code here }
ftimer.OnTimer:=ontimer;
ftimer.Enabled:=true;
end;

end.
测试代码:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, SnmpDataSampUnit, StdCtrls, ipwcore, ipwsnmpmgr;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ipwSNMPMgr1: TipwSNMPMgr;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
snmp1,snmp2:snmpdatasamp;
implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
///
snmp1:=SnmpDataSamp.create('202.202.41.173',30,1,'','');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
////
snmp2:=SnmpDataSamp.create('202.202.41.175',30,1,'','');
end;

end.

[cqwty]

我写的上面的程序没有问题,我注释过数据库部分,错误同样的存在,但是这个错误只有在启动多个线程采集的时候 有,一个的时候没有,ipworks的109错误说的是我的控件的active属性没有设置成true,但是为什么只启动一个线程采集的时候是正确的,而启动两个或者两个线程的时候就报错了,我实在是不明白这是为什么了.我线程里面没一次都设置了active:=true的,不明白.

[pcfan123]

看不懂，帮你顶一个。

[jadeluo]

楼主能不能告诉我们：报错的是哪一行代码? 光让我们看代码，一下子很难找到问题的。

[jadeluo]

另外给个建议：为了缩小错误排查的范围，建议楼主先将数据写入数据库的部分全部代码注释掉。

[jinjazz]

ipworks这个控件的核心代码都看不到的,我写过一个snmpmgr控件,直接调用api函数实现的,功能相对简单了点,get,getnext,set和trap以及discovery,在v1下用了用还可以,不过不敢保证bug,所以一直没有发布

[caiso]

顶一下