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

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

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

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

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

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

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

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

4) Спите как можно меньше.

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

Как говорили другие, вы не можете спать на короткое время (и даже 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.

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

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

Более подробную информацию также можно найти на сайте Windows Timestamp Project.

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

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

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

so

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