freepascal.ru

Есть демон, в нем включен DBus, отказывается запускаться из под root-а. пишет
"Did not receive a reply. Possible causes include: the remote application did not send a reply, the message bus security policy blocked the reply, the reply timeout expired, or the network connection was broken."
С другого пользователя запускается нормально.
Чем можно вылечить?

Такое лучше на lor`е постить, тут наврятли будет помощь

Все помогли.
Запустил я в сервисе dbus.

Но не могу понять как мне TDateTime разложить на время, отдельно на год,месяц,часы,минуты,секунды, миллисекунды..
Интересует предел разрядности упаковки времени. Можно ли хранить наносекунды?

Добавлено спустя 7 минут 11 секунд:
думаю во что паковать время.. Double нравится.

olegy123 писал(а):Но не могу понять как мне TDateTime разложить на время, отдельно на год,месяц,часы,минуты,секунды, миллисекунды..
Интересует предел разрядности упаковки времени. Можно ли хранить наносекунды?

В TDateTime хранить наносекунды нельзя - не хватит разрядности.
Разложить - есть стандартные функции:
https://www.freepascal.org/docs-html/rt ... tines.html

olegy123 писал(а):Все помогли.
думаю во что паковать время.. Double нравится.

TDateTime:

Код: Выделить всё

  TDateTime           = type Double;
  TDate               = type TDateTime;
  TTime               = type TDateTime;


Лазарус сам упаковывает дату и время в Double.
См. функции:
Function TryEncodeDate(Year,Month,Day : Word; Out Date : TDateTime) : Boolean;
function TryEncodeTime(Hour, Min, Sec, MSec:word; Out Time : TDateTime) : boolean;

Код: Выделить всё

Function TryEncodeDate(Year,Month,Day : Word; Out Date : TDateTime) : Boolean;

var
  c, ya: cardinal;
begin
  Result:=(Year>0) and (Year<10000) and
          (Month in [1..12]) and
          (Day>0) and (Day<=MonthDays[IsleapYear(Year),Month]);
If Result then
   begin
     if month > 2 then
      Dec(Month,3)
     else
      begin
        Inc(Month,9);
        Dec(Year);
      end;
     c:= Year DIV 100;
     ya:= Year - 100*c;
     Date := (146097*c) SHR 2 + (1461*ya) SHR 2 + (153*cardinal(Month)+2) DIV 5 + cardinal(Day);
     // Note that this line can't be part of the line above, since TDateTime is
     // signed and c and ya are not
     Date := Date - 693900;
   end
end;

function TryEncodeTime(Hour, Min, Sec, MSec:word; Out Time : TDateTime) : boolean;

begin
  Result:=(Hour<24) and (Min<60) and (Sec<60) and (MSec<1000);
  If Result then
    Time:=TDateTime(cardinal(Hour)*3600000+cardinal(Min)*60000+cardinal(Sec)*1000+MSec)/MSecsPerDay;
end;


Спасибо всем.
У меня проблема в том, что изначально планируется работа в разных средах, от x86/x64 до Arm, Android и др. Также хочется чтобы разные компиляторы могли работать с данными.
Хотелось бы универсального подхода. Double вроде используется всеми, но разрядности не хватает.
можно использовать формат __float128 но он еще не всеми поддерживается.

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

olegy123 писал(а):Double вроде используется всеми, но разрядности не хватает.

Хватает для даты и времени с точностью до миллисекунды. Но такую точность даже не всякий системный таймер обеспечивает. Стандартный виндовский дает точность 50 мс, если я правильно помню.

А кто то криптовалютой занимается?

Снег Север исторически сложилось, что в качестве системного использовался таймер прерываний на частоте 18.2065 Гц (или IRQ каждые 54.9254 мс). Но в принципе, таймер программируется с шагом 1.193182 МГц.

serbod, спасибо, но я знаю про существование т.н. "мультемидийных" таймеров с высоким разрешением. Но у топикстартера стоял вопрос о применении кода на большом спектре ОС, а я не уверен, что повсюду есть программная реализация таких таймеров.