Индикация работы с записями в отдельном потоке

@Road_Runner · Регистрация: 06.10.2011

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

Всем доброго времени суток !

Имеется вот какая проблема работаю с большим кол-вом записей в БД во время работы процедур приложение как бы "зависает".

Для того чтобы пользователь не принял это за зависание программы хочу сделать индикацию через отдельный поток , но как это сделать не представляю возможным.

Подскажите пожалуйста!

quwy · 23.07.2014, 19:04

Зачем поток? После обработки каждых N записей или двигаем прогрессбар или просто рисуем анимацию.

@krapotkin · 24.07.2014, 10:12

quwy,
в этом случае приложение все равно висит, только прогресс бар и работает

нужно делать все в потоке, но каждые N записей обновлять progressbar через Synchronize

@Road_Runner · 24.07.2014, 12:10 **[ТС]**

krapotkin, это я понимаю ,но вот как это реализовать не представляю возможным.

Теорию по потокам(thread) я читал но что-то ничего не понял !

@krapotkin · 24.07.2014, 12:22

Road_Runner,
конкретика сильно зависит от используемой БД
чисто для наглядности

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
TMyThread=class(TThread)
  Query:TDataset;
  procedure Execute; override;
end;
 
procedure TMyThread.Execute;
var n:integer;
begin
  n:=0;
  while not (query.eof) do
  begin
    // что-то делаем
    ...
    inc(n);
    if n mod 100 = 0 then
       Synchronize(procedure begin Form1.progressbar1.position:=n end);
    query.next;
  end
end;
 
procedure TForm1.ThrTerminated(Sender:TObject);
begin
  showmessage('Поток завершился');
end;
 
....
  t:=TMyThread.Create(True);
  // вариант, если к-нить query создается в главном потоке
  t.query:=query;
  t.FreeOnTerminate:=true;
  t.OnTerminate := ThrTerminated;
  t.Start;

@Road_Runner · 24.07.2014, 12:33 **[ТС]**

krapotkin, БД Firebird в связке с IBDataset.
В принципе ход мыслей ясен .
Или же есть отличия для других БД ??

@krapotkin · 24.07.2014, 12:38

тонкость:
пока поток крутится, нельзя обращаться к FB из другого потока.
я обычно при создании потока в конструкторе вообще создаю отдельный Datamodule с отдельным соединением (Database)
тогда все ok

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

@Road_Runner 1 / 1 / 1 Регистрация: 06.10.2011 Сообщений: 43

	Индикация работы с записями в отдельном потоке 23.07.2014, 17:10. Показов 1430. Ответов 6 Метки нет (Все метки) Всем доброго времени суток ! Имеется вот какая проблема работаю с большим кол-вом записей в БД во время работы процедур приложение как бы "зависает". Для того чтобы пользователь не принял это за зависание программы хочу сделать индикацию через отдельный поток , но как это сделать не представляю возможным. Подскажите пожалуйста! 0

quwy Native x86 6859 / 3791 / 1026 Регистрация: 13.02.2013 Сообщений: 11,861
	23.07.2014, 19:04
	Зачем поток? После обработки каждых N записей или двигаем прогрессбар или просто рисуем анимацию. 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,672 Записей в блоге: 21
	24.07.2014, 10:12
	quwy, в этом случае приложение все равно висит, только прогресс бар и работает нужно делать все в потоке, но каждые N записей обновлять progressbar через Synchronize 1

@Road_Runner 1 / 1 / 1 Регистрация: 06.10.2011 Сообщений: 43
	24.07.2014, 12:10 [ТС]
	krapotkin, это я понимаю ,но вот как это реализовать не представляю возможным. Теорию по потокам(thread) я читал но что-то ничего не понял ! 0

@Road_Runner 1 / 1 / 1 Регистрация: 06.10.2011 Сообщений: 43
	24.07.2014, 12:33 [ТС]
	krapotkin, БД Firebird в связке с IBDataset. В принципе ход мыслей ясен . Или же есть отличия для других БД ?? 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,672 Записей в блоге: 21
	24.07.2014, 12:38
	тонкость: пока поток крутится, нельзя обращаться к FB из другого потока. я обычно при создании потока в конструкторе вообще создаю отдельный Datamodule с отдельным соединением (Database) тогда все ok 1

Индикация работы с записями в отдельном потоке

Решение