delphi写windows服务程序使用unidac连接sqlserver2000时报错OLE DB error occured. Code 800401F0h

delphi写windows程序使用unidac连接sqlserver2000时报错OLE DB error occured. Code 800401F0h查资料后，搜到如下解决方法：

服务单元引入activex单元，然后在服务执行函数中加入

CoInitializeEx(NIL,COINIT_MULTITHREADED);

CoUnInitialize; 

procedure TService.ServiceExecute(Sender: TService); 

begin 

CoInitializeEx(NIL,COINIT_MULTITHREADED);

.. 

// your code 

..

CoUnInitialize; 

end;

 

另外这两天用多线程调用c#的动态库，发现在线程的执行过程里边也要做上述处理，不然会报com未初始化的错误

procedure TFindThread.Execute;

var

  lobj: TTFindImage;

  isFind: boolean;

begin

  CoInitializeEx(nil,0);

  FLog.add('线程' + inttostr(FIdx) + '开始执行');

  FLog.Add('大图：' + FBigImg);

  FLog.Add('小图：' + FLittleImg);

  lobj := TTFindImage.Create(nil);

  isFind := (lobj.DefaultInterface as IFindImage).FindPostion(FBigImg, FLittleImg, '', 0);

  if isFind then FLog.Add('线程' + inttostr(FIdx) + '定位到小图')

  else FLog.Add('线程' + inttostr(FIdx) + '未定位到小图');

  FLog.add('线程' + inttostr(FIdx) + '执行结束');

 lobj := nil;

  CoUnInitialize;

end;