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

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

Как узнать имя пользователя (компа) занявшего ресурс? [D7, Win95/98, WinME, NT4, Win2k, WinXP]

НовичокОК ©   (2005-02-15 18:24:00) 

Приветствую, уважаемые.
Проблема такова:
На сервере в расшаренном каталоге лежит файл предположим "1.txt". При запуске прога №1 захватывает его. Если приложение №2 пытается также захватить его, то оно получает "ошибку ввода/вывода 32". Вопрос: как в проге №2 узнать имя пользователя (компьютера) на котором запущена прога №1, заблокировавшая файл???
Вот кусок кода из проги №2:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 FFile : TextFile;
begin
 if OpenDialog1.Execute then
 begin
   try
     AssignFile(FFile,OpenDialog1.FileName);
     if FileExists(OpenDialog1.FileName) then
       Reset(FFile)
     else
       Rewrite(FFile);
   except
     on E: Exception do
     begin
       ShowMessage(E.Message+chr(13)+E.ClassName+chr(13)+IntToStr(IOResult)+chr(13)+IntToStr(IOResult)+chr(13)+ExceptObject.Cla ssName);
// Как бы еще вот тут получить имя нехорошего юзера (компа),
// занявшего файл???
     end;
   end;
 end;
end;

---

TankMan   (2005-03-22 07:37:00) [1]

>>Eraser
А можно и мне примерчик?

---

НовичокОК   (2005-03-21 11:15:00) [2]

А если Юзер1 загрузившись на Компе1 и Компе2 занимает соответственно Файл1 и Файл2, то каким образом можно различить какой файл с какого компа занят? Вышеуказанный пример NetMon из статьи "Мониторинг сетей в Delphi" показывает кто присоединен к ресурсу (имя пользователя, комп), показывает какие ресурсы заняты (имя файла, имя юзера). Как все это связать? Т.е. как определить с какого именно КОМПА занят именно вот ентот файл?

---

Polevi   (2005-02-17 11:57:00) [3]

ShowMessage(E.Message+chr(13)+E.ClassName+chr(13)+IntToStr(IOResult)+chr(13)+IntToStr(IOResult)+chr(13)+ExceptObject.Cla  ssName);
класс
ф-ию Format отменили ?

---

Eraser   (2005-02-16 17:49:00) [4]

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

---

НовичокОК   (2005-02-16 13:35:00) [5]

А есть ли разница в том, где хранится заблокированный файл? На сервере или локально на моем компе? Или методология будет таже?

---

Eraser   (2005-02-15 23:14:00) [6]

На этом сайте, в кладовке (пока её не прекрыли) был пример.
Принимай почту!

---

Наверх