Контролируемый Sleep потока.

[Человек_Борща]

Доброго времени суток!

Имеется поток(TThread в Delphi, навесной класс для CreateThread из набора функций винды).
Поток работает от начала старта программы и до её завершения, без перерыва и остановок(Suspend, Resume).
Проблема в том, что серверу нужно отдохнуть от запросов т.к. программа будет популярна и сис. админы будут отдавать сотни ненависти к тому, кто дал юзерам возможность засорять канал сервера постоянной передачей POST|GET запросов с 50% возможностью получения одной и той же инфы в течении 30 сек.

Чтобы такого не было, было принято автоматом тормозить поток при помощи Sleep на N секунд(минимально 60 сек). И этого помогло.

Однако, поток работает постоянно, и если юзер решает её закрыть(программу), то программа вешается, т.к. ждет, пока поток выспится, и прыгнет в условие:

if terminated then exit;

Юзеров не радует, что программа виснет при выходе на 1 минуту.


Как прервать спячку потока и завершить его?

[Аватар]

Заменить длинный sleep на серию коротких в цикле и там проверять terminated. Не надеяться на точность отсчета времени и в цикле еще системное время проверять, что бы закончить его через заданное к-во секунд

[Человек_Борща]

Не вариант. Нужно редактировать время сна.

[veniside]

я бы слип заменил на

  WaitForSingleObject(event, 60*1000);

если надо прервать сон, просто устанавливаем even в signaled состояние.

[Аватар]

Нужно редактировать время сна

Чем принципиально редактирование времени сна для длинного sleep и серии коротких в цикле отличается? Или для WaitForSingleObject?

[Человек_Борща]

veniside, вариант, НО работать так же должно как sleep. Имеется ввиду автономно, без внешнего "Да ты, сейчас можешь спать", и одновременно из вне с "Ты должен сейчас повесится".
Вот кусок кода, где нужно усыплять поток:

          while not Terminated do
          begin

          {$REGION 'Говнокод.rar'}
            if not bIsFirst then // Первый раз ждать не надо!
            begin
              //Слип - 60 сек.
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
                goto gothis;
              Sleep(2500);
              if Terminated then
               goto gothis;
              Sleep(2500);
              if Terminated then
              goto gothis;
              Sleep(2500);
              if Terminated then
             goto gothis;
              Sleep(2500);
              if Terminated then
              goto gothis;
              Sleep(2500);
              if Terminated then
              goto gothis;
              Sleep(2500);
              if Terminated then
              goto gothis;


              { if fSleepTime < cSleep_Min then
                Sleep(cSleep_Min * 1000)
                else
                begin
                if fSleepTime > cSleep_Max then
                Sleep(cSleep_Max * 1000)
                else
                Sleep(fSleepTime * 1000);
                end; }
            end;
          {$ENDREGION}

            gothis:
            // Надо выйти
            if fLogined and fDoLogout and (not fLogouted) then
            begin
              fLogined := False;
              fDoLogout := False;
              fLogouted := True;
              fHTTP.Clear;
              fHTTP.Cookies.Clear;
              SetLogin(lrLogouted);
              fEvent.ResetEvent;
              Break; // Выйти из цикла inner while
            end;


{
more code... 
}

            bIsFirst := False; // Первый заход сделан =)
          end;                 // inner while end

Что-то вроде таймера, во время работы которого поток спит, и пока он спит, может прийти сообщение "Хватит спать, отмирай, юзер вырубает программу"

[waleri]

Что плохого в циклах?

[Человек_Борща]

Плохо то, что общее время простоя, с каждой интерацией, цикла будет больше... Итого, когда цикл от 1 до 60,достигнет 60-го витка, поток, в общем, проспит 11 925 446 милисекунд, когда надо всего-то 60 000 мс.

[waleri]

Сообщение от Человек_Борща

в общем, проспит 11 925 446 милисекунд, когда надо всего-то 60 000 мс.

С чего вы взяли?

[Аватар]

Откуда 11 925 446? Почти те же 60 000. Большая точность здесь ни к чему. Если уж надо, то цикл WHILE или REPEAT и в теле цикла контролировать время прошедшее с начала цикла, хотя не думаю что точней на много получится

for i:=1 to 30 do begin
  Sleep(2000);
  if Terminated then Break;
end;
if Terminated then goto gothis;