как узнать внешний айпи

[megostudent]

как узнать свой внешний айпи? мож компонент какой есть?
З.Ы. юзал idipwatch показует ток локалку(

[veniside]

можно пропарсить ответ от http://cmyip.com/ или подобных сайтов
а можно просто спросить у провайдера )

[megostudent]

покажи как парсить)

[Alex11223]

просто спросить у провайдера

звонок провайдеру с этим вопросом +распознавание речи?оО по-моему это совсем не "просто" )

покажи как парсить)

Например, с помощью компонента idHTTP вытянуть куда-нибудь (в memo, например) код сайта и найти там айпи.

[Петррр]

var
  http: TIdHTTP;
  strIP: String;
begin
  http := TIdHTTP.Create(Owner);
  strIP := http.Get('http://cmyip.com/');
  strIP := copy(strIP, pos('My IP Address Is  ', strIP) + 18, 15);
  strIP := Trim(strIP);
  ShowMessage(strIP);
end;

[Serge_Bliznykov]

ну и ещё
тырц
и
Ваш IP адрес

[DeKot]

Установить у себя на компе клиентскую программу DynDNS Updater свой IP и будете знать свой Ай-пишник всегда, даже если он меняется динамически.

[Человек_Борща]

О господи, опять навыдумывали граблей....
Из своего архива скину:
сайт: http://2ip.ru/
Код:

  {-------------------------------------------------------------------------------
    Функция: ParseStr
    Автор:    ArhangeL
    Дата:  2011.01.11
    Входные параметры: str, sub1, sub2: string
    Результат:    string
    Описание: Парсер строки, вытаскивает текст из строки str между тегами sub1, sub2
    Stt входная строка.
    sub1 - открывающий тег.
    Sub2 - закрывающий тег.
  -------------------------------------------------------------------------------}

function ParseStr(str, sub1, sub2: string): string;
var
  st, fin: Integer;
begin
  st := Pos(sub1, str);
  if st > 0 then
  begin
    str := Copy(str, st + length(sub1), length(str) - 1);
    st := 1;
    fin := Pos(sub2, str);
    Result := Copy(str, st, fin - st);
    str := Copy(str, fin + length(sub2), length(str) - 1);
  end;
end;

procedure RuWriteln(const S: string); //Перекодируем стандартный writeln
var
  NewStr: string;
begin
  SetLength(NewStr, Length(S));
  CharToOem(PChar(S), PChar(NewStr));
  Writeln(NewStr);
end;

procedure GetMyInetIP; //Маин процедуре
var
  http: TIdHTTP;
  s: string;
  TruPos: Integer;
begin
  Http := TIdHTTP.Create(nil);
  try
    s := Utf8ToAnsi(http.Get(WHOIS_IP));
    TruPos := AnsiPos('Ваш IP адрес:', s);
    if not (TruPos = 0) then
    begin
      RuWriteln('Ваш внешний интернет IP: ' + ParseStr(s, '<big>', '</big>')); //выводим IP
    end;
  finally
    FreeAndNil(http);
  end;
end;

[veniside]

TruPos := AnsiPos('Ваш IP адрес:', s);

прежде чем кричать про грабли, подумайте, куда можно будет засунуть этот код, если у админа 2ip.ru зачешется левая пятка, и он поменяет эту строку на другую.

Неплох вариант с DynDNS, но, если вам программно понадобилось определить свой внешний IP, на 98% можно утверждать, что вы решаете не ту задачу, или зашли не с того конца.

[Скандербег]

А вопрос так и остался без вразумительного ответа.
Причем, винда без особых усилий и не обращаясь ни к каким сомнительным сайтам, показывает IP адреса (папка "Сетевые подключения").
Ищем способ.
Нашли здесь. Автор некий Чарик (не статья автора - в ней он не совсем прав, а в одном из постов).
Проверяем (Д2010).

uses WinSock;
...
procedure GetIPs;
type
  InAddr = Array[0..10] of PInAddr;
  TInAddr = ^InAddr;
var
  Host: PHostEnt;
  pPtr: TInAddr;
  Buffer: Array[0..63] of Ansichar;
  i: Integer;
  Socket: TWSAData;
begin
  //компонент для отображения выбираем по вкусу; в реальной жизни 
  //можно заменить на TStrings (TStringList) в параметре или результате.
  Form1.ListBox1.Clear; 
  WSAStartup($101, Socket);
  GetHostName(Buffer, SizeOf(Buffer));
  Host := GetHostByName(buffer);
  if Host = nil then Exit;
  pPtr := TInAddr(Host^.h_addr_list);
  i := 0;
  while pPtr^[i] <> nil do begin
    Form1.ListBox1.Items.Add(inet_ntoa(pPtr^[i]^));
    Inc(i);
  end;
  WSACleanup;
end;

Работает. Показывает и сетевой IP и инетовский.
Как выбрать нужный - вопрос, но если это необходимо.
Впрочем, сетевые адреса известны и их легко можно идентифицировать.