Подключение сетевого диска 2

Delphi , Интернет и Сети , Сетевые диски

Автор: Mystic
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Подключение сетевого диска.

Подсоединяет сетевой диск. Если надо, то производит отключение ранее
подсоединенного диска (опция mndoDisconnect). При отключении диска
можно дополнительно использовать опцию mndoForce для форсирования
отключения сетевого диска.

Если нужно дополнительно указывать имя пользователя и пароль, под
которым необходимо произвести подключения, следует соответсвенным
образом поменять параметры два и три при вызове функции WNetAddConnection2.

Зависимости: Windows
Автор:       Mystic, mystic2000@newmail.ru, ICQ:125905046, Харьков
Copyright:   Mystic
Дата:        5 марта 2003 г.
***************************************************** }

type
  TMapNetworkDriveOption = set of (mndoDisconnect, mndoForce);

function MapNetworkDrive(const NetworkPath: string; Letter: Char;
  Option: TMapNetworkDriveOption = []): DWORD;
var
  NR: TNetResource;
  LocalName: string;
begin
  LocalName := Letter + ':';
  if mndoDisconnect in Option then
  begin
    Result := WNetCancelConnection2(PChar(LocalName), CONNECT_UPDATE_PROFILE,
      mndoForce in Option);
    if Result <> 0 then
      Exit;
  end;
  NR.dwType := RESOURCETYPE_DISK;
  NR.lpLocalName := PChar(LocalName);
  NR.lpRemoteName := PChar(NetworkPath);
  NR.lpProvider := nil;
  Result := WNetAddConnection2(NR, nil, nil, 0);
end;

Пример использования:

MapNetwordDrive('\\MYSTICLAND\Humor', 'H'); 

Привет! Я перевёл текст о коде Delphi, который подключает сеть и мапит ее к локальному драйв-лайтеру.

Типы Первая секция определяет тип TMapNetworkDriveOption, который является множеством (коллекцией флагов), которое может содержать два значения: mndoDisconnect и mndoForce. Эти опции контролируют поведение функции при отключении предыдущего подключения к драйву.

Функция Основная функция, MapNetworkDrive, принимает три параметра: 1. NetworkPath: строка, представляющая собой путь к сети (например, \MYSTICLAND\Humor). 2. Letter: символ, представляющий собой локальный драйв-лайтер для маппинга сети (например, 'H'). 3. Option: необязательный параметр типа TMapNetworkDriveOption, который specifies additional options for disconnecting a previously connected drive.

Функция выполняет следующие шаги: 1. Если установлен флаг mndoDisconnect, она вызывает WNetCancelConnection2 для отмены существующего подключения к локальному драйву и возвращает. 2. Она создает объект TNetResource (NR) с типом RESOURCETYPE_DISK, который указывает, что это ресурс диска. 3. Она устанавливает поле lpLocalName объекта NR в конкатенацию локального драйв-лайтера и двоеточия (например, 'H:'). 4. Она устанавливает поле lpRemoteName объекта NR в путь сети, предоставленный как аргумент. 5. Она вызывает WNetAddConnection2 с объектом NR, который подключает сеть к локальному драйву.

Возвращаемое значение Функция возвращает целочисленное значение DWORD, которое равно 0, если операция была успешной, и не равному 0, если она провалилась.

Пример использования Пример на конце показывает, как использовать эту функцию для подключения пути сети \MYSTICLAND\Humor к локальному драйву H.

Описание статьи - функция MapNetworkDrive в Delphi, которая подключает сетевой диск к компьютеру и может отключать ранее подсоединенный диск.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сетевые диски ::