Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

10th
Ноя

Функция получения разрядов IP адреса

Posted by Chas under Delphi

Rock-n-Rolla

function getint(ip:string;disch:integer):integer;

var

  ipd:integer;

begin

  Result:=0;

  ipd:=inet_addr(pchar(ip));

  if ipd=INADDR_NONE then exit;

  if disch=1 then result:= ord(in_addr(ipd).S_un_b.s_b1);

  if disch=2 then result:= ord(in_addr(ipd).S_un_b.s_b2);

  if disch=3 then result:= ord(in_addr(ipd).S_un_b.s_b3);

  if disch=4 then result:= ord(in_addr(ipd).S_un_b.s_b4);

end;

тема на форуме