idTcpServer组件的CommandHandle之命令事件中如何写ADOQuery的代码，急!!!

Question

我写了后报coInitialize错误，如何解决，谢谢！

Answer 1

我的代码是这样的,谢谢!
adoQry.ConnectionString:=GlobalUnit.ConnLocalStr;
 adoQry.Active:=false;
 adoQry.Close;
 adoQry.SQL.Clear;
 adoQry.sql.text := SL; adoQry.active := true;
 adoQry.Open;
 adoQry.ExecSQL;
 RecordCount:=adoQry.RecordCount;

Answer 2

idTcpServer的处理是多线程的,
在每个线程中调用COM必须是要CoInitializeCoInitialize(nil);
try
  
  adoQry:=TAdoConnection.Create... //这儿必须要在本线程中动态创建
  adoQry.ConnectionString:=GlobalUnit.ConnLocalStr;  
  .....
  .....
  .....//数据库操作..  
  adoQry.free;
finally
  CoUnitialize;end