Home

Page 238
Page 238
background image

Сеть на низком уровне

Теперь научимся получать список установленных в системе сетевых уст-
ройств. Я думаю, что это нужно делать по событию onshow для формы

(когда форма появляется на экране). В этом случае проверка будет происхо-

дить только при появлении формы, а потом мы будем только получать ин-

формацию об уже выбранном устройстве.

Где-то я видел утилиту, которая обновляла этот список при каждом обраще-

нии пользователя к любому элементу. Лично я не вижу в этом смысла. Если
вы считаете, что за время выполнения программы список может измениться

(например, включили новое

 то для таких случаев лучше до-

бавить кнопку Обновить и не мучить пользователя бесполезными задержками.

Итак, в обработчике события

 главной формы пишем код из лис-

тинга 5.4.

гройств

procedure

 TObject);

begin

//Очищаем список устройств

//Получить количество устройств

Err:=GetAdaptersInfo(nil, AdapterlnfoSize);

//Если произошла ошибка, то ...

if

 and

 then

begin

exit;

end;

//Получить информацию об устройствах

pAdapterlnfo

 AdapterlnfoSize)

 AdapterlnfoSize);

pAdapt

 pAdapterlnfo;

//Проверяем тип полученного адаптера

while pAdaptonil do

begin

case

 of

 IF TYPE ETHERNET:


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.