Скачать: CL | DM;

Использование 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 в консольном приложении

---

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

CoInitialize(null или nil);

---

← →
Anatoly Podgoretsky ©   (2008-08-20 11:52) [7]

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

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c