VPF::Вопрос по WNetAddConnection2 - Форум программистов

Litta

Дата 7.8.2012, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 14.3.2006

Репутация: нет
Всего: 1

Приветствую!
Есть следующая проблемка:
Сделал программку, которая должна класть файл статистики с компьютера пользователя (локальная сеть) на компьютер, выполняющий роль Сервера.
Делал через WNetAddConnection2
Вот пример кода:

Код


netr.dwType:=RESOURCETYPE_DISK;
netr.lpLocalName:= nil; //
netr.lpRemoteName:= PChar('\\10.5.5.1\services');
netr.lpProvider:=nil; //
WNetAddConnection2(netr, PChar('password'), PChar('login'), 0);
FileName:='\\10.5.5.1\services\file.csv';
try
 SL := TStringList.Create;

//тут заполняю StringList нужными данными

 SL.SaveToFile(FileName);
finally
  SL.Free;
end;
WNetCancelConnection2(nil, 0, True);

Код работает, но...
Комп на который должны класться файлы используется в том числе для обмена файлами между пользователями в сети, плюс папка для админов, т.е. в итоге имеем две расшаренные папки Exch - для пользователей и Services - для админов.
Разумеется они разграничены по правам и пользователи не могут залезть к админам.
Файл статистики я хочу класть в Админскую папку.
А теперь собственно проблема: если запустить прогу на компе пользователя - всё работает, файл создается. НО smile

Если перед запуском механизма сохранения просто зайти на Сервер в папку Exch (ну мало ли, файл скопировать и т.п., в течение дня по паре раз юзеры точно лазают), то программа уже не отрабатывает - выдаёт ошибку
Cannot create file ... Отказано в доступе. smile

Если перезагрузиться и снова запустить прогу, не заходя в расшаренную папку - всё Ок, причём даже если после этого уже зайти в пользовательскую папку - всё продолжает работать (правда при этом пользователю становится доступна и админская папку - видимо кэшируется где-то инфа!?)

Подскажите, пожалуйста, в чем может быть проблема и как её забороть?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »