Обработать в программе зависание при выполнении SQL запросов

@ne_virus · Регистрация: 31.03.2016

Author24 — интернет-сервис помощи студентам

Добрый день!

Есть в программе тяжелый SQL запрос, выполняющийся до нескольких десятков минут - в это время программа зависает и ждет окончания его выполнения (например если свернуть ее в этот момент - то развернуть уже не получится) ... можно ли, не используя потоки, добиться того что бы не было этого зависания? Не требуется полной работоспособности, достаточно просто отобразить сообщение "Выполняется запрос" или что то в таком духе и снять его по окончании выполнения запроса.

Delphi XE2. Компоненты использую TIB.

@droider · 24.05.2016, 08:14

Сообщение от ne_virus

можно ли, не используя потоки, добиться того что бы не было этого зависания?

Delphi

1	Application.ProcessMessages();

@ne_virus · 24.05.2016, 08:20 **[ТС]**

Сообщение от droider

Application.ProcessMessages();

Об этом я знаю. Но в обработчике какого события можно это использовать? "BeforeOpen" датасета выполняется до самого запроса, "AfterOpen" уже после . Проблема остается.

Или я что то упускаю?

@Hikari · 24.05.2016, 08:41

Сообщение от ne_virus

можно ли, не используя потоки, добиться того что бы не было этого зависания?

Боюсь что нет.

@HiredKiller · 24.05.2016, 09:22

очень простое использование потоков
компоненты в архиве (кинуть в папку с сурсом)
использовать примерно так:

Delphi

  private
    { Private declarations }
    // Идентификаторы запущенных задач для их остановки
    Task1: Cardinal;

Delphi

      
Task1 := EnterWorkerThread;
      try
        // Эта часть кода выполняется уже во вторичном потоке
//вставляем суда ваш код
      finally
        Task1 := 0;
        LeaveWorkerThread;
      end;

остановка потока

Delphi

  if Task1 <> 0 then
  begin
    Memo.Lines.Add('Задача 1: попытка остановки');
    AbortWorkerThread(Task1);
    Task1 := 0;
  end;

@ne_virus · 24.05.2016, 10:39 **[ТС]**

Всем спасибо. Жаль что без потоков все таки не обойтись...

Сообщение от HiredKiller

очень простое использование потоков ....

За это отдельная благодарность! Буду разбираться и пробовать.

@HiredKiller · 24.05.2016, 12:52

обращайтесь =)
все просто до безобразия

демку прикрепил

@ne_virus 0 / 0 / 0 Регистрация: 31.03.2016 Сообщений: 12
		1
	Обработать в программе зависание при выполнении SQL запросов 24.05.2016, 07:57. Показов 2628. Ответов 6 Метки нет (Все метки) Добрый день! Есть в программе тяжелый SQL запрос, выполняющийся до нескольких десятков минут - в это время программа зависает и ждет окончания его выполнения (например если свернуть ее в этот момент - то развернуть уже не получится) ... можно ли, не используя потоки, добиться того что бы не было этого зависания? Не требуется полной работоспособности, достаточно просто отобразить сообщение "Выполняется запрос" или что то в таком духе и снять его по окончании выполнения запроса. Delphi XE2. Компоненты использую TIB. 0

@ne_virus 0 / 0 / 0 Регистрация: 31.03.2016 Сообщений: 12
	24.05.2016, 08:20 [ТС]	3
	Сообщение от droider Application.ProcessMessages(); Об этом я знаю. Но в обработчике какого события можно это использовать? "BeforeOpen" датасета выполняется до самого запроса, "AfterOpen" уже после . Проблема остается. Или я что то упускаю? 0

@Hikari Хитрая блондиночка $) 1472 / 988 / 399 Регистрация: 21.12.2015 Сообщений: 3,785
	24.05.2016, 08:41	4
	Сообщение от ne_virus можно ли, не используя потоки, добиться того что бы не было этого зависания? Боюсь что нет. 1

@ne_virus 0 / 0 / 0 Регистрация: 31.03.2016 Сообщений: 12
	24.05.2016, 10:39 [ТС]	6
	Всем спасибо. Жаль что без потоков все таки не обойтись... Сообщение от HiredKiller очень простое использование потоков .... За это отдельная благодарность! Буду разбираться и пробовать. 0

	24.05.2016, 12:52

Опции темы

Обработать в программе зависание при выполнении SQL запросов

Решение