Определение свободен файл или нет?

[S_Yevgeniy]

Добрый всем день. помогите пожалуйста.
Проблема в следующем мне нужно читать файлы которые формирует другая программа.
Как узнать когда файл свободен, чтобы можно было его читать.
Буду очень признателен за примеры.
Заранее всем большое спасибо!!!

[raxp]

проверить через FileOpen, если хэндл вернет -1, значит занят
зы: есть нюансик, например при формировании баз данных- архивов, размер файла может увеличиваться (т.е. не мгновенно), это нужно учитывать... как у вас вы не упомянули

[S_Yevgeniy]

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

Даже делал чтобы программа выдавала второй файл с таким же именем но с другим расширением. Но почему-то все равно проблемы возникают.
Сделал вариант с проверкой размера в цикле но тогда программа тормозит на мелких файлах.

[raxp]

у меня все равно проскакивает он через этот контроль не свободный файл

если проскакивает, что странно... значит программа их создающая, сначала создает, а потом пишет в них с неэкслюзивным их открытием

Сделал вариант с проверкой размера в цикле но тогда программа тормозит на мелких файлах.

сие странно... а как часто вы проверяете каталог с архивами на наличие новых файлов с проверкой размера каждого?

[S_Yevgeniy]

Я отправляю команду программе в один файл и жду от нее ответа в другой файл. Программа написана сто лет назад еще под ДОС. Мне кажется что файл пишется потом ДОС там что-то мутит в этот момент делфи решает что файл свободен а ДОС начинает писать дальше.

[raxp]

тогда пробуйте временные задержки после появления файла
зы: просто любопытно, не от микроМРВ случаем архивы?

[S_Yevgeniy]

Ну так я так и сделал. Измеряю размер жду потом снова мерею снова жду потом сравниваю три. Вот тут вся проблема на малых файлах я теряю время на ожидание.

[raxp]

есть еще способ, опробуйте... функция ReadDirectoryChangesW покажет какой файл "дергается" в заданной директории... алгоритм такой: сравниваете появление файла и его наличие в возвращаемом результате этой функции, если внешняя программа создающая архив все еще пишет в файл, то файл оставить в покое, если нет, то ваши действия... пример по ReadDirectoryChangesW есть на форуме.
зы: вам придется добавить исключение, чтобы не фиксировать свои же действия (просто проверяйте, если ваш exe, то сброс)

[S_Yevgeniy]

Ну думаю тогда он все равно проскочит так как файл пишется рывками мне преходилось делать задержку до семи секунд.
Думаю это не вариант!!!

[raxp]

Ну думаю тогда он все равно проскочит так как файл пишется рывками мне преходилось делать задержку до семи секунд.
Думаю это не вариант!!!

ну раз пишет рывками (кстати проверьте так ли это через эту функу), то только временные задержки, иначе менять программу их создающую... чем-то нужно "жертвовать"