Home

Page 263
Page 263
background image

256 Глава 5

I: Integer;

begin

Result := -1;

for I

 0 to

 1 do

begin

if

 =

 then

begin

if

 in

then

begin

Result :=

end;

end;

end;

end;

Как видите, она не является частью нашего объекта окна, поэтому ее нужно

дописать где-нибудь выше кода, который ее использует.

В примере все записи будут всегда создаваться для первого интерфейса из

таблицы, но вы можете улучшить код, чтобы записи можно было создавать

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

создать именно то, что вам нужно, а заранее предугадать потребности всех

читателей я не в силах. Но если вы захотите добавить возможность выбора
интерфейса, то вам нужно изменить код на такой:

if Интерфейс о

 then

 :=

else

begin

IpAddrTable :=

 о nil);

 :=

end;

После получения первого адаптера таблицу адресов можно удалять, что и

 С ПОМОЩЬЮ ВЫЗОВа фуНКЦИИ

 IpAddrTable) .

Теперь структура Entry окончательно готова и для добавления записи дос-
таточно вызвать API-функцию

 которая сделает все необхо-


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

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