Как определить ip адрес компа и вывести его в Label

[tim21701]

Пожалуйста, покажите рабочий пример как определить ip адрес компьютера и вывести его в Label.

ip нужно получить не локальный а внешний...

[tim21701]

Нашел небольшой пример, но он определяет локальный ip:

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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption:=GetLocalIP;
end;

Как сделать тоже самое, но для внешнего???

[Аватар]

http://programmersforum.ru/showthread.php?t=63677

[tim21701]

[Пепел Феникса]

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

[tim21701]

Ну так что, никто этого не знает??? ))

[tim21701]

Сообщение от Пепел Феникса

...внешний в общем то система обычно и не знает, так как он назначается не системой, потому и нужен внешний скрипт.

Как это система не знает, если команда ipconfig /all всё показывает!

[Пепел Феникса]

Megafon - PPP адаптер:

DNS-суффикс этого подключения . . :
Описание . . . . . . . . . . . . : WAN (PPP/SLIP) Interface
Физический адрес. . . . . . . . . : 00-53-45-00-00-00
Dhcp включен. . . . . . . . . . . : нет
IP-адрес . . . . . . . . . . . . : 10.231.104.22
Маска подсети . . . . . . . . . . : 255.255.255.255
Основной шлюз . . . . . . . . . . : 10.231.104.22
DNS-серверы . . . . . . . . . . . : 10.78.72.37
10.78.72.44
Основной WINS-сервер . . . . . . : 10.11.12.13
Дополнительный WINS-сервер. . . . : 10.11.12.14
NetBIOS через TCP/IP. . . . . . . : отключен

уверены?
мой внешний IP начинается на 83, найдете нечто похожее?

[tim21701]

Прошу прощения, перепутал с физическим адресом (то есть с мас) )))
Сейчас думаю, кого лучше парсить... Всякие "самодельные странички" по определению адреса - отпадают, в силу своей недолговечности... Может google взять или Яндекс?

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var IdHTTP: TIdHTTP;
begin
  IdHTTP:=TIdHTTP.Create(Self);
  try
    Label1.Caption:=IdHTTP.Get('http://automation.whatismyip.com/n09230945.asp');
  except
    Label1.Caption:='Error';
  end;
  IdHTTP.Free;
end;

Проверено и стабильно работает и парсить не надо