Проблемы с точным таймингом в Delphi на разных версиях Windows

Delphi , Синтаксис , Дата и Время

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

Причина проблемы

Функция WaitForSingleObject используется для приостановки выполнения потока на заданное время. Однако, начиная с более поздних версий Windows, точность этой функции может ухудшиться. Это может привести к тому, что приложение не сможет выполнять операции с точностью, необходимой для работы с внешними устройствами через последовательный порт.

Решение с использованием Multimedia Timer

Одним из решений этой проблемы может быть использование Multimedia Timer. Этот компонент предоставляет функцию TimeSetEvent, которая позволяет устанавливать таймеры с высокой точностью. Ниже приведен пример кода, который демонстрирует, как использовать эту функцию для решения проблемы точного тайминга в Delphi:

unit Unit24;

interface

uses
  Windows, MMSystem, SysUtils, Classes, Forms, DateUtils;

type
  TForm24 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  end;

var
  Form24: TForm24;

implementation

{$R *.dfm}

var
  S: string;
  t: TDateTime;

procedure TimeCallBack(TimerID, Msg: Uint; dwUser, dw1, dw2: DWORD); pascal;
begin
  S:= S+ IntToStr(Round(MilliSecondSpan(Now, t)))+ ',';
  t:= Now;
end;

procedure TForm24.FormCreate(Sender: TObject);
var
  F   : TextFile;
  mmRes: Integer;
begin
  S:= '';
  t:= Now;
  mmRes:= TimeSetEvent(2, 0, @TimeCallBack, 0, TIME_PERIODIC);
  Sleep(100);
  TimeKillEvent(mmRes);
  Application.Terminate;
  AssignFile(F, 'res.log');
  Rewrite(F);
  Write(F, S);
  CloseFile(F);
end;

end.

В этом примере мы используем функцию TimeSetEvent для установки таймера с периодом 2 миллисекунды. При каждом срабатывании таймера вызывается процедура TimeCallBack, в которой производится измерение времени и запись результата в строку S. После завершения работы таймера результаты записываются в файл res.log.

Альтернативное решение с использованием QueryPerformanceCounter

Другим решением проблемы точного тайминга может быть использование функции QueryPerformanceCounter. Эта функция возвращает значение высокоточного счетчика, который может быть использован для измерения времени с высокой точностью. Ниже приведен пример кода, который демонстрирует, как использовать эту функцию в Delphi:

unit Unit24;

interface

uses
  Windows, SysUtils, Classes, Forms, DateUtils;

type
  TForm24 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  end;

var
  Form24: TForm24;

implementation

{$R *.dfm}

var
  S: string;
  t, ft, c: Int64;

procedure TForm24.FormCreate(Sender: TObject);
var
  F   : TextFile;
  i: Integer;
begin
  S:= '';
  ft:= QueryPerformanceFrequency;
  for i:= 0 to 50 do
  begin
    t:= QueryPerformanceCounter;
    Sleep(2);
    c:= QueryPerformanceCounter;
    S:= S+ IntToStr(Round((c-t)*1000/ft))+ ',';
  end;
  Application.Terminate;
  AssignFile(F, 'res.log');
  Rewrite(F);
  Write(F, S);
  CloseFile(F);
end;

end.

В этом примере мы используем функцию QueryPerformanceFrequency для получения частоты высокоточного счетчика, а затем используем функцию QueryPerformanceCounter для измерения времени в начале и конце каждого цикла. Разница между этими значениями используется для вычисления времени, затраченного на каждый цикл. Результаты записываются в строку S и затем сохраняются в файл res.log.

Заключение

В этой статье мы рассмотрели проблему точного тайминга в приложениях, написанных на Delphi, и предложили два решения: использование Multimedia Timer и использование функции QueryPerformanceCounter. Оба этих решения могут быть использованы для устранения проблемы точного тайминга в приложениях, написанных на Delphi, и работают на разных версиях Windows.

Создано по материалам из источника по ссылке.

Данный текст описывает проблему точного тайминга в приложениях, написанных на Delphi, и предлагает два решения для её устранения: использование Multimedia Timer и функцию QueryPerformanceCounter. Оба решения работают на разных версиях Windows.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Дата и Время ::