Задачка: как IP адрес '127.0.0.1' кон конвертировать в число

Question

Delphi & Lazarus

DS

Задачка: как IP адрес '127.0.0.1' кон конвертировать в число

тип: Dword or Cardinal ? Прост фунция без проверок

#lazarus #programming #russian

0

11.09.2024

5 ответов

2 просмотра

Igor

inet_addr()

0

6 дней назад

Handatros

чатик: Да, в Delphi есть встроенная функция для конвертации IP-адреса в формат DWORD. Вы можете использовать функцию InetPton из модуля WinSock. Вот пример того, как это сделать: uses SysUtils, Winsock; function IPToDWORD(const IP: string): DWORD; var Addr: TInAddr; begin if InetPton(AF_INET, PAnsiChar(AnsiString(IP)), @Addr) = 1 then Result := Addr.S_un_b.s_b1 or (Addr.S_un_b.s_b2 shl 8) or (Addr.S_un_b.s_b3 shl 16) or (Addr.S_un_b.s_b4 shl 24) else raise Exception.Create('Неверный формат IP-адреса.'); end; var IP: string; DWORDValue: DWORD; begin IP := '127.0.0.1'; try DWORDValue := IPToDWORD(IP); WriteLn('IP-адрес ', IP, ' в формате DWORD: ', DWORDValue); except on E: Exception do WriteLn('Ошибка: ', E.Message); end; end. ▎Объяснение: 1. Функция InetPton: - Эта функция принимает адрес (в формате строки) и преобразует его в структуру TInAddr. - Если преобразование успешно, вы можете извлечь байты адреса и собрать их в DWORD. 2. Основной блок: - Определяет IP-адрес. - Вызывает функцию IPToDWORD и выводит результат. ▎Запуск: Скопируйте этот код в среду разработки Delphi, скомпилируйте и запустите. Вы увидите результат конвертации IP-адреса в формате DWORD.

0

6 дней назад

DS Автор вопроса

Handatros
чатик: Да, в Delphi есть встроенная функция для к...

Стикер

0

6 дней назад

Igor

Handatros
чатик: Да, в Delphi есть встроенная функция для к...

выдумывает

0

6 дней назад