服务程序中如何执行查询

[lzg827]

用Delphi写了个服务程序。需要定时执行些数据库操作。
在ServiceExecute中直接写了数据库的操作，起服务后报异常错误。去掉问题代码后，正常。但是也了我需要的操作。
如何解决？代码如下
服务程序中定义了如下控件

TFrm= class(TService)
ADOConn: TADOConnection;
ADOCmd: TADOCommand;
ADOQry: TADOQuery;

……

procedure TFrm.ServiceExecute(Sender: TService);
var
tem:string;
begin
while not Terminated do
begin
Sleep(5000);
tem :='test';
tem := GetValueNoPar('select count(1) as R from airline_pay'); //执行查询操作。加上这句就出问题
SaveDIYLog(tem,'Sys.log',True); //操作写入日志
ServiceThread.ProcessRequests(False);
end;
end;

function TFrm.GetValueNoPar(SQL: string): string;
var
TemDataSet: TADOQuery;
begin
TemDataSet := TADOQuery.Create(nil);
try
TemDataSet.Connection := ADOConn;
TemDataSet.Close;
TemDataSet.SQL.Text := SQL;
TemDataSet.Open;
Result := TemDataSet.FieldByName('R').AsString;
finally
TemDataSet.Free;
end;
end;

[diecode]

错误信息是什么？

[haitao]

需要coinit....

[lzg827]

[Quote=引用 5 楼 m617105 的回复:]
初始化时：
CoInitialize(nil);
退出时：
CoUnInitialize;
[/Quote]

m617105大侠
可否结合我的程序再说详细一点。具体放的位置在哪里？
我记得这两句是写多线程时经常用的。
非常感谢~~

[lzg827]

[Quote=引用 6 楼 lzg827 的回复:]
引用 5 楼 m617105 的回复:
初始化时：
CoInitialize(nil);
退出时：
CoUnInitialize;


m617105大侠
可否结合我的程序再说详细一点。具体放的位置在哪里？
我记得这两句是写多线程时经常用的。
非常感谢~~
[/Quote]

试出来了
procedure THFControlSystem.ServiceExecute(Sender: TService);
var
tem:string;
begin
while not Terminated do
begin
Sleep(5000);
CoInitialize(nil); //这里，就是这里

tem :='test';
tem := TemConnGetValueNoPar('select count(1) as R from table);
CoUnInitialize;//这里，就是这里

SaveDIYLog(tem,'Sys.log',True);
ServiceThread.ProcessRequests(False);

end;
end;

服务程序本身就是起了线程的。感谢楼上各位。结贴放分了。

[lzg827]

to diecode:
提示如下
应用程序发生异常 未知的软件异常（0x0eeddfade），位置为0x7c812afb

to sz_haitao：
能否再说详细一点？coinit....是神马？

[浩南_哥]

初始化时：
CoInitialize(nil);
退出时：
CoUnInitialize;