Поток подвешивает форму

@SatanaXIII · Регистрация: 01.11.2011

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

Господа, что-то я явно делаю не правильно, а что никак не пойму.
В основной форме, по кнопке создаю поток

C++
1
2
void __fastcall TFormPlan::Button1Click(TObject *Sender)
{Thr1 = new ThreadMove(false);}

в котором, через Synchronize запускаю длинный цикл. В цикле ставлю Sleep(1). При нажатии на кнопку форма передает управление потоку, и пока тот не завершится, обратно управление не принимает. Хотя по логике должна в момент Sleep-а. Или как?

Добавлено через 34 минуты
И если я одновременно создам два таких потока, то они должны выполняться параллельно. В этом их и суть. А не ждать пока завершится первый.

@SatanaXIII · 03.07.2012, 16:58 **[ТС]**

Avazart, может быть действительно у меня где-то корявый алгоритм, но я вон приводил в примере, что при выполнении первого потока при движении лейбла вправо, если запустить второй поток, то второй лейбл уползет на лишние 200 пикселей далее. А если не запускать первый поток, то не уползает. Зависимость на лицо.
И это только один из примеров. Я замечал и другие странности, которые конечно очень легко объяснить просто отсутствием синхронизации, но только вот непонятно, что с этим делать.

@Avazart · 03.07.2012, 18:45

Ну так должно быть.Непойму что не устраивает.
Каждый поток сдвигает лэбел на 200 вот тебе 200+200

Добавлено через 1 час 41 минуту
Например код

C++
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
__fastcall TMyThread::TMyThread(bool CreateSuspended,int i)
    : TThread(CreateSuspended)
{
this->i= i;
FreeOnTerminate = true;
}
//---------------------------------------------------------------------------
void __fastcall TMyThread::Execute()
{
for(int i=0; i<200; i++)
  {
  Synchronize(&Move);
  Sleep(10);
  }
}
//---------------------------------------------------------------------------
void __fastcall TMyThread::Move()
{
if(i==1) Form1->Label1->Left++;
if(i==2) Form1->Label1->Top++;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMyThread *Thread1 = new TMyThread(false,1);
TMyThread *Thread2 = new TMyThread(false,2);
}
//---------------------------------------------------------------------------

Работает нормально без подвисаний.
Лэйбел плавно двигается по диагонали вниз-вправо.

@SatanaXIII · 06.07.2012, 09:03 **[ТС]**

Только у меня там два разных лейбла двигаются:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
if(i==1)
for(int i=0;i<200;i++)
  {
  Form3->Label1->Left += 1;
  Form3->Update();
  Sleep(10);
  }
 
if(i==2)
for(int i=0;i<200;i++)
  {
  Form3->Label2->Left += 1;
  Form3->Update();
  Sleep(10);
  }

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

Каждый поток сдвигает лэбел на 200 вот тебе 200+200

Первый поток сдвигает Label1, а второй соответственно Label2. И у второго вот эти вот 200+200 быть не должны. А есть.

@Avazart · 06.07.2012, 20:52

Нормально работает...

C++
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
33
34
35
//---------------------------------------------------------------------------
__fastcall MyThread::MyThread(bool CreateSuspended,int N)
    : TThread(CreateSuspended)
{
this->N= N;
FreeOnTerminate = true;
}
//---------------------------------------------------------------------------
void __fastcall MyThread::Execute()
{
if(N==1)
for(int i=0;i<200;i++)
  {
   Synchronize(&Move1);
   Sleep(10);
  }
 
if(N==2)
for(int i=0;i<200;i++)
  {
   Synchronize(&Move2);
   Sleep(10);
  }
}
//---------------------------------------------------------------------------
void __fastcall MyThread::Move1()
{
 Form1->Label1->Left ++;
}
//---------------------------------------------------------------------------
void __fastcall MyThread::Move2()
{
 Form1->Label2->Left ++;
}
//---------------------------------------------------------------------------

@SatanaXIII · 10.07.2012, 13:32 **[ТС]**

Уважаемый Avazart... не знаю даже с чего начать. В общем из-за тех глюков, которые я у себя наблюдал, мне показалось, что наиболее правильным решением будет переписать все в один поток. Так как один поток обращается к одной же форме и делить ее ни с кем не надо. Но в результате, из-за огромного количества всевозможных проверок и действий, поток так разросся, что оптимизировать его уже не представляется возможным. Как следствие жутчайшие тормоза.

Вся разница в приведенном вами метода и тем, что пытался изобразить я, лишь в том, что в методе Execute потока у меня выполняется одна синхронизированная функция, содержащая проверки условий и прочее, а у вас сама проверка происходит непосредственно в теле метода Execute, а действия с формами в отдельных (нескольких!) функциях.

