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

Подскажите алгоритм поиска всех компьютеров в локальной сети.   Найти похожие ветки 

← →
Ylia__   (2005-09-09 19:18) [0]

Подскажите алгоритм поиска всех компьютеров в локальной сети.
Сам ничего хорошего не нашёл.

---

← →
Zeqfreed ©   (2005-09-09 19:23) [1]

Ylia__   (09.09.05 19:18)
http://www.google.com/search?num=25&hs=Tg4&hl=en&lr=&client=opera&rls=en&q=%D1%81%D0%BF%D0%B8%D1%81%D0%BE%D0%BA+%D0%BA%D 0%BE%D0%BC%D0%BF%D1%8C%D1%8E%D1%82%D0%B5%D1%80%D0%BE%D0%B2+%D0%B2+%D1%81%D0%B5%D1%82%D0%B8+%2B+delphi&btnG=Search

p.s. ссылку склеить.

---

← →
Ylia__   (2005-09-09 19:52) [2]

Ничего не могу найти. Всё какие-то урывки.

---

← →
Floppy ©   (2005-09-09 20:00) [3]

Можно попробовать:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=32

---

← →
Ylia__   (2005-09-09 20:20) [4]

Только что попробовал.
Error Access Violation

---

← →
cyborg ©   (2005-09-10 07:49) [5]

Сетевое окружение - Отобразить компьютеры рабочей группы.

---

← →
Floppy ©   (2005-09-11 16:30) [6]

>Ylia__   (09.09.05 19:18)  
Я, частности, осуществляю это так:

...
var R:TNetResource;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
LocalNetScan(R, True);
end;

procedure LocalNetScan(Res: TNetResource; Root: boolean);
 var
 hEnum: cardinal;
 nrResource: array[0..512] of TNetResource;
 dwSize: DWORD;
 numEntries: DWORD;
 i: DWORD;
 dwResult: DWORD;
 begin
  if Root = True then
    dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
      0, nil, hEnum)
  else
    dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
      0, @Res, hEnum);
  if dwResult = NO_ERROR then
  begin
    dwSize := SizeOf(nrResource);
    numEntries := DWORD(-1);
    if WNetEnumResource(hEnum, numEntries, @nrResource, dwSize) = NO_ERROR then
    begin
      for i := 0 to numEntries - 1 do
        begin
     If Copy(nrResource[i].lpRemoteName, 1, 2) = "\\" THEN
        if  nrResource[i].lpRemoteName <> nil then
         begin

          If Pos("\", Copy(nrResource[i].lpRemoteName,
                      3, Length(nrResource[i].lpRemoteName))) = 0 then

          Form1.ListBox1.Items.Add(Copy(nrResource[i].lpRemoteName, 3,
            Length(nrResource[i].lpRemoteName) - 2));
         end;
          LocalNetScan(nrResource[i], false);

        end;
      end;
    WNetCloseEnum(hEnum);
  end;
 end;

---

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

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



Память: 0.46 MB
Время: 0.025 c