Разгадка временных аномалий в Delphi: как синхронизировать даты файлов с Windows?

Delphi , Синтаксис , Справочник по API-функциям

Вопрос о несоответствии временных меток файлов в Windows и в приложениях, написанных на Delphi, является довольно распространенным. Причиной такого несоответствия может быть разница между временной зоной системы и временом, хранящимся в файле в формате UTC. В данной статье мы рассмотрим, как синхронизировать даты создания, доступа и изменения файлов в приложениях на Delphi с тем, что отображается в свойствах файлов Windows.

Описание проблемы

Пользователь столкнулся с проблемой, когда даты создания, доступа и изменения файлов в его приложении на Delphi не совпадали с данными, отображаемыми в свойствах файлов Windows. Разница составляла приблизительно 30 минут.

Контекст

В контексте рассматривается код, который пытается получить временные метки файлов с использованием структуры TWin32FindData. Однако, в коде отсутствует преобразование временных меток из UTC в локальное время, что и приводит к несоответствию.

Подтвержденный ответ

Для решения проблемы необходимо выполнить преобразование временных меток из UTC в локальное время. В коде ниже приведен пример функции, которая выполняет данное преобразование:

uses
  Windows;

function UTCTimeToLocalTime(const aValue: TDateTime): TDateTime;
var
  lBias: Integer;
  lTZI: TTimeZoneInformation;
begin
  lBias := 0;
  case GetTimeZoneInformation(lTZI) of
    TIME_ZONE_ID_UNKNOWN:
      lBias := lTZI.Bias;
    TIME_ZONE_ID_DAYLIGHT:
      lBias := lTZI.Bias + lTZI.DaylightBias;
    TIME_ZONE_ID_STANDARD:
      lBias := lTZI.Bias + lTZI.StandardBias;
  end;
  // UTC = local time + bias
  // bias is in number of minutes, TDateTime is in days
  Result := aValue - (lBias / (24 * 60));
end;

Также, в коде ниже представлена процедура, которая демонстрирует, как можно использовать стандартные вызовы Windows API для получения временных меток файла и их отображения в локальном времени:

procedure TMyForm.ReportFileTimes(const FileName: string);
  procedure ReportTime(const Name: string; const FileTime: TFileTime);
  var
    SystemTime, LocalTime: TSystemTime;
  begin
    if not FileTimeToSystemTime(FileTime, SystemTime) then
      RaiseLastOSError;
    if not SystemTimeToTzSpecificLocalTime(nil, SystemTime, LocalTime) then
      RaiseLastOSError;
    Memo1.Lines.Add(Name + ': ' + DateTimeToStr(SystemTimeToDateTime(LocalTime)));
  end;
var
  fad: TWin32FileAttributeData;
begin
  if not GetFileAttributesEx(PChar(FileName), GetFileExInfoStandard, @fad) then
    RaiseLastOSError;
  Memo1.Clear;
  Memo1.Lines.Add(FileName);
  ReportTime('Created', fad.ftCreationTime);
  ReportTime('Modified', fad.ftLastWriteTime);
  ReportTime('Accessed', fad.ftLastAccessTime);
end;

procedure TMyForm.Button1Click(Sender: TObject);
begin
  ReportFileTimes(Edit1.Text);
end;

Альтернативный ответ

Ещё один способ преобразования временных меток из UTC в локальное время - использование функции FileTimeToLocalFileTime. Это также может быть полезно для решения проблемы с временными аномалиями.

Заключение

Используя предложенные методы, вы сможете синхронизировать временные метки файлов в вашем приложении на Delphi с временными метками, отображаемыми в свойствах файлов Windows. Это особенно важно для приложений, которые работают с датами и временем, и где точность является ключевым фактором.

Создано по материалам из источника по ссылке.

Проблема связана с различием в отображении временных меток файлов в приложении на Delphi и в операционной системе Windows из-за отсутствия преобразования временных меток из UTC в локальное время.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::