| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать Ip в формате LongInt [D5, Win95/98, Win2k]

совсем Новенький ©   (2002-03-21 13:25:00) 

Как узнать Ip в формате LongInt если есть в ***.***.***.***

---

Nebula   (2002-03-21 15:54:00) [1]

uses Winsock;
var
IPAddress: Integer;
InAddr: TInAddr;
IpAddrStr: string;
begin
// туда (Int2Str)
InAddr.S_addr := IPAddress;
IpAddrStr := inet_ntoa(InAddr);
/ и обратно (Str2Int)
IPAddress : =inet_addr(PChar(IpAddrStr));
end

---

Alx2   (2002-03-21 13:30:00) [2]


Function IpStrToInt(Const IP: String): Integer;
Function GetNextPart(Var K: Integer): Byte;
Begin
Result := 0;
While (K <= Length(IP)) And (IP[K] <> ".") Do
Begin
Result := 10 * Result + Byte(IP[K]) - Byte("0");
inc(K);
End;
If IP[K] = "." Then inc(K);
End;
Var
Bytes: Array[0..3] Of Byte Absolute Result;
Var K: Integer;
Begin
K := 1;
Bytes[3] := GetNextPart(K);
Bytes[2] := GetNextPart(K);
Bytes[1] := GetNextPart(K);
Bytes[0] := GetNextPart(K);
End;


---

Наверх