Delphi. Int64. Непонятный формат времени.

[bogoga]

Здрасте. Имеется 8 байтовая последовательность символов, после ее перевода в hex получается число с обратным порядком байт (little-endian): 40E3861462833945, далее перевожу это в Int64: 4675728260250941765

Следующий код переводит это число в дату:

var
Date64: Int64;
sDate64: TDateTime absolute Date64;
Hex: String;
begin
Hex := '40E3861462833945';
Date64 := HexToInt64(Hex); // 4675728260250941765
ShowMessage(DateTimeToStr(sDate64)) ; // 20.06.2009 15:17:19
end;

Все самое главное проделывает одна строчка sDate64: TDateTime absolute Date64;

Вопрос: что это за формат времени такой 40E3861462833945 и как еще из него можно получить дату 20.06.2009 15:17:19 без использования директивы absolute (для повторения этого на других языках) ??

[mutabor]

А если грузить его сразу в double, не используя промежуточный int64? Это ведь из файла откуда то берется?

[Stilet]

это за формат времени такой 40E3861462833945

А с чего ты взял что это формат времени?

[mutabor]

Теоретически 8 байт могут быть чем угодно, в том числе и значением времени, но только грузить его (если это время) надо не в int64, а в double или в TDateTime, что одно и то же.

[bogoga]

Сообщение от Stilet

А с чего ты взял что это формат времени?

Ну возможно не формат, а способ хранения) Как, например, FILETIME или SYSTEMTIME в бинарном виде, но тут слишком большое число для этих структур. В общем, так кодируется одна дата, используемая в одном из пакетов ICQ протокола, возможно и где-то еще, вот я и подумал может это что-то стандартное и где-то еще используемое?

Сообщение от mutabor

А если грузить его сразу в double, не используя промежуточный int64? Это ведь из файла откуда то берется?

Дело в том, что это нужно будет все повторить на другом языке, а именно PHP, а там вообще с типами проблема=) . Так что хотелось бы выяснить пошаговое преобразование такого большого числа в простую дату (в кол-во секунд)

[Stilet]

вот я и подумал может это что-то стандартное и где-то еще используемое?

Ну не знаю... Я бы не надеялся на это...

[mutabor]

Сообщение от bogoga

Дело в том, что это нужно будет все повторить на другом языке, а именно PHP, а там вообще с типами проблема=) . Так что хотелось бы выяснить пошаговое преобразование такого большого числа в простую дату (в кол-во секунд)

В Delphi формат TDateTime не целочисленный, это 8 байтное число с плавающей точкой, до точки - дата, после точки - время (кол-во секунд, к-рое ты упоминал).

[bogoga]

Сообщение от mutabor

В Delphi формат TDateTime не целочисленный, это 8 байтное число с плавающей точкой, до точки - дата, после точки - время (кол-во секунд, к-рое ты упоминал).

Воо) Значит формат определили, спасибо. Тогда вернемся к вашему совету считать число сразу в Double или как можно перевести в него считанный Int64 без использование директивы absolute? и по возможности отделить целую часть от дробной)

[mutabor]

Вот так например в Дельфи работает, здесь идет прямой доступ к памяти, что на PHP я так думаю будет недоступно.

var
  buf: int64;
  d: TDateTime;
  a : Pointer;
begin
  buf:=4675728260250941765;
  a:=@buf;
  d:=Double(a^);
  Label1.Caption:=DateTimeToStr(d);
end;

А вообще нужно как-то сразу грузить сырые данные в нужный тип, из хекс строки (обратной вот этому - 40E3861462833945) сразу в float-тип. Может в PHP есть такая фукнция к-рая сразу хекс строку или переменную может во float загнать.

p.s. То же самое в Дельфи можно сделать с помощью потока TMemoryStream, закинуть в него целочисленную переменную как буфер, а прочесть в вещественную, по сути это тот же механизм, только другая его реализация.

[bogoga]

mutabor, спасибо за помощь, на пхп тоже нашел функцию нужную)