Определение IP адресса

[Bayazet]

можно ли через дельфи определить ip адресс компьютера?

[KORN]

да сколько ж можно повторять7 сначала ищем сами потом спрашиваем, что тут может быть не понятного... это все неоднократно обсуждалось на форуме и в интернете

uses
  WinSock;

function GetLocalIP: String;
const WSVer = $101;
var
  wsaData: TWSAData;
  P: PHostEnt;
  Buf: array [0..127] of Char;
begin
  Result := '';
  if WSAStartup(WSVer, wsaData) = 0 then begin
    if GetHostName(@Buf, 128) = 0 then begin
      P := GetHostByName(@Buf);
      if P <> nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
    end;
    WSACleanup;
  end;
end;

[Квэнди]

можно и воспользоваться Indy
Вкладка Indy Misc
компонент IdIPWatch
свойство LocalIP

[mihali4]

Точно так. Квэнди указал наиболее разумный вариант.
showmessage(form1.IdIPWatch1.Curren tIP); //инетовский IP
showmessage(form1.IdIPWatch1.LocalI P); //лановский IP

[DOLBY]

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

Точно так. Квэнди указал наиболее разумный вариант.
showmessage(form1.IdIPWatch1.Curren tIP); //инетовский IP
showmessage(form1.IdIPWatch1.LocalI P); //лановский IP

Не у всех будет правильно работать. У меня интернет через ADSL2+ модем и form1.IdIPWatch1.CurrentIP возвращает пустую строку.

[mihali4]

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

Не у всех будет правильно работать. У меня интернет через ADSL2+ модем и form1.IdIPWatch1.CurrentIP возвращает пустую строку.

Если я не ошибаюсь, внешний айпишник присваивается модему, а все после него - локальные... Вернее, даже не модему, а физической линии. И все сидящие на ней будут иметь один айпишник. У меня часто бывает - "С вашего ай-пи уже идет скачивание"...
И узнать внешний айпишник для такого подключения (я так же подключен) можно только у модема (морока) или через WhoIs и т.п.
Например, чистенький айпи можно получить с http://ddns.cis.by/nic/.
Там только несколько тэгов, а основную строку можно запросто выделить.

[Квэнди]

showmessage(form1.IdIPWatch1.Curren tIP); //инетовский IP
showmessage(form1.IdIPWatch1.LocalI P); //лановский IP

не совсем так:
LocalIp определяет основной IP интерфейса по умолчанию.
CurrentIp -переменная, в которой хранится IP адрес до его смены, т.е.:
если в процессе работы программы у вас неа интерфейсе поменялся IP адрес, то LocalIp вернет новый, а currentIp вернет тот, который был до замены. Впроем с алгоритмом работы этого компонента разобраться совсем не сложно, исходный модуль там достаточно лаконичен, хоть и в нескольких местах в стиле Indy абсурден.

[Aragami]

Народ, кто нибудь знает как определить IP адрес VPN PPP адаптера?
IdIPWatch1.LocalIP не определяет
Очень нужно..