Можно-ли получить значение таймера из WatForSingleObject ?

@Kuzya69 · Регистрация: 24.11.2012

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

Попробую пояснить, столь сумбурный заголовок темы.
У меня такой кусок кода (для простоты вопроса сократил лишнее).

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
.........
timeout:= 100;
Repeat
  wEv:= WaitForSingleObject(hObj, timeout);
  case wEv Of
    WAIT_OBJECT_0: if (A = B) then Break else timeout:= ?????;
    WAIT_FAILED: exit;
    WAIT_ABANDONED: exit;
    else Break;
  end;
Until(wEv = WAIT_TIMEOUT);
if (wEv = WAIT_OBJECT_0) then //нормальный код программы
                         else //нехорошая ситуация, отправляем на обработку ошибки
.........

Так вот в случае, помеченным вопросами, я хочу чтобы таймер запустился не опять со значения 100, а с оставшихся до истечения, уже запущенного в самом начале, таймера. Вот как мне узнать, сколько миллисекунд осталось до конца таймера в том месте кода?

@Joey · 11.03.2017, 20:29

Kuzya69, не нашел, можно ли это узнать. На случай, если никто не ответит на вопрос, скромно предположу (как вариант):
// считываем системное время
wEv:= WaitForSingleObject(hObj, timeout);
// опять считываем системное время - разница между ними и есть прошедшее время таймера.
Правда на таких мелких скоростях, как 100 мс, обращение к системному времени тоже может занять значительное время. Опишу как я сделал. Обычная TimeToStr не возвращает миллисекунды, поэтому использую uses Windows, и винАПИ функцию GetLocalTime:

Delphi
1
2
3
4
5
6
7
8
function FullTime: string; // функция для получения системного
//времени в полном виде - 22:10:51:364
var
  st: TSystemTime;
begin
  GetLocalTime(t);
  result := IntToStr(st.Hour) + ':' + IntToStr(st.Minute) + ':' + IntToStr(st.Second) + ':' + IntToStr(st.Millisecond);
end;

Но в Вашем случае нужно учитывать еще и перескок между секундами, минутами и т.д., например, если до WaitForSingleObject было 59 секунд и, скажем, 998 мс, то после будет уже 00 секунд и несколько миллисекунд, а еще и счетчик минут увеличится. Это все надо учесть вручную.

Но это так, грубый вариант на крайний случай. Прямого решения проблемы я не нашел

@Kuzya69 · 11.03.2017, 20:35 **[ТС]**

Примерно таким образом я и сделал, только использовал QueryPerformanceCounter и QueryPerformanceFrequency. Но некрасиво, как-то. Хочется какой-нибудь АПИ готовой сделать.

@cfbogd · 11.03.2017, 23:09

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

Delphi
1
2
3
var st: TSystemTime;
begin
GetLocalTime(t);

опечатка?

@wendstor · 12.03.2017, 01:17

дойдя до WaitForSingleObject управление передаётся хэндлу потока/мьютекса и т.д. на определённое время (которое вы установили вторым параметром) при этом текущий поток приостанавливается.

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

// считываем системное время
wEv:= WaitForSingleObject(hObj, timeout);

@Kuzya69 · 12.03.2017, 01:27 **[ТС]**

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

дойдя до WaitForSingleObject передаётся управление хэнлу потока/мьютекса и т.д. на определённое время (которое вы установили вторым параметром) при этом текущий поток приостанавливается.

Да все нормально. Автор имел ввиду

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

// считываем системное время (перед следующим оператором)
wEv:= WaitForSingleObject(hObj, timeout);
// опять считываем системное время(уже после предыдущего оператора)

В точках, которые помечены у него как "//", текущий поток еще и уже работает.
У меня подобный "костыль" но с другими АПИ работает, но это мне совсем не нравится.

@northener · 12.03.2017, 02:29

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

Так вот в случае, помеченным вопросами, я хочу чтобы таймер запустился не опять со значения 100, а с оставшихся до истечения, уже запущенного в самом начале, таймера.

