Delphi 2010 - Используется ли файл?

Question

У меня есть функция, которая работает нормально, чтобы проверить, используется ли локальный файл. Однако, если я сопоставляю сетевой диск и пытаюсь проверить, используется ли файл с подключенного диска, результат функции всегда будет ложным. Мне нужно подождать, пока большой файл будет скопирован на сопоставленный диск, и после завершения я переименую файл. Если файл не используется, я начинаю выполнять различные действия еще, я жду еще минуту и ​​снова проверю. Как изменить приведенную ниже функцию для работы с сопоставленными файлами дисков, которые постоянно копируются?

Спасибо

function IsFileInUse(FileName: TFileName): Boolean; 
var 
    HFileRes: HFILE; 
begin 
    Result := False; 
    if not FileExists(FileName) then 
    begin 
    showmessage('Fisierul "'+Filename+'" nu exista!'); 
    Exit; 
    end 
    else 
    begin 
    HFileRes := CreateFile(PChar(FileName), 
         GENERIC_READ or GENERIC_WRITE, 
         0, 
         nil, 
         OPEN_EXISTING, 
         FILE_ATTRIBUTE_NORMAL, 
         0); 
    Result := (HFileRes = INVALID_HANDLE_VALUE); 
    if not Result then 
    CloseHandle(HFileRes); 
    end; 
end; 

Answer 1

Что вы заявляете, что CreateFile удается открыть файл в монопольном режиме в то время как другая сторона записи в файл. Возможные пояснения:

1. Вы ошиблись с именем файла, и файл, который вы открываете, не тот, который используется.
2. Другая сторона записывает файл без блокировки. Другими словами, он открыл файл в режиме общего доступа, который позволял другим сторонам читать и писать. Это было бы довольно необычно. Если это так, вам нужно исправить другой процесс.
3. Удаленный файловый сервер поврежден и не соблюдает блокировки. Я считаю это весьма маловероятным.

Я думаю, что окончательная опция может быть отклонена немедленно. Вариант 2 кажется маловероятным. Что оставляет вариант 1. Вы можете заблокировать файл, потому что он не заблокирован.

Я также прокомментирую, что функция является ложной. Вы можете удалить его. Просто попробуйте любую операцию, которую вам нужно выполнить. Если эта операция завершилась неудачно из-за нарушения доступа, вы знаете, что файл заблокирован. Рассмотрим также условие гонки в любом коде, используя эту функцию. Тот факт, что файл разблокирован сейчас, не мешает другой стороне блокировать файл, прежде чем вы сможете что-либо с ним сделать.