Hi DPler

Hab mal wieder ein Problem für euch

Ich will den Timestap einer datei auslesen (aber nur den "Geändert am"). Dazu verwende ich folgende Funktion:

zusammenfalten · markieren

Delphi-Quellcode:

function GetFileLastModifiedTimeStap(const FileName: string) : TDateTime;
var
  FileHandle : THandle;
  DateInfo: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  Bias: Double;
begin
  Result := 2; //01.01.1900 00:00:00
  Bias := 0;
  FileHandle := FileOpen(FileName, fmOpenRead or fmShareDenyWrite);
  if FileHandle > 0 then
  begin
    try
      if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then Bias := TimeZoneInfo.Bias / 1440; // 60x24
      GetFileTime(FileHandle, nil, nil, @DateInfo);
      if FileTimeToSystemTime(DateInfo, SysTimeStruct) then result := SystemTimeToDateTime(SysTimeStruct) - Bias;
    finally
      FileClose(FileHandle);
    end;
  end;
end;

So diese Funktion funktioniert eigentlich ganz gut. Bis auf des das eine Stunde fehlt. D.h. das programm sagt 12:42:00 meine systemuhr aber 13:42:00
natürlich könnte ich jetzt einfach eine stunde dazu zählen nur weiß ich nicht wie sich des auf anderen System (mit anderen Zeitzonen ...) auswirkt

Wofür steht denn dein $FFFFFFFF? (sehs gerade, TIME_ZONE_ID_INVALID...)
Als Rückgabewert für GetTimeZoneInformation kenn ich da noch TIME_ZONE_ID_DAYLIGHT, was für eine Stunde Versatz sprechen würde Werte das Rückgabeergebnis mal genauer aus, dann klappts auch mit der Sommerzeit.

Zitat von CCRDude:

Als Rückgabewert für GetTimeZoneInformation kenn ich da noch TIME_ZONE_ID_DAYLIGHT, was für eine Stunde Versatz sprechen würde Werte das Rückgabeergebnis mal genauer aus, dann klappts auch mit der Sommerzeit.

ahm ja ... und wie mach ich des?
ah stimmt an der sommerzeit kann es liegen

Wie, wie machst Du das?

Jetzt nur mal grob auswendig umgewandelt:

markieren

Delphi-Quellcode:

cTZI := GetTimeZoneInformation(TimeZoneInfo);
if cTZI <> $FFFFFFFF
 then Bias := TimeZoneInfo.Bias / 1440;
if cTZI = TIME_ZONE_ID_DAYLIGHT
 then Inc(Bias, 60);

Kann auch Dec statt Inc sein, bin zu faul jetzt nachzudenken, wierum Du da verschiebst

k danke

super danke es funktioniert jetzt:

zusammenfalten · markieren

Delphi-Quellcode:

function GetFileLastModifiedTimeStap(const FileName: string) : TDateTime;
var
  FileHandle : THandle;
  DateInfo: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  Bias: Double;
begin
  Result := 2; //01.01.1900 00:00:00
  FileHandle := FileOpen(FileName, fmOpenRead or fmShareDenyWrite);
  if FileHandle > 0 then
  begin
    try
      if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then
      begin
        Bias := TimeZoneInfo.Bias / 1440; // 60x24
        if GetTimeZoneInformation(TimeZoneInfo) = TIME_ZONE_ID_DAYLIGHT then Bias := Bias - (60 / 1440);
        GetFileTime(FileHandle, nil, nil, @DateInfo);
        if FileTimeToSystemTime(DateInfo, SysTimeStruct) then result := SystemTimeToDateTime(SysTimeStruct) - Bias;
      end;
    finally
      FileClose(FileHandle);
    end;
  end;
end;