Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Datum aus Binärdatei (bplist) auslesen (https://www.delphipraxis.net/151761-datum-aus-binaerdatei-bplist-auslesen.html)

almisoft 31. Mai 2010 19:52


Datum aus Binärdatei (bplist) auslesen
 
Ich habe eine bplist-Datei (binäre property list), in der ein Datum (8 byte float, big-endian bytes) abgelegt ist.
Also habe ich die 8 Bytes in ein Double eingelesen und nach Little-Endian gewandelt. Leider kommt ein ungültiges Datum heraus.

Hier ein Beispiel:

Ich habe zunächst eine plist (Textformat) erstellt und
<date>2000-01-02T16:00:00Z</date>, also der 2.1.2000 um 16:00 hineingeschrieben.
Dann die plist als bplist (Binärformat) gespeichert.

Ich lese dann 8 Bytes aus:
C1 7E 05 28 00 00 00 00

Geswappt nach Little-Endian also:
00 00 00 00 28 05 7E C1

Delphi macht daraus die Double-Zahl -31478400, was dem Datum 00.00.0000 00:00:00 entspricht.

Wenn ich das Swappen weglasse, kommt 3,31739769705295E-315 heraus, was 1899-12-30 00:00:00 bedeutet.

Hat jemand eine Idee?

Klaus01 31. Mai 2010 20:08

Re: Datum aus Binärdatei (bplist) auslesen
 
Guten Abend,

ist es sicher, dass es sich um ein TDateTime (double) Format handelt,
oder könnte es sich auch um einen Unix Timestamp handeln?

Wenn es sich um einen Unix Timestamp handelt, waäre das Datum diese hier:
12.04.1991 um 11:32:49 Uhr. (gilt für UTC+1)
Quelle

Grüße
Klaus

almisoft 31. Mai 2010 22:15

Re: Datum aus Binärdatei (bplist) auslesen
 
Glaube ich nicht, es muss ja wieder der 2.1.2000 am Ende herauskommen.
Ich habe mal den 1.1.1970 00:00:00 kodiert, als Double-Wert kam wieder ein negativer Wert heraus.

almisoft 31. Mai 2010 22:36

Re: Datum aus Binärdatei (bplist) auslesen
 
Aber mit ein wenig umrechnen passt es dann doch. Mich hat gewundet, dass stets eine gerade Zahl herauskam. Also ist es doch ein Timestamp, der die Sekunden seit einem Tag X bedeutet.

Die Formel ist ((DoubleWert+978307200)/86400)+25569

Bitte fragt mich nicht, warum, aber es funzt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:29 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz