Home

Page 250
Page 250
background image

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

В этом разделе я покажу небольшой пример определения IP-адреса, заодно

мы познакомимся с еще одной API-функцией библиотеки WinSock. Воз-

можно, она вам пригодится в будущем.

Сейчас мы напишем пример, в котором программа возвращает все установ-

ленные IP-адреса для сетевых плат или удаленного доступа (). Помимо этого

вы узнаете, как обращаться к компонентам на форме не по имени, а по
"индексу", это очень удобная и нужная возможность.

Для примера бросьте на форму одну кнопку и несколько компонентов

TEdit.

 кнопки создайте обработчик события

 и напишите там:

procedure
type

TaPInAddr

 of

PaPInAddr

var

phe:
pptr: PaPInAddr;

Buffer: Array[0..63] of Char;

I: Integer;

begin

//Инициализация

WSA5tartup($101, GInitData);

//Получаем имя локального компьютера (хоста)

//Получаем указатель на хост

phe :=

if phe = nil then Exit;
//Получаем указатель на массив адресов.

pPtr

I

 0;

//Перечисляем все адреса

while

 <> nil do

begin

//Вывести адрес

 )

Inc(I);

end;

//Закрываем сокет

end;


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

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