VPF::TOracleSession.BreakExecution - Форум программистов

Budy

Дата 20.5.2011, 08:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: нет
Всего: 2

:Приветствую
В отдельном потоке в отдельной сессии TOracleSession выполняю долгий SELECT (порядка 7-10 минут). Это дает пользователю выполнять основные функции формы.
При FormClose проверяю, если поток еще живой, то пытаюсь его Free.

Код


{ TStatUpdaterThread }
  TStatsUpdaterThread = class(TThread)
  public
    procedure Free;
  private
    OracleSession: TOracleSession;
  protected
    procedure Execute; override;
  end;
...
SUT: TStatsUpdaterThread; // Поток для обновления статов
...
procedure TMainForm.FormDestroy(Sender: TObject);
begin
  // Остановка потока
  if (SUT <> nil) then
    SUT.Free;
end;
...
procedure TStatsUpdaterThread.Free;
begin
  try
    OracleSession.BreakExecution; // !! Запрос не останавливается
    OracleSession.LogOff; // !! Тут вылазит 3 эксепшна
  except
    // Ошибка при стопе
    on e: Exception do
      Log('Exception: TStatsUpdaterThread.OracleSession.LogOff::'+e.Message); // Просто логируется в файлик
  end;
  OracleSession.Free;
  // nil для объекта
  FreeAndNil(SUT);
end;

В редких случаях прога не убивается при закрытии, а просто прячется и висит, загружая проц до 100%.
На OracleSession.BreakExecution ничего не происходит, а OracleSession.LogOff грязно ругается.

Внимание, вопрос:
- Как можно "мягко" завершить выполнение операции?

Это сообщение отредактировал(а) Budy - 20.5.2011, 09:08

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »