Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Использование ADOConnection в сервисе [D7, WinXP]

Максим © (2008-08-20 10:40:00)
Добрых суток.
Пишу сервис, который отслеживал бы появление текстовых файлов в определенной директории. Затем обрабатывал эти файлы и заполнял таблицу в 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;
В чем может быть проблема?

Максим (2008-08-20 12:35:00) [1]
Ну убивать не нужно, а за указаные совершенные мною ошибки спасибо скажу.

Anatoly Podgoretsky (2008-08-20 11:52:00) [2]

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

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

Vlad Oshin (2008-08-20 11:08:00) [3]
CoInitialize(null или nil);

Vlad Oshin (2008-08-20 11:07:00) [4]
что-то там еще есть кажется, короче
yandex + ADO в консольном приложении

Максим (2008-08-20 11:06:00) [5]
Пробовал так. Не совсем понятно какие параметры и в каком случае.

Vlad Oshin (2008-08-20 11:01:00) [6]
CoInitializeEX;
//CoInitialize
try
ADOConnection.Connected := True;
LogToEventLog('Подключено',3);
except
on E:Exception do LogToEventLog('Не подключено'+E.message);
end;

Максим (2008-08-20 10:53:00) [7]
E.message
"Не был произведен вызов CoInitialize."

Vlad Oshin (2008-08-20 10:49:00) [8]
try
ADOConnection.Connected := True;
LogToEventLog('Подключено',3);
except
on E:Exception do LogToEventLog('Не подключено'+E.message);
end;

Наверх

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