delphi linux TTimeSpec接口使用

Delphi 中 TTimeSpec 接口用于表示时间的结构体，用于与 Linux 系统的 time.h 头文件中定义的 timespec 结构体交互。下面是一个使用 TTimeSpec 接口的示例：

首先，在程序中使用以下代码导入 Linux 的 time.h 头文件：

{$IFDEF LINUX}
  {$LINKLIB c}
  {$DEFINE _POSIX_C_SOURCE := 200112L}
  {$DEFINE _XOPEN_SOURCE := 600}
  {$INCLUDE features.h}
  {$INCLUDE time.h}
{$ENDIF}

然后，可以通过以下代码来声明一个 TTimeSpec 变量，并将其初始化为当前系统时间：

var
  ts: TTimeSpec;
begin
  clock_gettime(CLOCK_REALTIME, @ts);
  // 在这里，ts.tv_sec 和 ts.tv_nsec 分别表示秒和纳秒
end;

在上面的代码中，`CLOCK_REALTIME` 是一个常量，表示使用系统时间作为时钟源。`clock_gettime` 函数用于获取当前时间，并将其存储在 `ts` 变量中。

可以使用 `ts.tv_sec` 和 `ts.tv_nsec` 分别获取秒和纳秒部分的时间。需要注意的是，`tv_nsec` 字段的范围是 0 到 999999999，即一秒内的纳秒数。

还可以使用 `nanosleep` 函数来让程序休眠一段时间，例如：

var
  ts, rem: TTimeSpec;
begin
  ts.tv_sec := 1;  // 休眠 1 秒
  ts.tv_nsec := 0;
  while True do begin
    if nanosleep(@ts, @rem) = 0 then break;
    ts := rem;  // 如果休眠被中断，则使用剩余的时间继续休眠
  end;
end;

上面的代码中，`nanosleep` 函数用于让程序休眠一段时间（这里是 1 秒）。如果休眠被中断，则使用剩余的时间继续休眠，直到休眠时间完全用完为止。