Irritationen bei SetLastWriteTime/ GetLastWriteTime

[himitsu]

Ja, das wird im Dateisystemtreiber oder in der ensprechenden WinAPI gemacht. (wer genau weiß ich jetzt auch nicht, aber da wir eh nur über die APIs zugreifen, ist es egal)
Bei FAT wurde die Zeit als LocalTime gespeichert, aber NTFS speichert UTC, wobei dort im GetFileTime/SetFileTime die Zeit bereits umgerechent werd, was beim Zugriff auf FAT (z.B. Disketten oder USB-Sticks echten Spaß bereitet)

@Uwe: TFile verwendet eben nicht GetFileTime

Zitat von himitsu:

Ich hat mit mal den Code TFile.SetLastWriteTimeUTC und TFile.GetLastWriteTimeUTC angesehn und so weit scheint es zu stimmen,
ABER dort werden zum Setzen und Lesen unterschiedliche Windows-APIs verwendet und womöglich hat Eine davon "inzwischen" eine Zeitzonenkonvertierung drin?
SetFileTime
GetFileAttributesEx statt GetFileTime

[Uwe Raabe]

Zitat von himitsu:

@Uwe: TFile verwendet eben nicht GetFileTime

Ich wollte auch nur darlegen, daß der geschilderte Fehler

Zitat von bcvs:

Bleibt allerdings noch das zweite Problem mit der UTC-Variante

Delphi-Quellcode:

TFile.SetLastWriteTimeUTC('test.txt', StrToDateTime('01.05.2020 10:00'));
TFile.GetLastWriteTimeUTC('test.txt'))); // liefert 01.05.2020 09:00

bei meinem Test nicht reproduzierbar war.

[bcvs]

Und es liegt doch an Delphi!

Uwes Testprogramm liefert mit D10.3.3 bei mir auch das korrekte Ergebnis.
Mit 10.2.3 kompiliert liefert es 01.05.2020 09:00, also eine Stunde zu früh!!!

Mein besagtes Projekt hatte ich noch unter 10.2.3. Wenn das die Lösung ist, kann ich aber auch problemlos auf 10.3.3. wechseln.

[Uwe Raabe]

In der Tat: TFile.GetLastWriteTimeUtc returns incorrect value

[Luckie]

Ich habe es mir jetzt nicht ganz durchgelesen, aber vielleicht hilft es: Why do Explorer and the command prompt interpret file times differently?

[Dalai]

Für derartige Fälle hab ich mir vor einiger Zeit entsprechende Hilfsfunktionen gebaut:

Delphi-Quellcode:

function FileTimeToLocalDateTime(const FileTime: TFileTime): TDateTime;
var
  ModifiedTime: TFileTime;
  SystemTime: TSystemTime;
begin
  Result:= 0; 
  if FileTimeToLocalFileTime(FileTime, ModifiedTime) then
      if FileTimeToSystemTime(ModifiedTime, SystemTime) then
          Result:= SystemTimeToDateTime(SystemTime);
end;

function UTCFileTimeToLocalDateTime(const FileTime: TFileTime): TDateTime;
var
  UTCSystemTime, LocalSystemTime : TSystemTime;
begin
  Result:= 0;
  if FileTimeToSystemTime(FileTime, UTCSystemTime) then
      if SystemTimeToTzSpecificLocalTime(nil, UTCSystemTime, LocalSystemTime) then
          Result:= SystemTimeToDateTime(LocalSystemTime);
end;

OK, eigentlich müsste man bei Fehlschlagen der API-Funktionen Exceptions auslösen, damit man weiß, wo's klemmt.

Grüße
Dalai