Как преобразовать "http://192.168.1.2" в "http://3232235778"

Автор: Roni Havas

Функция, представленная в этом примере может быть и не очень элегантна, зато работает. Функция получает в качестве параметра строку, содержащую IP адрес, и возвращает строку с IP адресом в виде DWord значения. Результат легко можно проверить командой "Ping".

Совместимость: Delphi (все версии)

Обратите внимание, что необходимо добавить "Math" в "Uses" для функции "IntPower";


******************************************************************


Function IP2HEX(OrgIP:String):String;
Var OrgVal:String;       // Сохраняем оригинальное значение IP адреса
    O1,O2,O3,O4:String;  // части оригинального IP
    H1,H2,H3,H4:String;  // шестнадцатиричные части
    HexIP:String;        // Здесь будут собраны все шестнадцатиричные части
    XN:Array[1..8] of Extended;
    Flt1:Extended;
    Xc:Integer;
Begin

// Сохраняем в обратном порядке для простого случая
Xn[8]:=IntPower(16,0);Xn[7]:=IntPower(16,1);Xn[6]:=IntPower(16,2);Xn[5]:=IntPower(16,3);
Xn[4]:=IntPower(16,4);Xn[3]:=IntPower(16,5);Xn[2]:=IntPower(16,6);Xn[1]:=IntPower(16,7);

// Сохраняем оригинальный IP адрес
OrgVal:=OrgIP;  
O1:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));
O2:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));
O3:=Copy(OrgVal,1,Pos('.',OrgVal)-1);Delete(OrgVal,1,Pos('.',OrgVal));
O4:=OrgVal;

H1:=IntToHex(StrToInt(O1),2);H2:=IntToHex(StrToInt(O2),2);
H3:=IntToHex(StrToInt(O3),2);H4:=IntToHex(StrToInt(O4),2);

// Получаем шестнадцатиричное значение IP адреса
HexIP:=H1+H2+H3+H4;  

// Преобразуем это большое шестнадцатиричное значение в переменную Float
Flt1:=0;
    For Xc:=1 to 8 do
    Begin
      Case HexIP[Xc] of
     '0'..'9':Flt1:=Flt1+(StrToInt(HexIP[XC])*Xn[Xc]);
          'A':Flt1:=Flt1+(10*Xn[Xc]);
          'B':Flt1:=Flt1+(11*Xn[Xc]);
          'C':Flt1:=Flt1+(12*Xn[Xc]);
          'D':Flt1:=Flt1+(13*Xn[Xc]);
          'E':Flt1:=Flt1+(14*Xn[Xc]);
          'F':Flt1:=Flt1+(15*Xn[Xc]);
      End;
    End;
Result:=FloatToStr(Flt1);
End;