Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

Как проинициализировать 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]

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



Страницы: 1 вся ветка

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
6-70420
Vovaka
2003-03-24 15:01
2003.05.22
Как получить имя домена в DNS, зная IP-адрес


14-70467
Wizard
2003-05-03 19:14
2003.05.22
Нужен компонент для реадактирования исходного кода с наворотами.


1-70257
qw
2003-05-12 11:56
2003.05.22
Services


14-70433
VEG
2003-04-30 00:35
2003.05.22
Сегодня у меня юбилей! Итоги, спасибы, размышления...


3-70135
Nikos
2003-04-30 14:20
2003.05.22
зависает программа