Не получается заставить уснуть поток на нужное время

@Shakielpel · Регистрация: 04.05.2014

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

Delphi

procedure TMy.Execute;
var
  lT: Cardinal;
  Pause: integer;
begin
  lT := GetTickCount;
  while (not Terminated) do
  begin
    Arbaiten();//крутим в цикле процедуру
 
    Pause := ArbaitenPeriod - (GetTickCount - lT); //я хочу чтобы процедура выполнялась раз в  ArbaitenPeriod времени,
//ну например миллисекунд. Соответственно на разницу между этим периодом и реально прошедшим временем 
//выполнения процедуры, я пытаюсь усыпить поток.
    if Pause > 0 then
      sleep(Pause);
    lT := GetTickCount;
  end;
end;

Delphi

//а в начале функции Arbaiten, я ставлю проверку
if   ((TimeLastArbaiten + ArbaitenPeriod ) >= GetTickCount) then
begin
    //если мы сюда зашли, значит этот паразит не доспал
    exit;
end;
TimeLastArbaiten  := GetTickCount;

Так вот сколько я с этим не бьюсь, он не хочет спать ровно столько сколько мне надо, и вот в таком виде например конкретно не досыпает, что я делаю не так?

@FIL · 10.04.2015, 19:12

Ты расчет паузы ведешь относительно lT, а проверку делаешь относительно TimeLastArbaiten.
Кто сказал, что это эквивалентно?

Потом, нет гарантии, что sleep достаточно точно выдерживает заданные паузы.

Инициализация TimeLastArbaiten имеется?

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	10.04.2015, 19:12	2
	Ты расчет паузы ведешь относительно lT, а проверку делаешь относительно TimeLastArbaiten. Кто сказал, что это эквивалентно? Потом, нет гарантии, что sleep достаточно точно выдерживает заданные паузы. Инициализация TimeLastArbaiten имеется? 0

Опции темы