Форум программистов [Powered by Invision Power Board]

Код

{ 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;