Получение локального и удаленного IP-адреса и порта в программировании на Delphi

Delphi , Синтаксис , Справочник по API-функциям

Вопрос, поставленный пользователем, заключается в том, как получить структуру sockaddr_in для сокета, чтобы извлечь из нее IP-адрес и номер порта. В контексте задано решение проблемы, которое включает использование функций getsockname для получения локального IP-адреса и порта, к которым привязан сокет, и getpeername для получения удаленного IP-адреса и порта, с которым сокет соединен. Также упоминается, что для корректного представления номера порта необходимо использовать функцию ntohs, которая преобразует порядок байт из сетевого в локальный.

Программирование на языке Object Pascal с использованием среды разработки Delphi предоставляет богатые возможности для работы с сетью, включая создание и управление сокетами. Одной из часто возникающих задач является необходимость получения информации о сокете, такой как локальный и удаленный IP-адреса и номера портов.

Получение локальной информации о сокете

Для получения локальной информации о сокете, включая IP-адрес и номер порта, используется функция getsockname. Эта функция принимает в качестве параметров дескриптор сокета, структуру sockaddr для хранения информации о сокете и размер этой структуры. Структура sockaddr обычно является указателем на TSockAddrIn, который содержит необходимые поля для работы с протоколами IPv4.

function GetLocalSocketPort(const s: TSocket): Word;
var
  Addr: TSockAddrIn;
  Size: Integer;
begin
  Size := SizeOf(Addr);
  getsockname(s, Addr, Size);
  Result := ntohs(Addr.sin_port);
end;

function GetLocalSocketAddress(const s: TSocket): string;
var
  Addr: TSockAddrIn;
  Size: Integer;
begin
  Size := SizeOf(Addr);
  getsockname(s, Addr, Size);
  Result := inet_ntoa(Addr.sin_addr);
end;

Получение удаленной информации о сокете

Для получения информации о сокете, с которым сокет установлен в удаленном режиме, используется функция getpeername. Она аналогична getsockname, но возвращает информацию о конечной точке сокета, с которой установлено соединение.

function GetRemoteSocketPort(const s: TSocket): Word;
var
  Addr: TSockAddrIn;
  Size: Integer;
begin
  Size := SizeOf(Addr);
  getpeername(s, Addr, Size);
  Result := ntohs(Addr.sin_port);
end;

function GetRemoteSocketAddress(const s: TSocket): string;
var
  Addr: TSockAddrIn;
  Size: Integer;
begin
  Size := SizeOf(Addr);
  getpeername(s, Addr, Size);
  Result := inet_ntoa(Addr.sin_addr);
end;

Важно отметить, что поля структуры TSockAddrIn используют сетевой порядок байт, поэтому при преобразовании порта используется функция ntohs, которая преобразует порядок байт из сетевого в локальный.

Эти примеры кода могут быть использованы для создания функций в вашем проекте Delphi, которые помогут извлекать информацию о сокетах, что является важным аспектом в разработке сетевых приложений.

Создано по материалам из источника по ссылке.

Пользователь задал вопрос о получении структуры `sockaddr_in` для сокета в целях извлечения из нее IP-адреса и номера порта, и в контексте предложено решение с использованием функций `getsockname` и `getpeername` для локальных и удаленных адрес

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::