Использование ADOConnection в сервисе

← →
Максим (2008-08-20 10:40) [0]

Добрых суток.
Пишу сервис, который отслеживал бы появление текстовых файлов в определенной директории. Затем обрабатывал эти файлы и заполнял таблицу в MS SQL 2000.
На форме сервиса расположен компонент ADOConnection

При запуске сервиса делаю следующиее:

procedure tFLService.servicestart(sender: tservice; var started: boolean); begin try ADOConnection.Connected := True; LogToEventLog("Подключено",3); except LogToEventLog("Не подключено"); end; started := true; end;

После запуска вываливается сообщение "Не подключено". Следовательно, возникает ошибка при выполнении ADOConnection.Connected := True;
В чем может быть проблема?

← →
Vlad Oshin © (2008-08-20 10:49) [1]

try
ADOConnection.Connected := True;
LogToEventLog("Подключено",3);
except
on E:Exception do LogToEventLog("Не подключено"+E.message);
end;

← →
Максим (2008-08-20 10:53) [2]

E.message
"Не был произведен вызов CoInitialize."

← →
Vlad Oshin © (2008-08-20 11:01) [3]

CoInitializeEX;
//CoInitialize
try
ADOConnection.Connected := True;
LogToEventLog("Подключено",3);
except
on E:Exception do LogToEventLog("Не подключено"+E.message);
end;

← →
Максим (2008-08-20 11:06) [4]

Пробовал так. Не совсем понятно какие параметры и в каком случае.

← →
Vlad Oshin © (2008-08-20 11:07) [5]

что-то там еще есть кажется, короче
yandex + ADO в консольном приложении

CoInitialize(null или nil);

> except
> LogToEventLog("Не подключено");
> end

Убивать за подобное.
http://www.podgoretsky.com/OtherParts/DM/BadWill.aspx (4)

← →
Максим (2008-08-20 12:35) [8]

Ну убивать не нужно, а за указаные совершенные мною ошибки спасибо скажу.

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