| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Доступ к файлу [D7, Win2k]

Onix1970 ©   (2005-04-22 10:29:00) 

Доброго времени суток уважаемые. Подскажите пожалуйста как узнать занят ли файл каким либо другим процессом или нет?

---

onix1970   (2005-04-22 15:35:00) [1]

Всем большое спасибо. Разобрался

---

Alexander Panov   (2005-04-22 13:15:00) [2]

onix1970 ©   (22.04.05 12:33) [5]

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

---

xShadow   (2005-04-22 12:45:00) [3]

{$HINTS OFF}
Function CheckRW( const FileName: String ): Boolean;
var F : File;
   FM: Integer;
Begin
   FM := FileMode;
   FileMode := 2;
   AssignFile( F, FileName );
   {$I-}ReSet( F, 1 );{$I+}
   Result := IOResult = 0;
   if not Result then
   Begin
      FileMode := FM;
      Exit;
   end;
   {$I-}CloseFile( F );{$I+}
   Result := IOResult = 0;
   FileMode := FM;
end;
{$HINTS ON}

Работала сия конструкция ещё в паскале

---

Юрий Зотов   (2005-04-22 12:34:00) [4]

> onix1970 ©   (22.04.05 11:36) [2]

См. [1] и [3]. Там все верно.

---

onix1970   (2005-04-22 12:33:00) [5]

Моя прога каждые 10 мин. сканирует БД на предмет изменения. Если есть, то дописывает в файл эти изменения. Есть другая прога (не моя), которая следит не подключился ли клиент по модему. Как только происходит подключение, то эта прога начинает передавать этот файл. Вот в связи с этим и возник вопрос. Ведь запросто они могут в одно и тоже время "захотеть" получить доступ к файлу. Мне нужно узнать, если файл заняла прога для передачи, то погодить с обновлением.

---

Alexander Panov   (2005-04-22 12:05:00) [6]

onix1970 ©   (22.04.05 11:36) [2]
Файл уже есть и он допустим занят блокнотом или другой программой.

Блокнот/Notepad никогдане захватывает файл, как, впрочем, и многие другие программы.
Файл захватывается на короткое время для загрузки в память и закрывается.

---

Fay   (2005-04-22 11:38:00) [7]

[1] + F1

---

onix1970   (2005-04-22 11:36:00) [8]

Не совсем то. Файл уже есть и он допустим занят блокнотом или другой программой. Моя прога тоже пытается получить доступ к файлу, чтобы дописать в него. Я так думаю произойдет ошибка. Каким образом отловить и обработать это исключение ?

---

Fay   (2005-04-22 11:26:00) [9]

CreateFile('c:\boot,ini', 0, 0, nil, OPEN_EXISTING, 0, 0)

---

Наверх