Скачать: CL | DM;

Конвертировать IP адрес из строки в какой ни числовой тип... ;)   Найти похожие ветки 

← →
Салат   (2007-03-01 10:35) [0]

Подскажите пожалуйста, есть ли готовые функции по переводу IP адреса из строки в числовой тип (longword например) и его восстановление обратно в строковый тип?
Функция для перевода IP в DWord есть, её написал некий Roni Havas (IP2HEX). А вот обратной функции я не нашел...

IP2HEX - http://www.sources.ru/delphi/delphi_convert_normal_ip_to_dword.shtml

---

← →
Dmitrij_K   (2007-03-01 10:43) [1]

CRTSOCK.pas

Function IpToLong(ip:string):LongInt;
var
 x,i:byte;
 ipx:array[0..3] of byte;
 v:integer;
begin
 Result:=0;
 longint(ipx):=0; i:=0;
 for x:=1 to length(ip) do
  if ip[x]="." then begin
   inc(i);
   if i=4 then exit;
  end else begin
   if not (ip[x] in ["0".."9"]) then exit;
   v:=ipx[i]*10+ord(ip[x])-ord("0");
   if v>255 then exit;
   ipx[i]:=v;
  end;
 result:=longint(ipx);
end;

Function LongToIp(Long:LongInt):string;
var
 ipx:array[0..3] of byte;
 i:byte;
begin
 longint(ipx):=long;
 Result:="";
 for i:=0 to 3 do result:=result+IntToStr(ipx[i])+".";
 SetLength(Result,Length(Result)-1);
end;

---

← →
Сергей М. ©   (2007-03-01 10:48) [2]

см. inet_addr(), inet_ntoa() (Winsock.pas)

---

← →
Салат   (2007-03-01 11:03) [3]

Большое спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c