Форум: "Сети";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];
ВнизКак узнать имя пользователя (компа) занявшего ресурс? Найти похожие ветки
← →
НовичокОК (2005-02-15 18:24) [0]Приветствую, уважаемые.
Проблема такова:
На сервере в расшаренном каталоге лежит файл предположим "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;
← →
Eraser © (2005-02-15 23:14) [1]На этом сайте, в кладовке (пока её не прекрыли) был пример.
Принимай почту!
← →
НовичокОК (2005-02-16 13:35) [2]А есть ли разница в том, где хранится заблокированный файл? На сервере или локально на моем компе? Или методология будет таже?
← →
Eraser © (2005-02-16 17:49) [3]НовичокОК
Если к локальному файлу пытаются получить доступ с этого же компьютера через сетевое окружение, тогда будет.
← →
Polevi © (2005-02-17 11:57) [4]ShowMessage(E.Message+chr(13)+E.ClassName+chr(13)+IntToStr(IOResult)+chr(13)+IntToStr(IOResult)+chr(13)+ExceptObject.Cla ssName);
класс
ф-ию Format отменили ?
← →
НовичокОК © (2005-03-21 11:15) [5]А если Юзер1 загрузившись на Компе1 и Компе2 занимает соответственно Файл1 и Файл2, то каким образом можно различить какой файл с какого компа занят? Вышеуказанный пример NetMon из статьи "Мониторинг сетей в Delphi" показывает кто присоединен к ресурсу (имя пользователя, комп), показывает какие ресурсы заняты (имя файла, имя юзера). Как все это связать? Т.е. как определить с какого именно КОМПА занят именно вот ентот файл?
← →
TankMan © (2005-03-22 07:37) [6]>>Eraser
А можно и мне примерчик?
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2005.06.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c