Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Список сетевых дисков на удаленном ПК

Автор: progmax 5.2.2007, 12:41

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

Автор: 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;

Автор: progmax 5.2.2007, 12:52

Цитата(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

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

Код


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

Все красиво заработало (большое спасибо 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

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