delphi linux使用高精度定时器

在 Delphi 11 Linux 中，可以使用 `clock_gettime` 函数来获取高精度的定时器。这个函数可以获取系统时间，并且可以使用单调时钟计时，可以保证不受系统时间变化的影响。

以下是一个获取高精度定时器的示例代码：

uses
  Posix.Time;

function GetHighPrecisionTimer: UInt64;
var
  ts: timespec;
begin
  clock_gettime(CLOCK_MONOTONIC, @ts);
  Result := UInt64(ts.tv_sec) * 1000000000 + UInt64(ts.tv_nsec);
end;

以上代码通过调用 `clock_gettime` 函数来获取当前时间，其中 `CLOCK_MONOTONIC` 参数表示使用单调时钟计时，可以保证不受系统时间变化的影响。最后将时间转换成纳秒数返回。

需要注意的是，以上代码获取的是从系统启动到当前时间的时间差，因此如果需要测量某个操作的时间，需要在操作前获取一个起始时间，操作后获取一个结束时间，然后计算二者之差来获取操作的时间。

相关问题

delphi linux使用高精度定时器回调函数

在 Delphi 11 Linux 中，可以使用 `TThread.CreateAnonymousThread` 方法来创建一个匿名线程，然后在匿名线程中使用高精度定时器来执行回调函数。

以下是一个使用高精度定时器回调函数的示例代码：

uses
  Posix.Time, System.Threading;

type
  TTimerCallback = reference to procedure;

procedure StartTimer(interval: Cardinal; callback: TTimerCallback);
begin
  TThread.CreateAnonymousThread(
    procedure
    var
      ts, te: UInt64;
      delta: Int64;
    begin
      while True do
      begin
        ts := GetHighPrecisionTimer;
        Sleep(interval);
        te := GetHighPrecisionTimer;
        delta := Int64(te - ts);
        if delta < 0 then
        begin
          delta := -delta;
        end;
        if delta > interval * 1000 then
        begin
          // 超时
          TThread.Queue(nil, callback);
        end;
      end;
    end
  ).Start;
end;

以上代码中，`StartTimer` 函数接受一个时间间隔和一个回调函数，然后在一个匿名线程中使用高精度定时器来执行回调函数。

在匿名线程中，首先使用 `GetHighPrecisionTimer` 函数获取当前时间，然后使用 `Sleep` 函数来等待指定的时间间隔。等待结束后，再次使用 `GetHighPrecisionTimer` 函数获取当前时间，计算两个时间的时间差，如果时间差超过了时间间隔，则调用回调函数。

注意，在匿名线程中不能直接调用 UI 线程中的控件，需要使用 `TThread.Queue` 方法来在 UI 线程中调用回调函数。

delphi 11 linux 高精度定时器回调

Delphi 11 为 Linux 平台提供了高精度定时器支持，可以使用 TTimer 类来实现定时器回调。

以下是使用 TTimer 实现定时器回调的示例代码：

unit Unit1;

interface

uses
  Linuxapi.Timer, Linuxapi.Pthread, SysUtils, Classes, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FTimerID: timer_t;
    FThreadID: pthread_t;
    FInterval: LongInt;
    procedure TimerCallback(signum: Integer);
    procedure ThreadProc;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

const
  SIGTIMER = SIGRTMIN;

procedure ThreadSignalHandler(signum: Integer); cdecl;
begin
  // nothing to do here
end;

procedure TForm1.TimerCallback(signum: Integer);
begin
  // This method will be called periodically by the timer
  Memo1.Lines.Add('TimerCallback called');
end;

procedure TForm1.ThreadProc;
var
  sigset: sigset_t;
  sigaction: sigaction_t;
  timer_spec: itimerspec;
begin
  // Set up signal handling for the thread
  sigemptyset(sigset);
  sigaddset(sigset, SIGTIMER);
  pthread_sigmask(SIG_BLOCK, @sigset, nil);
  FillChar(sigaction, SizeOf(sigaction), 0);
  sigaction.sa_handler := @ThreadSignalHandler;
  sigaction.sa_flags := SA_RESTART;
  sigaction.sa_mask := sigset;
  sigaction(SIGTIMER, @sigaction, nil);

  // Create the timer
  timer_create(CLOCK_REALTIME, nil, @FTimerID);

  // Set up the timer specifications
  FInterval := 100000000; // 100ms
  timer_spec.it_interval.tv_sec := FInterval div 1000000000;
  timer_spec.it_interval.tv_nsec := FInterval mod 1000000000;
  timer_spec.it_value := timer_spec.it_interval;

  // Start the timer
  timer_settime(FTimerID, 0, @timer_spec, nil);

  // Wait for the timer to expire
  while True do
  begin
    sigwait(@sigset, signum);
    TimerCallback(signum);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Create a new thread to handle the timer
  pthread_create(@FThreadID, nil, @ThreadProc, nil);
end;

end.

在上述示例代码中，我们使用了 `Linuxapi.Timer` 和 `Linuxapi.Pthread` 单元来实现高精度定时器回调。在 `TForm1` 类中，我们定义了一个 `FTimerID` 成员变量来保存定时器的 ID，以及一个 `FThreadID` 成员变量来保存线程的 ID。我们还定义了 `TimerCallback` 方法作为定时器回调函数，以及 `ThreadProc` 方法作为线程函数。

在 `Button1Click` 事件中，我们创建了一个新线程来处理定时器。在 `ThreadProc` 方法中，我们使用 `sigset_t` 和 `sigaction_t` 结构体来设置信号处理程序，并使用 `timer_create` 函数创建定时器。然后，我们使用 `itimerspec` 结构体来设置定时器的时间间隔，并使用 `timer_settime` 函数启动定时器。最后，我们使用 `sigwait` 函数等待定时器到期，并在到期后调用 `TimerCallback` 方法。