Home

Page 262
Page 262
background image

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

 =

 and

(PhysAddrString[6]

 and

(PhysAddrString[9] =

 and

 and

PhysAddrString :=

for I

 0 to 5 do

begin

С

 * 3] ;

V :=

 4;

С :=

 * 3) +

V := V + CharHex(C);

PhysAddr[I]

 V;

end;

end;

Здесь сначала проверяется обязательное присутствие знака "-" в позициях 3,
6, 9, 12, 15. После этого строка преобразовывается к верхнему регистру

и запускается цикл преобразования.

Теперь, когда мы указали длину физического адреса и сам адрес, нужно ука-

зать, что он статичный. Для этого в свойство dwType структуры Entry ука-

зываем КОНСТанту
Следующим этапом нужно указать интерфейс, для которого мы создаем за-
пись. В вашем компьютере может быть несколько сетевых карт, и компью-
тер должен знать, для какой из них будет действовать ARP-запись. Все это

делается в следующем коде:

//Указываем интерфейс

IpAddrTable

 <> nil);

В первой строке мы получаем таблицу IP-адресов с помощью уже знакомой

вам функции

 Если полученная таблица равна

нулю (эту проверку делает вторая строка), то произойдет ошибка.

В третьей строке мы получаем первый адаптер (IP-адрес) из таблицы с помо-

щью функции FirstNetworkAdapter и присваиваем его свойству

 струк-

туры Entry. Функция FirstNetworkAdapter ВЫГЛЯДИТ

 образом:

function

 Integer;


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

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