Проблема получения времени создания файла

Delphi , Синтаксис , Дата и Время

Попробуйте следующую функцию, которая не требует вызова FindFirst:

function GetFileDate(TheFileName: string): string;
var
  FHandle: integer;
begin
  FHandle := FileOpen(TheFileName, 0);
  result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
  FileClose(FHandle);
end;

Одно маленькое предупреждение: время, возвращаемое Win32-функцией, отсчитывается от Гринвича, поэтому вам необходимо привести полученный результат к локальному времени. Чтобы быть уверенным, проверьте документацию. (Я уверен, что FindNextFile делает это правильно).

Here's the translation of the content into Russian:

Проблема с получением даты создания файла!

Ваш функция движется в правильном направлении, но она не идеальна. Вы используете FileGetDate, которая возвращает время последнего записи, а не дату создания.

Вот обновленная версия вашей функции, которая использует FindFirst для получения даты создания:

function GetFileDate(TheFileName: string): string;
var
  FHandle: TSearchRec;
begin
  if FindFirst(TheFileName + '*.*', faAnyFile, FHandle) = 0 then
  begin
    result := DateTimeToStr(TDateTime(FHandle.dwCreationTime));
    FindClose(FHandle);
  end else
    result := '';
end;

Эта функция использует FindFirst для поиска файла и получения даты создания с помощью поля dwCreationTime записи TSearchRec. Функция DateTimeToStr используется для конвертации времени в строку.

Как вы упомянули, время, возвращаемое функциями Win32, находится в формате UTC (Зеленчукского Среднего Времени), поэтому мы должны его корректировать до местного формата времени. В Pascal мы можем использовать unit SysUtils и ее функцию ConvertTime для этого:

function GetFileDate(TheFileName: string): string;
var
  FHandle: TSearchRec;
begin
  if FindFirst(TheFileName + '*.*', faAnyFile, FHandle) = 0 then
  begin
    result := ConvertTime(DateTimeToStr(TDateTime(FHandle.dwCreationTime)), 'UTC', 'LOCAL');
    FindClose(FHandle);
  end else
    result := '';
end;

Обратите внимание, что вам нужно включить unit SysUtils в ваш программный код для использования этой функции. Кроме того, убедитесь, что правильно обрабатывает ошибки, проверяя, возвращает ли FindFirst или FileClose код ошибки.

Вот ваш комментарий о предупреждении о том, что дата создания файла возвращается в формате UTC: вы правы! Это потому, что Windows хранит файловые времена в формате UTC внутренне. Однако функция ConvertTime должна помочь нам с конвертацией для нас.

Функция GetFileDate позволяет получить время создания файла без вызова функции FindFirst, используя функции FileOpen, FileGetDate и DateTimeToStr из библиотеки Win32.

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

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

:: Главная :: Дата и Время ::