Как грамотно выполнить асинхронный ExecSQL в ODAC (Oracle) [D7]
ANB © (2005-07-04 09:15:00)
Сел перерабатывать свою прогу для асинхронного выполнения
длительных запросов. Не очень хотелось бы уходить в отдельный
поток, так как писать больше, проблемы с синхронизацией, плюс
дублирование штатных средств. Нашел свойство NonBlocking. Если его
включаешь, то запрос выполняеся асинхронно, можно ждать его
окончания с помощью Executing и отменять запрос через BreakExec
(все это на базе TOraQuery). Вылезла проблема - перестали генерится
исключения в основном потоке, вместо этого стало выдаваться окно с
ошибкой. Нашел в исходниках ODAC как это работает, перехватил
Application.OnException, вроде работает, как надо.
Вопросы :
- правильно ли я все это сделал (нет ли способа красивее)
- как таким же образом переделать работу с TOraScript
Для TOraScript я попробовал подменить дейтасет на свой с
включенным NonBlocking, но в результате получил только отключение
исключений, а асинхронка все равно не работает.
Вижу 2 выхода - продолжать копаться в исходниках TOraScript
или написать свою реализацию, тем более, что штатный ругается на
некоторые скрипты, которые нормально выполняются в SQL Plus и TOAD
(не любит пустые операторы из одних комментариев, не есть
Exit)
ANB (2005-07-04 11:26:00) [1]
Накопал проблему - Executing отрабатывает некорректно. То есть
запрос еще работает, а он возвращает False;
Наверх 
ЧАТ |
Орешник |
|
