Irritationen bei SetLastWriteTime/ GetLastWriteTime

[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