Имеет ли мне смысл переписывать свою программу обратно под многопоточность (именно как вы предложили) или я получу тоже самое? Или хз?

@BRcr · 10.07.2012, 15:08

Да какая разница, сколько потоков будут эти две метки двигать? Хоть десятью можно, так-то.

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

@Avazart · 10.07.2012, 17:00

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

Вся разница в приведенном вами метода и тем, что пытался изобразить я, лишь в том, что в методе Execute потока у меня выполняется одна синхронизированная функция, содержащая проверки условий и прочее, а у вас сама проверка происходит непосредственно в теле метода Execute, а действия с формами в отдельных (нескольких!) функциях.

Ну это глупо Я говорю- не правильный алгоритм, не стоит сувать в синхроназ все папала, а вы все равно пытаетесь его заставить работать.

@SatanaXIII · 11.07.2012, 12:15 **[ТС]**

Да не. Там не две метки. )) Это просто пример был. Но как выяснилось даже в нем я накосячил. И всего лишь надо было разнести по функциям действия с разными объектами (хотя я до сих пор не понимаю почему это сработало). В моей программе присутствуют такие тяжеловесные конструкции как перебор всех элементов формы, парсеры их имен и запихивание/считывание всего этого дела в структуры. Да и еще парочка потоков рядом постоянно пытаются на себя переманить ресурсы. Повыкидывал откуда смог Form->Update, - стало получше, объекты перемещаются не с такими тормозами, но зато стали самопроизвольно телепортироваться.

Вот я и думаю, мож если б переписать как я хотел изначально, но с учетом вашего варианта исполнения, то мож заработало б как планировалось.

Добавлено через 39 секунд
Avazart, так, ладно. А как бы вы сделали?

Добавлено через 19 часов 13 минут

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

не стоит сувать в синхроназ все папала

Суть моего последнего вопроса - как лучше/правильнее (быстрее чтоб работало) сделать - разбить тело потока на множество функций и засунуть их в каждую в свой метод синхронизации, или так же побить поток на отдельные функции и вынести из них все, что можно в сам метод Execute, оставив под синхронизацией только то, что ссылается на какие-либо внешние данные относительно потока?

@BRcr · 11.07.2012, 16:24

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

побить поток на отдельные функции и вынести из них все, что можно в сам метод Execute, оставив под синхронизацией только то, что ссылается на какие-либо внешние данные относительно потока

В точку.

@SatanaXIII · 12.07.2012, 10:49 **[ТС]**

Спасибо, добрый человек.

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	03.07.2012, 16:58 [ТС]
	Avazart, может быть действительно у меня где-то корявый алгоритм, но я вон приводил в примере, что при выполнении первого потока при движении лейбла вправо, если запустить второй поток, то второй лейбл уползет на лишние 200 пикселей далее. А если не запускать первый поток, то не уползает. Зависимость на лицо. И это только один из примеров. Я замечал и другие странности, которые конечно очень легко объяснить просто отсутствием синхронизации, но только вот непонятно, что с этим делать. 0

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	10.07.2012, 13:32 [ТС]
	Уважаемый Avazart... не знаю даже с чего начать. В общем из-за тех глюков, которые я у себя наблюдал, мне показалось, что наиболее правильным решением будет переписать все в один поток. Так как один поток обращается к одной же форме и делить ее ни с кем не надо. Но в результате, из-за огромного количества всевозможных проверок и действий, поток так разросся, что оптимизировать его уже не представляется возможным. Как следствие жутчайшие тормоза. Вся разница в приведенном вами метода и тем, что пытался изобразить я, лишь в том, что в методе Execute потока у меня выполняется одна синхронизированная функция, содержащая проверки условий и прочее, а у вас сама проверка происходит непосредственно в теле метода Execute, а действия с формами в отдельных (нескольких!) функциях. Имеет ли мне смысл переписывать свою программу обратно под многопоточность (именно как вы предложили) или я получу тоже самое? Или хз? 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	10.07.2012, 15:08
	Да какая разница, сколько потоков будут эти две метки двигать? Хоть десятью можно, так-то. Чтоб много не менять, сделай так, чтобы за одну итерацию цикла потока обе метки сдвигались на единичку. Собственно, и все. 0

@SatanaXIII Почетный модератор 5851 / 2862 / 392 Регистрация: 01.11.2011 Сообщений: 6,906
	12.07.2012, 10:49 [ТС]
	Спасибо, добрый человек. 0