| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

BlackTiger ©   (2003-04-30 16:06:00) 

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

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

Код:

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


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

---

BlackTiger   (2003-04-30 17:38:00) [1]

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

---

sniknik   (2003-04-30 16:21:00) [2]

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

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();

---

Наверх