Home (Главная)

Page 255 - Страница 255
Page 255
background image

248

Глава 5

Теперь приступим к программированию. Для начала напишем код, который

будет выполняться после нажатия кнопки Обновить (листинг 5.5).

//строка

//Используется для показа заголовка

//Таблица адресов

procedure

 TObject);

Size:

I: Integer;

 DWORD;

IpAddrTable:

begin

Size := 0;

GetIpNetTable(nil, Size, True);

NetTable :=

try

if

 Size, True) =

 then

begin

//Получаем таблицу IP-адресов

IpAddrTable :=

try

//Запоминаем первый интерфейс

Currentlndex

 на интерфейсе

 Currentlndex), Currentlndex]

 Физический адрес

//Для каждой записи ARP

 := 0 to

 - 1 do

begin

NetRow