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

← →
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

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

>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;

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