Форум: "Базы";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
ВнизКак проинициализировать 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c