Home

Page 260
Page 260
background image

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

А теперь посмотрим, как выглядит сама процедура setArpEntry. Ее нет сре-

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

private добавьте для нее следующее описание:

private

{ Private declarations }

procedure

 InetAddr, EtherAddr: string);

Теперь нажмите <Ctrl>+<Shift>+<C>, и Delphi создаст для этой процедуры

заготовку, в которой нужно написать следующее (листинг 5.6).

procedure

 InetAddr, EtherAddr: string);

var

Entry:

begin

//Обнуляю структуру

 0);

//Назначаю IP-адрес

 :=

 <>

//Назначаю физический адрес

 := 6;

 :=

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

IpAddrTable

 о nil);

//Добавляю запись, выводя результат работы

end;

Процедура достаточно сложная, и чтобы ее понять, придется немного по-
стараться. В первой строке заполняется нулями структура Entry, которая


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

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