Понять причину задержки таймера в потоке

@Valimer · Регистрация: 29.03.2015

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
if pos('wait_30_sec',list.Text)>0 then
begin
addtxt(1,'Ждем '+Inttostr(strtoint(pars('u0437: <b>',list.Text,'<'))+1)+' сек');
form1.label16.Caption:= '0';
form1.timer1.Enabled:=true;
for i1:= 1 to (strtoint(pars('u0437: <b>',list.Text,'<'))+1)*1000 do
begin
application.ProcessMessages;
sleep(1);
end;
list.Text:= idhttp1.Get(pars('[',form1.memo1.Lines[i],'/goods')+'/order/'+pars('[',comment,']'));
end;
form1.timer1.Enabled:=false;
addtxt(1,'Скачиваем товар');

вот кусок кода, в 2 словах: Если в листе есть строка wait... тогда добавляем в мемо(через процедуру addtxt) строку ждем ... +1 секунд, дальше запускаем таймер, который каждую секунду обновляет в label цифру на 1 (простой таймер), число отслеживать задержку, дальше ждем sleep, после обновляем инфу по данной ссылке, выключаем таймер, проблема в том что в момент sleep таймер ждет не положенные допустим 27 секунд, а может ждать больше, причем гораздо больше таймер доходил до 114, кто-то может подсказать в чем причина?

@Valimer · 01.03.2018, 16:01 **[ТС]**

как сделать корректно ожидание в потоке?

@D1973 · 01.03.2018, 16:16

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

как сделать корректно ожидание в потоке?

Valimer, вот это должно было быть названием темы, а не прозвучать на 21 посте!
Для кого правила форума пишут?

п. 4.3 Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят

Ну и сага об XYZ...

@Valimer · 01.03.2018, 16:20 **[ТС]**

да название темы корректно, но вследствие выяснилась основная идея вопроса )

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

вот это должно было быть названием темы, а не прозвучать на 21 посте!

Добавлено через 2 минуты
хотя, нет некорректна)

@Valimer · 01.03.2018, 16:23 **[ТС]**

вроде бы решил проблему так, пока проблемы не заметил, всё ок

Delphi
1
2
3
4
5
6
7
8
9
10
11
if pos('wait_30_sec',list.Text)>0 then
begin
addtxt(1,'Ждем '+Inttostr(strtoint(pars('u0437: <b>',list.Text,'<'))+1)+' сек');
form1.label16.Caption:= '0';
for I1 := 0 to strtoint(pars('u0437: <b>',list.Text,'<')) do
begin
sleep(1000);
Form1.label16.Caption:= inttostr(strtoint(Form1.label16.Caption)+1);
end;
list.Text:= idhttp1.Get(pars('[',acclist[i],'/goods')+'/order/'+pars('[',comment,']'));
end;

@krapotkin · 01.03.2018, 16:23

вот в потоке и слипьте на здоровье )

@Valimer · 01.03.2018, 16:23 **[ТС]**

единственное что теперь нужно переделать что бы обращения к VLC не было

@krapotkin · 01.03.2018, 16:24

а если это код потока, то откуда тут Form1 ????

@Valimer · 01.03.2018, 16:25 **[ТС]**

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

а если это код потока, то откуда тут Form1 ????

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

единственное что теперь нужно переделать что бы обращения к VLC не было

так я выше написал, что исправить нужно

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке 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, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Valimer 7 / 6 / 1 Регистрация: 29.03.2015 Сообщений: 501
	01.03.2018, 16:01 [ТС]
	как сделать корректно ожидание в потоке? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	01.03.2018, 16:23
	вот в потоке и слипьте на здоровье ) 0

@Valimer 7 / 6 / 1 Регистрация: 29.03.2015 Сообщений: 501
	01.03.2018, 16:23 [ТС]
	единственное что теперь нужно переделать что бы обращения к VLC не было 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	01.03.2018, 16:24
	а если это код потока, то откуда тут Form1 ???? 0