Как заменить sleep в потоке? чтобы получить задержку 5 мили

[Dasverd2010]

Здравствуйте Уважаемые!
Мне нужна Ваша помощь.

Есть поток, мне нужно задержать процедуру (Updatedann) на 5 милисек.

procedure TDRThread.Execute;

begin
 index:=1;

 //Запускаю бесконечный цикл
 while index>0 do
    begin
    Synchronize(Updatedann);
    sleep(5);
   
    if terminated then exit; //Если поток остановлен, то выйти,
    end;
end;

А на самом деле процедура (Updatedann) выполняется только через 15 мсек.

Если вообще убрать sleep, то процедура (Updatedann) выполняется за 0.16 милисек ~(примерно, очень быстро).



Как сделать что бы процедура (Updatedann) в потоке выполнялась через каждые 5 милисек? что бы можно было регулировать задержку.

[Lemon2009]

может стоит использовать цикл?

while (пока не истекло время) do Sleep(1);

или

while (пока не полностью выполнилась синхронизация) do Sleep(1);

[GunSmoker]

Можете пояснить зачем?

Дело в том, что ответ на этот вопрос, сильно зависит от того, зачем вам это надо.

[Alex Cones]

Sleep(1) также бессмысленнен, как и sleep(5). Меньше 15 ни таймер, ни sleep не едят.

[Баламут]

В Windows, и тем более в потоке это вообще бессмысленно. Это не система реального времени.

[Dasverd2010]

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

Можете пояснить зачем?

Дело в том, что ответ на этот вопрос, сильно зависит от того, зачем вам это надо.

В процедуре (Updatedann) производятся вычисления, после они выводятся на экран в последствии данные будут передаваться оборудованию через RS232.


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

Помогите, в каком направление капать, или привидите пример... Наверника сталкивались.

[GunSmoker]

Про работу с оборудованием я пас.

Но что точно я вам скажу - Synchronize тут совершенно не в тему, потому что он может задержать выполнение на произвольное количество времени. Вам как минимум нужен отдельный поток, который не будет иметь таких блокировок.

[Dasverd2010]

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

Про работу с оборудованием я пас.

Но что точно я вам скажу - Synchronize тут совершенно не в тему, потому что он может задержать выполнение на произвольное количество времени. Вам как минимум нужен отдельный поток, который не будет иметь таких блокировок.

Оборудование допустим, я не буду использовать. Help me...

[GunSmoker]

Вы же только что сказали:

данные будут передаваться оборудованию через RS232

[Dasverd2010]

Сообщение от Alex Cones

Sleep(1) также бессмысленнен, как и sleep(5). Меньше 15 ни таймер, ни sleep не едят.

Проблему я свою решил, думаю нужно поделится.

Я замерял время задержки (sleep), функцией:

      var
     NewTim, OldTim, VipTim      :TDateTime;
     Hour, Min, Sec, MSec         :Word;

     Begin
      NewTim:=Now;

       // задержка 15 милисекунд
      sleep(15);  
      //(или фукция которую Вы хотите измерить)

      OldTim:=Now;
      VipTim:=OldTim-NewTim;
      DecodeTime(VipTim, Hour, Min, Sec, MSec); 
      
      //перевожу в милисекунды 
      VipTim:=Hour;
      VipTim:=VipTim*3600;
      VipTim:=VipTim+Min*60;
      VipTim:=VipTim+Sec;
      VipTim:=VipTim*1000+MSec;
      
      ShowMessage('Время выполнения фукции = '+floattostr(VipTim)+' милисек');
     End;

Оказывается таким способом можно считать врямя выполнения функции, но если функция выполняется быстрее 15 милисекунд, то бесмыссленно.

Вот результаты:

при sleep(15);
Будет выводится сообщение: (Время выполнения фукции = ~ 15 милисек)

при sleep(5);
Будет выводится сообщение: (Время выполнения фукции = ~15 милисек)


Более точные замеры можно производить следующем способом:

С помощью функций (QueryPerformanceFrequency, QueryPerformanceCounter)

QueryPerformanceCounter - функция Win32 API.
QueryPerformanceFrequency - возвращает частоту счётчика count/sec.
QueryPerformanceCounter - возвращает текущее значение счетчика с высоким разрешением производительности.

  var
 Ctr1, Ctr2, Freq,Overhead: int64; 
 R: extended; 

  Begin
   QueryPerformanceFrequency(Freq); 
   QueryPerformanceCounter(Ctr1); 
   QueryPerformanceCounter(Ctr2); 
   Overhead := Ctr2 - Ctr1; 
   QueryPerformanceCounter(Ctr1); 

   //здесь Ваша функция или процедура которую Вы хотите измерить
   // допустим задержка sleep(5);

   sleep(5);

   QueryPerformanceCounter(Ctr2); 
   R := ((Ctr2 - Ctr1) - Overhead) / Freq; 
   showmessage( 'Ваша функция выполнилась за ' + FloatToStr(R) + '  секунд');

Результат: Ваша функция выполнилась за 0,0049975 секунд



Следовательно, функция sleep(1) производит задержку в 1 милисекунду, только измерять нужно функциями (QueryPerformanceFrequency, QueryPerformanceCounter).

Так же я нашел способ задержки функции в микросекундах:

procedure DelayUS(MicroS:int64); // Ожидание N microSec
var
  Frq_Base, Time_memo, Time_now, dif: Int64;
begin
  if QueryPerformanceFrequency(Frq_Base) then // Частота ПК
    begin
      QueryPerformanceCounter(Time_memo);        // начальное значение
      repeat
      QueryPerformanceCounter(Time_now);
      dif := ((Time_now - Time_memo) * 1000000) div Frq_Base;
      until dif > MicroS;
    end;
end;



Begin

DelayUS(4550); // Задержка микросек

End;

Если возник интерес или вопросы стучите в аську 221-955-95 (четыре). Ник: RAKETA буду рад обсудить

Продолжаем обсуждать...