Приостановка и возобновление потоков в Delphi

[Maestro]

При создании потока возникла такая проблема: мне необходимо, чтобы мой поток периодически останавливался и возобновлялся (интервал времени задается пользователем). Я пробовал создать таймер и управлять потоком оттуда, но поток, однажды запущенный, не хочет останавливаться (однако методы Suspend и Resume, привязанные к кнопкам, работают исправно).
Пробовал ставить внутри метода Execute циклы для задержки, но компьютер подвисает. Подскажите, пожалуйста, метод, с помощью которого можно периодически "отсоединять" поток от процессора так, чтобы система не тормозила.

[zubr]

Юзай WaitForSingleObject для остановки, к примеру, на событии (CreateEvent, SetEvent, ResetEvent).

[x77]

сказать потоку Suspend не проблема. проблема в том, чтобы сказать ему потом Resume, потому что из самого потока это сделать не удасться

тут есть два варианта. во-первых, управлять потоков внешне, из программы или из другого потока, который по команде запускает и останавливает его. во-вторых, в сам потоке организовать проверку некоего флага, типа

  if DoJob then begin
    ...
  end else
    Application.ProcessMessages;

таким образом, взводя и сбрасывая флаг DoJob, можно заставить поток делать или не делать какую-то полезную работу. (сомневаюсь, насчёт ProcessMessages, они там не нужны, скорее всего, это больше для "полноты картины")

[SEA]

Just in Thread's Execute method do sleep(1000). ))) Simple and strong)

[RXL]

SEA, полнее можно?

[SEA]

Для того, чтобы внутри потока работающий бесконечный цикл не вешал машину, создай там в теле цикла задержку, "засыпание" потока. Вот, например:

Код:

while true do //бесконечный цикл в теле твоего потока
begin
  something(); //выполняем некоторые действия...
  somethingyet(); //выполняем еще некоторые действия... Все, что тебе нужно. 
  
  sleep(1000);//усыпляем поток на 1 секунду = 1000 мс. Пока поток будет "спать", выполнятся другие задачи других потоков...
end;

[SEA]

Во, в тему: вместо sleep(1000) пишешь туда тот интервал, который задал пользователь.

[Алексей++]

достаточно даже Sleep(1) , чтобы заметно разгрузить процессор. (Хотя, это равнозначно ~ Sleep(16) , меньше пауза делаться не желает)

[SEA]

Я тестировал - у меня стабильно наименьший слип - 41. )))