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 - Курс \
Покупка первой машины в Канаде. Разговор с продавцом диллершипа.