Внешний Ip

[Enemy]

Как програмно узнать свой внешний IP?? Очень нужно помогите Please!

[zetrix]

Хоть и написано что LOCAL IP, но у меня выдаёт внешний:

//В нагрузку выдаёт ещё и имя хоста
function GetLocalIPFromHost(var HostName, IPaddr, WSAErr: string): Boolean;
type
  Name = array[0..100] of Char;
  PName = ^Name;
var
  HEnt: pHostEnt;
  HName: PName;
  WSAData: TWSAData;
  i: Integer;
begin
  Result := False;
  if WSAStartup($0101, WSAData) <> 0 then
    begin
    WSAErr := 'Winsock is not responding."';
    Exit;
    end;
  IPaddr := '';
  New(HName);
  if GetHostName(HName^, SizeOf(Name)) = 0 then
    begin
    HostName := StrPas(HName^);
    HEnt := GetHostByName(HName^);
    for i := 0 to HEnt^.h_length - 1 do IPaddr :=Concat(IPaddr,IntToStr(Ord(HEnt^.h_addr_list^[i])) + '.');
    SetLength(IPaddr, Length(IPaddr) - 1);
    Result := True;
    end
  else
   begin
    case WSAGetLastError of
      WSANOTINITIALISED:WSAErr:='WSANotInitialised';
      WSAENETDOWN      :WSAErr:='WSAENetDown';
      WSAEINPROGRESS   :WSAErr:='WSAEInProgress';
    end;
   end;
   Dispose(HName);
   WSACleanup;
end;

...
var ipad,hostname,err:string;
begin
if GetLocalIPFromHost(ipad,hostname,err) then label1.Caption:=hostname+' : '+ipad;
end;

И ещё: использовано WinSock2!

[Квэнди]

Самое простое если тебе нужно узнать свой IP за NAT-ом, парси страницу на одном из многочисленных сервисов в интенрнете, которые сообщают внешний IP

[Stanislav]

Я думаю тебе это поможет держи исходники: