本人最近正在进行呼叫中心的座席端和服务器软件 开发 ，座席端登录部分是进行提取主机信息，然后 使用 SOCKET提交给远程服务器，服务器再在后台 数据库 中进行查找信息，进行对比，看是否允许座席端主机登录，因为我的电脑中无法安装SQLSERVER，所以 ，后台
本人最近正在进行呼叫中心的座席端和服务器软件 开发 ，座席端登录部分是进行提取主机信息，然后 使用 SOCKET提交给远程服务器，服务器再在后台 数据库 中进行查找信息，进行对比，看是否允许座席端主机登录，因为我的电脑中无法安装SQLSERVER，所以 ，后台 数据库 暂时 使用 access小型 数据库 进行代替，到后期可以改为SQLSERVER 数据库 ，，我在后台 数据库 中 使用 了两个表， 使用 WORKMARK字段将其相关联，如果在第一个表中查找到信息以后马上会进入第二个表中进行查找，如果第一个表中的信息符合，就返回个客户第二个表中的信息，因为座席端主机有200多台，为了防止几台主机同时进行验证信息，引起冲突，我在服务器端建立多线程，利用线程进行后台的查询，以及查找结果的回传，编写成功后进行测试，发现当一个主机连接后可以测试成功，但是，当第二个或者以后的线程产生时，数据集在第一个表中可以查到正确的信息，但是进入第二个表中时，会发现按照正确的查找条件进行查找时，查到的信息都为NIL，而且经过跟踪，发现，其实ADO已经找到了正确的信息，而且已经发送成功了，但是却无法接收到，当时我在论坛中发表了一个帖子寻求帮助，原贴内容：http://expert.csdn.net/Expert/topic/1420/1420051.xml?temp=.3060114
有些朋友说可能ACCESS 数据库 不提供多线程 访问 ，但是我听说很多的论坛中好像都 使用 了ACCESS进行后台线程的查找的。翻看MSDN中关于COM的说明：发现我的线程中竟然缺少最重要的两个函数过程
CoInitialize( nil )；凡是 访问 com对象都应该 使用 。线程的关闭时应该 使用 CoUnInitialize;否则ADO肯定出错，我相信肯定有不少的朋友经历过这种问题的：
我的线程代码如下：
unit Unitquerythread;
interface
uses windows,SysUtils,Classes, Dialogs,ADODB,db, NMMSG, ActiveX{ 必须要有};
type QueryThread = class(TThread) PRivate FComputerInfor,Fipaddressinfo: string; //传递的信息 FAdoQuery,FAdoQUserInfor:TadoQuery; //动态生成的表一,表2 Fadoconnection:Tadoconnection; //动态生成的连接 Fnmmsg,FNMretureMSG:TNMMSG;//用来发送返回信息的组件 filestream:tfilestream; procedure ExtractInfor(TransInfo:string{自定义的从该提交信息中分离信息的过程}); procedure ShellexeQuery; Destructor Destroy;
protected procedure Execute; override; public constructor create(ComputerInfor:string;{传输来的计算机信息}IPaddressinfo:string{传输来的IP地址信息};nmmsg,NMretureMSG:TNMMSG); end; var ExtractDomainUser:string; //提取出来的域用户名 ExtractComputername:string;//提取出来的计算机名称 ExtractDomainname:string;//提取出来的域名 strlist:Tstringlist; IPlist:Tstringlist;//保存查找到的本工作组的ip地址信息 const defeat='defeat'; //验证失败，必须注销客户机，在 数据库 中重新进行写入
implementation
uses Unitsendthread;
constructor QueryThread.create(ComputerInfor, IPaddressinfo: string;nmmsg,NMretureMSG:TNMMSG); begin CoInitialize( nil );// 使用 com对象必须要初始化 inherited create(false); FreeOnTerminate:=true; FComputerInfor:=ComputerInfor; FIPaddressinfo:=IPaddressinfo; IPlist:=Tstringlist.create;//创造ip列表 FAdoQuery:=TAdoQuery.Create(nil); //动态生成表一 FAdoQUserInfor:=TadoQuery.Create(nil);//动态生成表2 Fadoconnection:=Tadoconnection.Create(nil);//动态生成的连接 Fadoconnection.LoginPrompt :=false; Fadoconnection.KeepConnection :=true; Fadoquery.Connection:=Fadoconnection; FAdoQUserInfor.Connection :=Fadoconnection; Fadoconnection.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=PersonInformation.mdb;Mode=Read;Persist Security Info=False';
Fnmmsg:=nmmsg; FNMretureMSG:=NMretureMSG; strlist:=Tstringlist.Create; end;
destructor QueryThread.Destroy; begin FAdoQuery.FREE; FAdoQUserInfor.FREE; Fadoconnection.Free; strlist.Free; iplist.free; CoUnInitialize;// 必须 使用 inherited destroy; end;
procedure QueryThread.Execute; begin
try begin extractinfor(FComputerInfor); //进行信息提取 Synchronize(ShellexeQuery);// end; except
self.Terminate;
end;
end;
procedure QueryThread.ExtractInfor(TransInfo: string);//改过程进行提取用#进行分割//的串里的各个字符串 integer; j:array [1..2]of integer; //用 来保存分割符的位置 H,L,M,N:integer;//进行组合字符串时的循环参数
begin 全局变量，首先清空 ExtractDomainUser:=''; ExtractDomainname:=''; ExtractComputername:=''; H:=1;
//================================= try begin for i := 1 to length(TransInfo) do
if TransInfo[i]='#' then //找到了 begin j[H]:=i; inc(H); continue; //跳出循环 end;
BEGIN for L:=1 to j[1]-1 do ExtractDomainUser:=ExtractDomainUser+TransInfo[L]; //提取的登陆域用户名 ://showmessage(extractdomainuser); for M:=j[1]+1 to j[2]-1 do ExtractDomainname:=ExtractDomainname+TransInfo[M];//提取的域控制器名 //showmessage(extractdomainname); for N:=j[2]+1 to length(trim(TransInfo)) do ExtractComputername:=ExtractComputername+Transinfo[N];//提取的计算机名 //showmessage(extractcomputername); END; end;//进行异常处理 Except // messagebox(0,'信息提取出现错误！','提示信息',mb_iconinformation); end; end; //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// procedure QueryThread.ShellexeQuery; var mark:string; //保存查找到的工号信息 SkillInfor:string; RetureInformation:string; //返回个客户端的信息 WorkGroupUserInfor:Tstringlist; filename:string;
begin try begin FAdoQuery.Close; Fadoquery.SQL.Clear; FAdoQuery.SQL.Add ('SELECT * From LOGON WHERE DomainUser='+'"'+ExtractDomainUser+'"'+'and DomainName='+'"'+ExtractDomainname+'"'+'and ComputerName='+'"'+ExtractComputername+'"'+'and IPaddress='+'"'+FIPaddressinfo+'"'); FAdoQuery.Prepared :=true; FAdoQuery.active:=true; file://===================================================================== if (FAdoQuery.fieldbyname('WorkMark').asstring ='') or (FAdoQuery.fieldbyname('Privilege').asstring='') then //没有查到工号信息 begin
Fnmmsg.Disconnect; Fnmmsg.Host:=FIPaddressinfo; Fnmmsg.Port :=6711; Fnmmsg.FromName :='a'; Fnmmsg.PostIt(defeat); //没有找到权限和工号则发送错误消息 FAdoQuery.active:=false; end
else //查询到了工号,和权限信息 ，从阶连表中得到所有信息 //@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ begin
strlist.Clear; strlist.Add(FAdoQuery.fieldbyname('WorkMark').asstring);//把工号写入 mark:=FAdoQuery.fieldbyname('WorkMark').asstring; //将工号写入mark临时变量
FAdoQuery.close; //关闭第一个数据集 //===========进入第二个表进行查找=============================================== with FAdoQUserInfor do begin if active =true then close; //关闭数据集 sql.Clear;
sql.Add('Select * From WORKER Where WorkMark='+'"'+mark+'"'); //该部分可能要求具体化内容 Prepared :=true; open; //连接第二个线程时这里出现问题
if (fieldbyname('Phone').asstring='')or (fieldbyname('Name').asstring='')or (fieldbyname('SkillLevel').asstring='')then begin showmessage('nil'); Fnmmsg.Disconnect; Fnmmsg.Host:= FIPaddressinfo; Fnmmsg.Port :=6711; Fnmmsg.FromName :='b'; Fnmmsg.PostIt(defeat); //发送错误消息 close; end
else //如果找到了电话号码 begin
strlist.add(fieldbyname('Name').asstring); //写入姓名 SkillInfor:=fieldbyname('SkillGroup').asstring; strlist.add(fieldbyname('SkillGroup').asstring+'业务处理='+fieldbyname('SkillLevel').asstring); //上海市业务处理=1 strlist.Add(fieldbyname('Phone').asstring); //写入电话号码 RetureInformation :=strlist.Strings[0]{工号}+'#'+strlist.Strings[1]{姓名}+'#'+strlist.Strings[2]+'#'{技能信息}+strlist.strings[3]{电话号码}; //edit; //烦会给客户端的信息 // fieldbyname('IsLogon').asstring:='1'; //登录成功，写入成功标志 // Post;
FNMretureMSG.Disconnect; FNMretureMSG.Host :=FIPaddressinfo; FNMretureMSG.Port:=6722; //回传信息远程端口为6722； FNMretureMSG.PostIt(RetureInformation); //返回成功的信息
/??????????????????????????????? {进行查询工作组信息，然后传送信息} if active =true then close; sql.clear; SQL.Add('SELECT * FROM WORKER WHERE SkillGroup='+'"'+SkillInfor+'"'); open; WorkGroupUserInfor:=Tstringlist.create;
while not eof do begin WorkGroupUserInfor.Add(fieldByName('Name').asstring ); {index0 name} WorkGroupUserInfor.Add(fieldByName('WorkMark').asstring ); {index1 workmark} WorkGroupUserInfor.Add(fieldByName('Phone').asstring ); {index2 Phone} WorkGroupUserInfor.Add(fieldByName('SkillGroup').asstring +'业务处理='+fieldbyname('SkillLevel').asstring);{index3 SkillGroup} IPlist.Add(fieldbyname('IPaddress').asstring); ://所有的ip地址保留到内存中 //showmessage(fieldbyname('IPaddress').asstring); iplist.SaveToFile (fieldByName('SkillGroup').asstring+'IPlst.INI'); next; end; WorkGroupUserInfor.SaveToFile(fieldByName('SkillGroup').asstring+'.ini'); close; end; end; end; end; except //防止查询失败 begin FAdoQuery.close; FAdoQUserInfor.close; end; end;
end;
end. 注意： 使用 这两个函数应该加上activex.pas单元，否则，无法运行。
我个人认为，如果 开发 基于ADO的多线程操作，最好在每个线程中放置一个连接，而数据集和数据连接都 使用 动态生成，当然你必须要注意必须要保证线程能过正常的释放，否则你的电脑很快就快死机了，呵呵，当然还有第二种方法，你可以生成一个数据模块，静态放置数据集和ADOCONNECTION组件，然后使该数据模块不在程序开始时生成，而可以在线程中动态的生成，这种方法也可以，有兴趣的朋友可以试一下二者之间的执行效率。
而对于ADO，我认为在开始情况下，如果不初始函数和后来的释放函数，却不能报错，应该是一个BUG吧。
查看更多关于使用ADO，多线程访问ACCESS数据库的开发。的详细内容...