А зачем? И о каком таймере идет речь?

@Kuzya69 · 12.03.2017, 02:37 **[ТС]**

Что-бы не отсчитывать заданный таймаут заново, а досчитать до конца.

Ну что-то отсчитывает таймаут при выполнении оператора:
wEv:= WaitForSingleObject(hObj, timeout);
Вот я для простоты и назвал его таймером.

@northener · 12.03.2017, 03:09

Тогда ещё раз зачем? Зачем в смысле нафига это нужно?

@Joey · 12.03.2017, 09:59

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

управление передаётся хэндлу потока/мьютекса

системное время не зависит от состояния потока

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

но это мне совсем не нравится

Согласен, костыль он и в Африке костыль

Убежденный · 12.03.2017, 10:36

Kuzya69, а может, тебе больше подойдет CreateWaitableTimer/SetWaitableTimer (WinAPI)?
Например, можно сделать periodic timer, который будет переходить в сигнальное состояние
каждые N секунд/миллисекунд. Т.е. в этом случае не нужно будет самому считывать показания
системного времени и вычислять, сколько времени прошло.

@Kuzya69 · 12.03.2017, 12:51 **[ТС]**

Тут смысл такой, я поставил event на появление в буфере приема устройства любых байт, отправил в устройство (в буфер передачи) запрос, и жду ответ. Если ответ пришел быстрее, чем отведенное для этого время (tmeout), то я проверяю ответ на правильность, если неверный, то продолжаю ждать по таймеру, ну а если верный, то обрабатываю. И соответственно не забываю про возможные ошибки. Ну а если таймер сработал, и ответа нет, то занимаюсь другими вычислениями.

@Joey · 12.03.2017, 14:44

Не по теме:

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

опечатка

ага(

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Kuzya69 40 / 3 / 1 Регистрация: 24.11.2012 Сообщений: 261
	11.03.2017, 20:35 [ТС]
	Примерно таким образом я и сделал, только использовал QueryPerformanceCounter и QueryPerformanceFrequency. Но некрасиво, как-то. Хочется какой-нибудь АПИ готовой сделать. 0

@Kuzya69 40 / 3 / 1 Регистрация: 24.11.2012 Сообщений: 261
	12.03.2017, 02:37 [ТС]
	Что-бы не отсчитывать заданный таймаут заново, а досчитать до конца. Ну что-то отсчитывает таймаут при выполнении оператора: wEv:= WaitForSingleObject(hObj, timeout); Вот я для простоты и назвал его таймером. 0

@northener пофигист широкого профиля 4769 / 3204 / 862 Регистрация: 15.07.2013 Сообщений: 18,608
	12.03.2017, 03:09
	Тогда ещё раз зачем? Зачем в смысле нафига это нужно? 0

Убежденный Ушел с форума 16481 / 7444 / 1187 Регистрация: 02.05.2013 Сообщений: 11,616 Записей в блоге: 1
	12.03.2017, 10:36
	Kuzya69, а может, тебе больше подойдет CreateWaitableTimer/SetWaitableTimer (WinAPI)? Например, можно сделать periodic timer, который будет переходить в сигнальное состояние каждые N секунд/миллисекунд. Т.е. в этом случае не нужно будет самому считывать показания системного времени и вычислять, сколько времени прошло. 0

@Kuzya69 40 / 3 / 1 Регистрация: 24.11.2012 Сообщений: 261
	12.03.2017, 12:51 [ТС]
	Тут смысл такой, я поставил event на появление в буфере приема устройства любых байт, отправил в устройство (в буфер передачи) запрос, и жду ответ. Если ответ пришел быстрее, чем отведенное для этого время (tmeout), то я проверяю ответ на правильность, если неверный, то продолжаю ждать по таймеру, ну а если верный, то обрабатываю. И соответственно не забываю про возможные ошибки. Ну а если таймер сработал, и ответа нет, то занимаюсь другими вычислениями. 0