Приостановить поток менее одной миллисекунды

Ответ 1

Отправить 20 сообщений, а затем спать в течение 1 миллисекунды?

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

Даже при таком подходе вы можете спать дольше 1 мс, или поскольку сообщения не отправляются мгновенно, вся операция, безусловно, занимает больше 1 мс, уменьшая общую скорость.

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

Ответ 2

1) Получить текущее время.

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

3) Отправить много сообщений.

4) Сон за минимальную сумму, которую вы можете.

5) Перейдите к шагу 1.

Ответ 3

Как говорили другие, вы не можете спать в течение короткого промежутка времени (и даже Sleep (1) не является надежным - он может легко спать в течение более 1 мс).

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

program SendEquidistantMessages;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Windows, SysUtils;

procedure SendMessage(msgNum: integer);
begin
  // send the message here
end;

procedure WaitUntil(nextMsgTime: int64);
var
  currTime: int64;
begin
  repeat
    QueryPerformanceCounter(currTime);
    if currTime >= nextMsgTime then
      break; //repeat
    asm pause; end;
  until false;
end;

procedure SendMessages(numMsg, msgPerSec: integer);
var
  iMsg       : integer;
  nextMsgTime: int64;
  perfFreq   : int64;
  prevMsg    : int64;
  startTime  : int64;

begin
  Assert(QueryPerformanceFrequency(perfFreq));
  Assert(QueryPerformanceCounter(startTime));
  for iMsg := 1 to numMsg do begin
    WaitUntil(Round(startTime + iMsg/msgPerSec * perfFreq));
    SendMessage(iMsg);
  end;
end;

var
  time: cardinal;

begin
  try
    time := GetTickCount;
    SendMessages(20000, 5000);
    time := GetTickCount-time;
    Writeln('20.000 messages sent in ', time/1000:4:1, ' sec; ',
      'required rate = 5000 msg/sec, real rate = ', 20000/(time/1000):6:1, ' msg/sec');
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Ответ 4

Вместо того, чтобы спать, почему бы не использовать T Theard.Yield, чтобы другой поток/процесс имел bash в процессоре?

Ответ 5

Существует поток Sleep Less Than One Millisecond, посвященный аналогичным проблемам. Я дал несколько подробностей о том, как позволить потоку спать в любое время. Это, конечно, также включает в себя сон в микросекундах. Темы: Временные события, созданные потоками службы, функции ожидания

Более подробную информацию можно найти в Проект временной отметки Windows

Ответ 6

обходным путем является получение текущего времени с помощью nano секунд и добавление его со временем, когда вы хотите спать (ждать) и цикл до тех пор, пока текущее время (с nano секунд) не станет больше, чем вы рассчитали, существует способ которые иллюстрируют это:

public void wait(long nano){
    long t= System.nanoTime();
    t+= nano;
    while(System.nanoTime()<t);
}

Обратите внимание, что: 1 секунда = 1000 миллисекунд = 1000000 микросекунд = 1000000000 наносекунд

так

1 миллисекунда = 1000000 наносекунд