VPF::Список сетевых дисков на удаленном ПК

progmax

Дата 5.2.2007, 12:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Добрый день уважаемые форумчане!
Сейчас пишу клиент-серверное приложение и хочу в нем реализовать функцию добавления сетевого диска (клиент посылает команду и сервер выполняет ее на удаленном ПК). Неплохо было бы просмотреть список уже подключенных сетевых дисков, а вот как это сделать не знаю.
Подскажите пожалуйста!

Это сообщение отредактировал(а) progmax - 5.2.2007, 13:59

Snowy

Дата 5.2.2007, 12:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Перебирай все диски в системе и проверяй их на DRIVE_REMOTE.

Код


  if GetDriveType('N:\') = DRIVE_REMOTE then ...

Добавлено @ 12:48

Код


function GetNetDrives: string; // Возвращает строку - список букв сетевых дисков
var
  d: dword;
  b: byte;
begin
  result := '';
  d := GetLogicalDrives;
  for b := 0 to 31 do
    if d and (1 shl b) > 0 then
      if GetDriveType(PChar(chr(b+65)+':\')) = DRIVE_REMOTE then
        result := result + chr(b+65);
end;

progmax

Дата 5.2.2007, 12:52 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Snowy @ 5.2.2007, 12:46)

Перебирай все диски в системе и проверяй их на DRIVE_REMOTE.

Код


  if GetDriveType('N:\') = DRIVE_REMOTE then ...

Добавлено @ 12:48

Код


function GetNetDrives: string; // Возвращает строку - список букв сетевых дисков
var
  d: dword;
  b: byte;
begin
  result := '';
  d := GetLogicalDrives;
  for b := 0 to 31 do
    if d and (1 shl b) > 0 then
      if GetDriveType(PChar(chr(b+65)+':\')) = DRIVE_REMOTE then
        result := result + chr(b+65);
end;

Большое спасибо, Snowy!

Буду пробовать.

Snowy

Дата 5.2.2007, 13:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Вот развёрнутый код-пример, выводящий информацию о всех сетевых дисках:

Код


function GetNetDrives: string; // Возвращает строку - список букв сетевых дисков
var
  d: dword;
  b: byte;
begin
  result := '';
  d := GetLogicalDrives;
  for b := 0 to 31 do
    if d and (1 shl b) > 0 then
      if GetDriveType(PChar(chr(b+65)+':\')) = DRIVE_REMOTE then
        result := result + chr(b+65);
end;

function GetNetDrivePath(dr: string): string; // возвращает сетевуй путь подключенного диска
var sz: dword;
begin
  sz := MAX_PATH; SetLength(result, sz);
  WNetGetConnection(PChar(dr+':'), PChar(result), sz);
  result := copy(result, 1, sz);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s: string;
begin
  s := GetNetDrives;
  for i := 1 to Length(s) do
    Memo1.Lines.Add(s[i] + ':  ' + GetNetDrivePath(s[i]));
end;

progmax

Дата 6.2.2007, 12:50 (ссылка)

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

Загрузка ...

Новичок

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

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

Все красиво заработало (большое спасибо Snowy за помощь). Но вот столкнулся с маленькой проблемкой.

1. Клиент посылает на сервер строку:

Код


 Clientsocket1.Socket.SendText('Status_NetDisk');

2. Сервер принимает строку и сравнивает:

Код


if str_send='Status_NetDisk' then
 begin
  ClientSocket1.Host:=Socket.RemoteHost;
  ClientSocket1.Active:=true;
  Proc_Status_NetDisk;
  ClientSocket1.Active:=false;
 end;

3. Процедура Proc_Status_NetDisk с помощью цикла (приведенного выше) отправляет данные клиенту (для этого на серверной части также поместил компонент ClientSocket, а на клиентской - ServerSocket). После чего данные заносятся в ListBox.

Но по какой-то причине приходится 2 раза вызывать оператор Clientsocket1.Socket.SendText('Status_NetDisk') (пункт 1) чтобы данные отобразились в ListBox. При первом нажатии строка "Status_NetDisk" посылается, на сервере идет обработка, но ничего не передается обратно.
Подскажите, пожалуйста, из-за чего это может быть.
Кстати, раньше я тоже сталкивался с подобной ситуацией, но так с ней и не разобрался. Может можна как-то по другому отрганизовать ответ сервера, без поднятия на нем компонента ClientSocket и в свою очередь ServerSocket на клиентской части.

Snowy

Дата 6.2.2007, 12:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Это уже совсем другой вопрос.
Ты принципиально неправильно делаешь.
Зачем тебе второе соединение?! У тебя же уже есть сокет. В него и отправляй.
Никаких вторых клиент-серверов не нужно!
Соединение есть. С ним и работай. В него и отправляй ответ.

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