IP адресс

@spydark91 · Регистрация: 03.03.2011

Author24 — интернет-сервис помощи студентам

Кому не сложно,дайте пожалуйста код,как узнасть и вывести в label адрес своего IP

Humanoid · 03.05.2011, 21:39

Delphi

Function GetLocalIP : String;
Var WSAData: TWSAData;
    P: PHostEnt;
    Name: array[0..$FF] of Char;
Begin
  WSAStartup($0101, WSAData);
  GetHostName(Name, $FF);
  P := GetHostByName(Name);
  Result := inet_ntoa(PInAddr(P.h_addr_list^)^);
  WSACleanup;
End;

@anonimus · 04.05.2011, 11:23

Сообщение от spydark91

адрес своего IP

это ж надо так загнуть ))
используй IdIPWatch с вкладки indy misc

@spydark91 86 / 86 / 13 Регистрация: 03.03.2011 Сообщений: 1,873
		1
	IP адресс 03.05.2011, 20:35. Показов 1126. Ответов 2 Метки нет (Все метки) Кому не сложно,дайте пожалуйста код,как узнасть и вывести в label адрес своего IP 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	04.05.2011, 11:23	3
	Сообщение от spydark91 адрес своего IP это ж надо так загнуть )) используй IdIPWatch с вкладки indy misc 1

IP адресс

Решение