[D5] Dateidatum wird falsch gelesen

[Luckie]

Hä? Wie liest du es denn aus? Welches Betriebssystem? Welches Dateisystem? Hast du auch die benötigten Rechte?

[JanWe]

Zitat von Luckie:

Hä? Wie liest du es denn aus? Welches Betriebssystem? Welches Dateisystem? Hast du auch die benötigten Rechte?

Guten Morgen,

...hab den Code oben noch etwas um ne Aufrufprozedur ergänzt.

Windows 7 64 Bit
standard (NTFS)
Rechte: Ja, eigenes Unterverzeichnis im Programmverzeichnis auf ner anderen Partition. Haben alle Programme Schreibrechte.


Ich vermute allerdings eher, daß Delphi intern damit nicht klarkommt.(das alte aber geliebte Delphi 5)

Also wenn ich das alle gescanneten Dateidaten mit Datum (formatiert, dahinter als Integer) ausgeben lasse, sieht man, daß ab Datei 05 [eigentlich 1.1.1970] das Datum von 04 übernommen wird und bei 05 Vorschlag - nochmal .jpg und - sehe ich gerade - sogar bis 06...GIF übernommen und selbst beim 06 nicht durch neue ersetzt wird.

Delphi-Quellcode:

0*Dateiname .... gelesenes Datum|Uhrzeit ..Filedate*10000 .... Dateigröße
01 Datei1.txt   04.12.2013   21:15:08   416128855   80171
02 Info.doc   07.04.2015   00:01:08   421010007   63091
03 Rechnung. xls   12.01.2015   21:09:38   420168816   487258
04 Alternativ.txt   12.09.2014   08:22:10   418943487   3735
05 Vorschlag.jpg   12.09.2014   08:22:10   418943487   24149
05 Vorschlag - Kopie.jpg   12.09.2014   08:22:10   418943487   24149
05 Vorschlag - nochmal .jpg   12.09.2014   08:22:10   418943487   24149
06 test.GIF   12.09.2014   08:22:10   418943487   5863
07 Briefumschlag.png   09.01.2015   23:13:30   420139677   242816
spi-curious-htr0061.jpg   08.12.2010   00:52:56   405200367   24039

kommt folgendes
alle 05 sind Kopien derselben - und haben alle das selbe LastChange Dateidatum 1.1.1970. Die 06.GIF hat 12.9.2014
ich hab fast allen Dateinamen eine 0Zahl vorangestellt, damit man sie (im Debugger) besser unterscheiden kann

[Popov]

Zitat:

ch möchte das Dateidatum auch möglichst präzise als NICHT-Rational speichern (am besten als was ganzzahliges)
also hab ich das mal mit z.B: 100.000 mal genommen und wollte dann alle Reste abschneiden.

FullTIME := trunc(100000 * FileDateToDateTime(search.time));
Dummerweise wird FullTime dann aber negativ.

Teste das mal:

Delphi-Quellcode:

var
  DateTime: TDateTime;
begin
  DateTime := 0;
  ShowMessage(DateTimeToStr(DateTime));

Ergebnis wird sein: 01.01.1900 minus eine Sekunde. Datum 0 ist also dieses Datum.
Was willst du also mit mal 100000 erreichen. Bedenke, Zeit 0 * 100000 ergibt 31.12.1899, ein Tag später mal 100000 ergibt das Datum 14.10.2173. Heute sind seit der Zeit 0 42111 Tage vergangen. Jede ganze Zahl steht für einen Tag. Also Now + 1 ergibt als Datum morgen. Nachkommastellen sind Uhrzeit. Wenn ich also Heute (42111) mal 10000 nehme, ergibt das 4211100000 Tage. Mal grob berechnet ergibt das 1900 + (4'211'100'000 / 356,25) etwa 11 Millionen Jahre in der Zukunft.