DELPHI СПИСОК КОМПЬЮТЕРОВ В СЕТИ

Delphi предоставляет удобный функционал для работы с сетевыми устройствами, в том числе для получения списка компьютеров в сети. Для этого можно использовать класс TNetWork, который содержит ряд методов для работы с сетевыми интерфейсами.

Один из простых способов получить список компьютеров в локальной сети - это отправить широковещательный запрос на UDP порт 137. Этот порт используется для NetBIOS Name Service, который позволяет получать имена компьютеров в сети. Пример кода:

var Network: TNetWork; Computers: TStrings;begin Network := TNetWork.Create; try Computers := TStringList.Create; try Network.GetNetworkParams; Network.NetBios(NameQueryBroadcast, '', Computers); for var i := 0 to Computers.Count - 1 do Writeln(Computers[i]); finally Computers.Free; end; finally Network.Free; end;end;

Данный код отправляет широковещательный запрос на UDP порт 137, чтобы получить список компьютеров в локальной сети. Полученные имена компьютеров сохраняются в объекте TStringList и выводятся на экран.

Стоит отметить, что данный способ получения списка компьютеров может не работать в некоторых сетях, если блокирован UDP порт 137 или не поддерживается NetBIOS Name Service. В таких случаях можно попробовать использовать другие методы класса TNetWork, например, GetAdapterInfo.

Delphi мертв?

Введение в компьютерные сети глазами админа: логический уровень передачи данных

Delphi DS150E. Мнение диагноста.

Мультимарочный сканер Autocom CDP / Delphi Ds150e

Бесплатно, удаленно контролировать все компьютеры в вашей сети

Total Network Monitor 2: мониторинг сетей. Отслеживайте работу компьютеров и серверов.

Протокол IMAP - Курс \

Покупка первой машины в Канаде. Разговор с продавцом диллершипа.

Реклама
Новое
Реклама