Как грамотно выполнить асинхронный ExecSQL в ODAC (Oracle)

← →
ANB © (2005-07-04 09:15) [0]

Сел перерабатывать свою прогу для асинхронного выполнения длительных запросов. Не очень хотелось бы уходить в отдельный поток, так как писать больше, проблемы с синхронизацией, плюс дублирование штатных средств. Нашел свойство NonBlocking. Если его включаешь, то запрос выполняеся асинхронно, можно ждать его окончания с помощью Executing и отменять запрос через BreakExec (все это на базе TOraQuery). Вылезла проблема - перестали генерится исключения в основном потоке, вместо этого стало выдаваться окно с ошибкой. Нашел в исходниках ODAC как это работает, перехватил Application.OnException, вроде работает, как надо.
Вопросы :
- правильно ли я все это сделал (нет ли способа красивее)
- как таким же образом переделать работу с TOraScript
Для TOraScript я попробовал подменить дейтасет на свой с включенным NonBlocking, но в результате получил только отключение исключений, а асинхронка все равно не работает.
Вижу 2 выхода - продолжать копаться в исходниках TOraScript или написать свою реализацию, тем более, что штатный ругается на некоторые скрипты, которые нормально выполняются в SQL Plus и TOAD (не любит пустые операторы из одних комментариев, не есть Exit)

← →
ANB © (2005-07-04 11:26) [1]

Накопал проблему - Executing отрабатывает некорректно. То есть запрос еще работает, а он возвращает False;

Как грамотно выполнить асинхронный ExecSQL в ODAC (Oracle) Найти похожие ветки