Как проинициализировать ADOConnection в сервисе?

← →
BlackTiger (2003-04-30 16:06) [0]

Этот вопрос возникал уже не раз, но никак не могу найти ссылку на эти ветки.

Помню только, что надо где-то вызвать CoInitialize. А вот в каком месте и с какими параметрами - не могу вспомнить или найти.

Код:
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean); begin Conn := TADOConnection.Create(nil); //<-умирает тут Conn.ConnectionString := SomeConnectionString; Conn.Open; end;

Люди! Помогите чем могЁте!

← →
sniknik (2003-04-30 16:21) [1]

ага, чёто типа

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
CoInitialize(nil);
Conn := TADOConnection.Create(nil); //<-пусть живет
Conn.ConnectionString := SomeConnectionString;
Conn.LoginPrompt:= false; <- тоже нужно
Conn.Open;
end;

и в конце не забыть CoUnInitialize();

← →
BlackTiger (2003-04-30 17:38) [2]

Премного благодарен, спасибо.

Как проинициализировать ADOConnection в сервисе? Найти похожие ветки