Вниз
Скачать: CL | DM;

И снова про копирование файлов, правда теперь по сетке.   Найти похожие ветки 

← →
Толик ©   (2002-05-07 14:19) [0]

Уважаемые мастера. Проблема в следующем:
исходный файл имеет путь, типа
const
Source: pchar = "\\server\host$\folder\file.exe",с доступом только для пользователей ADMIN, для доступа к этому пользователем USER файлу используется:
hSource := CreateFile(Source, GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
в результате чего получается
hSource = INVALID_HANDLE_VALUE.
Подскажите пожалуйста, как обойти эту проблему без перелогинивания или подмапливания диска. Возможно ли такое вообще?


← →
Song ©   (2002-05-07 14:33) [1]

Надо программно расшаривать диск. Пароль известен программе?


← →
Толик ©   (2002-05-07 14:57) [2]

Да, пароль известен, но подмаппивать диск не хотелось бы. А есть какие-нибудь варианты без подмаппивания диска?


← →
Reindeer Moss Eater   (2002-05-07 15:14) [3]

WnetAddConnection(PChar(RemoteName),PChar(Password),nil);


← →
panov ©   (2002-05-07 15:15) [4]

var
fHandle: Integer;
fName: String;
begin
fName := "\\Panov\i\out.log";
fHandle := FileOpen(fName,fmOpenRead);
if fHandle = -1 then ShowMessage("Error")
else
begin
ShowMessage("Ok");
FileClose(fHandle);
end;


← →
Reindeer Moss Eater   (2002-05-07 15:21) [5]

> panov ©
Если логон на ресурс уже был, этот код сработает, иначе надо делать логон


← →
Толик ©   (2002-05-07 16:40) [6]

to Reindeer Moss Eater:
Не хотелось бы, чтобы пользователь USER имел доступ к ресурсу ADMIN"а даже на время копирования файлов. Никак иначе?

to panov ©:
как и ожидалось fHandle = -1

Вопрос скорее всего в использовании дескрипторов безопасности. Кто-нибудь с этими зверями работал?


← →
Reindeer Moss Eater   (2002-05-07 16:46) [7]

Хочется файл, лежащий на админском ресурсе, но не хочется отдавать права на него.

Ну тогда отдавай юзеру этот файл не используя "клиента для сетей Майкрософт"



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c
3-64488
mivv
2002-04-22 20:46
2002.05.20
Index ignore


1-64596
Феликс
2002-05-07 18:09
2002.05.20
Как прочитать из реестра все парметры?


1-64736
Хелп
2002-05-07 10:51
2002.05.20
Хелп !!!!!!!


3-64511
Гаврик
2002-04-23 12:38
2002.05.20
Работа с Interbase базами напрямую без IBServer и BDE.


3-64502
vopros
2002-04-22 13:37
2002.05.20
Где найти компонент DBTree?Бесплатный.




   Наверх