VPF::подключение к сетевым папкам - Форум программистов

ilya198293

Дата 4.9.2007, 13:51 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 170
Регистрация: 17.3.2007
Где: Сириус, созвездие Большого Пса

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

на серваке есть папка, к которой можно подключиться по логину и паролю...как сделать так, чтоб приложение само подключалось

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

MadCoder

Дата 27.11.2008, 16:41 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

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

Меня этот же вопрос интересует. Как это возможно сделать?

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Matematik

Дата 27.11.2008, 23:26 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Код


procedure TForm1.Button1Click(Sender: TObject);
var
NetResource: TNetResource;
Res: Cardinal;
begin
  { заполняем структуру TNetResource }
  ZeroMemory(@NetResource, SizeOf(NetResource));
  NetResource.dwType       := RESOURCETYPE_DISK;
  NetResource.lpLocalName  := 'K:';
  NetResource.lpRemoteName := '\\192.168.0.100\Films';

  { подключаем сетевой ресурс, используя структуру TNetResource }
  res := WNetAddConnection2(NetResource,
                         '', {Password (if needed) or empty}
                         'Dmitrij', {User name (if needed) or empty}
                         CONNECT_UPDATE_PROFILE);
  If (Res<>NO_ERROR) Then
     Raise Exception.Create('unable to map drive: '+SysErrorMessage(Res))
end;

//так же можно и отключить сетевой ресурс... 
procedure TForm1.Button2Click(Sender: TObject);
begin 
  if WNetCancelConnection2( 'K:',0,TRUE) <> NO_ERROR then
    Raise Exception.create('Error disconnecting map drive');
end;

PS
гугл рулит!

Это сообщение отредактировал(а) Matematik - 27.11.2008, 23:26

ilya198293

Дата 28.11.2008, 06:29 (ссылка)

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

Загрузка ...

Бывалый

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

Это сообщение отредактировал(а) ilya198293 - 28.11.2008, 06:30

--------------------

Недавно пытался объяснить сыну, кто такой модератор. Сошлись на Мойдодыре.

Matematik

Дата 28.11.2008, 11:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

> а без использования монтирования диска

Попробуй не заполнять NetResource.lpLocalName
Цитата из справки:

Цитата

lpLocalName Points to a null-terminated string that specifies the name of a local device to redirect, such as "F:" or "LPT1". The string is treated in a case-insensitive manner.
If the string is empty, or if lpLocalName is NULL, the function makes a connection to the network resource without redirecting a local device.

Если подключится, можно работать как с обычными файлами - FindFirst, CreateFile etc

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