VPF::Ошибка FileDateToDateTime() - Форум программистов

Stibrus

Дата 28.3.2006, 13:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 2.3.2006

Репутация: нет
Всего: нет

Добрый день!
Может быть, кто-нибудь сталкивался с той проблемой, что FileDateToDateTime ( FileAge ( FileName ) ) иногда ошибается на 1-2 секунды?
И может, кто-нибудь придумал, как это лечить?

Мне надо преобразовать дату модификации в строку, а иного пути выйти на DateTimeToStr нет

Заранее спасибо!

Romikgy

Дата 28.3.2006, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


ChangeDate.Caption := 
      DateTimeToStr(FileDateToDateTime(FileAge(FileList.FileName)));

вот так в хелпе

Цитата(Stibrus @ 28.3.2006, 12:36

)

иногда ошибается на 1-2 секунды?

1. это существено?
2. А как проверяешь что есть ошибка?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Stibrus

Дата 28.3.2006, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 2.3.2006

Репутация: нет
Всего: нет

Задачка, связанная с CVS
CVS считает, что файл изменен, если строка даты/времени файла, хранящаяся в служебном файле CVS/Entries, не совпадает с точностью до секунд с датой/временем изменения файла (с учетом разницы с GMT). На этом ошибка и была поймана - при приведении даты/времени в служебном файле к той дате/времени, которую выдает FileAge, выскакивает ошибка в 1 секунду (один раз заметил 2). Ошибка встречается примерно в 5% случаев.

Это я рассказал к тому, что проблема действительно довольно существенная smile

Это сообщение отредактировал(а) Stibrus - 28.3.2006, 19:50

Poseidon

Дата 28.3.2006, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Обычно, слежение за изменен/не изменен файл делается не по дате последнего изменения, а по контрольной сумме (CRC) файла

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Romikgy

Дата 29.3.2006, 08:57 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Stibrus, давай определимся

Цитата(Stibrus @ 28.3.2006, 18:45

)

если строка даты/времени файла, хранящаяся в служебном файле CVS/Entries

почему ты считаешь что это является правильнее чем

Цитата(Stibrus @ 28.3.2006, 18:45

)

дате/времени, которую выдает FileAge

Это?

Цитата(Stibrus @ 28.3.2006, 18:45

)

с точностью до секунд

И зачем такая точность?

Цитата(Stibrus @ 28.3.2006, 18:45

)

CVS

Я не совсем знаю , что это такое, подозреваю прога для слежения за исходниками, я прав?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 29.3.2006, 09:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(Romikgy @ 29.3.2006, 08:57

)

Я не совсем знаю , что это такое, подозреваю прога для слежения за исходниками, я прав?

Control Version System.
Система контроля версий.

Проверить кто прав легко. Просто взять найденный файл и посмотреть его св-ва, как их показывает винда.
Это и будет правильный результат.

Stibrus

Дата 29.3.2006, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 2.3.2006

Репутация: нет
Всего: нет

Snowy , все совершенно верно, так я и "поймал" ошибку.
2 Romikgy: CVS - система слежения за версиями исходных файлов, крайне полезная когда над проектом работает группа разработчиков.

Немножко углубляясь в задачу, скажу, что мне надо было сделать так, чтобы WinCVS считал файлы неизмененными. Как я уже говорил ранее, путь для этого только один - проставить в служебном файле реальную дату модификации файла. Тут-то и вышел затык - примерно 5% файлов получили погрешность в строке, представляющей эту дату.

Сравнив в Explorer дату/время модификации файла с CVSными, я убедился, что CVS все делает правильно. Отсюда делаю вывод - ошибается приложение на Дельфи.

Далее - два варианта. Либо ошибается FileAge, но (имхо) это просто невозможно, эта функция работает "напрямую" с системой
А явная причина - ошибка пересчета даты/времени из Integer в Float в FileDateToDateTime

В общем, надо делать свою функцию формирования строки на основании даты/времени, возвращаемой FileAge

Это сообщение отредактировал(а) Stibrus - 29.3.2006, 10:52

Romikgy

Дата 29.3.2006, 11:13 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

GetFileAttributesEx
GetFileInformationByHandle
может это поможет?
Добавлено @ 11:16
GetFileTime
CompareFileTime

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Stibrus

Дата 29.3.2006, 17:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 2.3.2006

Репутация: нет
Всего: нет

Помимо GetAge опробованы следующие методы:
1. Через TSearchRec
2. FileGetDate()

Оба дали одинаковый результат (т.е. неудовлетворительный)

Вывод: дело все же в FileDateToDateTime() smile

Snowy

Дата 29.3.2006, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код

function GetFileTimeStr(FileName: string): string;
var
  Handle: THandle;
  FindData: TWin32FindData;
  LocalFileTime: TFileTime;
  st: TSystemTime;
begin
  result := '';
  Handle := FindFirstFile(PChar(FileName), FindData);
  if Handle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(Handle);
    if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
      FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
      FileTimeToSystemTime(LocalFileTime, st);
      result := Format('%2u.%2u.%4u~%2u:%2u:%2u',
              [st.wDay, st.wMonth, st.wYear, st.wHour, st.wMinute, st.wSecond]);
      result := StringReplace(result, ' ', '0', [rfReplaceAll]);
      result := StringReplace(result, '~', ' ', [rfReplaceAll]);
    end;
  end;
end;

Так мы избегаем погрешностей TDateTime, который, как известно Double.
А Double = погрешность.

Stibrus

Дата 29.3.2006, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 2.3.2006

Репутация: нет
Всего: нет

Спасибо, попробую, если все ок - процитирую получившуюся функцию формирования строки в формате CVS (может, кому-нибудь пригодится)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »