Я создаю многопоточное приложение-службу Windows в Delphi XE2, которое использует компоненты базы данных ADO для подключения к SQL Server.Я использовал CoInitialize(nil); много раз прежде внутри потоков, но в этом случае у меня есть функция, в которой я не уверен.
Эта функция называется TryConnect, которая пытается подключиться к базе данных с помощьюданная строка подключения.Возвращает true или false при успешном соединении.Проблема заключается в том, что эта функция будет использоваться как внутри, так и вне основного служебного потока, и она будет создавать собственный временный компонент TADOConnection, для которого требуется CoInitialize ...
. Мой вопрос:нужно также вызвать CoInitialize внутри этой функции?Если я это сделаю, и поскольку процедура выполнения службы также использует CoInitialize, будут ли они мешать, если я вызову эту функцию из службы?Функция TryConnect находится внутри объекта, который создан из основного сервисного потока (но в конечном итоге будет перемещен в свой собственный поток).Мне нужно знать, не помешает ли вызов CoInitialize() дважды из одного потока (и CoUninitialize) - и как правильно обработать этот сценарий.
Вот код ниже ...
//This is the service app's execute procedure
procedure TJDRMSvr.ServiceExecute(Sender: TService);
begin
try
CoInitialize(nil);
Startup;
try
while not Terminated do begin
DoSomeWork;
ServiceThread.ProcessRequests(False);
end;
finally
Cleanup;
CoUninitialize;
end;
except
on e: exception do begin
PostLog('EXCEPTION in Execute: '+e.Message);
end;
end;
end;
//TryConnect might be called from same service thread and another thread
function TDBPool.TryConnect(const AConnStr: String): Bool;
var
DB: TADOConnection; //Do I need CoInitialize in this function?
begin
Result:= False;
DB:= TADOConnection.Create(nil);
try
DB.LoginPrompt:= False;
DB.ConnectionString:= AConnStr;
try
DB.Connected:= True;
Result:= True;
except
on e: exception do begin
end;
end;
DB.Connected:= False;
finally
DB.Free;
end;
end;
Итак, чтобы уточнить, что он на самом деле делает, у меня может быть такой случай:
CoInitialize(nil);
try
CoInitialize(nil);
try
//Do some ADO work
finally
CoUninitialize;
end;
finally
CoUninitialize;
end;