Как в Delphi определить свой внешний IP?

Question

[Docbrain]

Доброе время суток. Я хотел бы знать, как в Delphiузнать свой внешний IP? Компонент IdIPWatch, мне не подходит, так как позволяет узнать только локальный IP. Дурацкие решение типа парсинга (вот уж где истинный ФГМ!), тоже прошу не предлагать.
Поиски решения в Сети, равно как и вопросы на других ресурсах по программированию, желаемого результата не принесли. На вас последняя надежда.
Заранее благодарен.

Answer 1

[Андрей]

Если Вы имеете в виду ситуацию, когда Ваш компьютер находится за NAT, то никак без участия какого-либо внешнего сервиса.
icanhazip.com
checkip.dyndns.org
Яндекс
и т.п.

Answer 2

[Dimonchik]

у вас две внешних сети, какой именно внешний ИП нужен?

всегда определяется запросом к внешнему серверу, можете не парсить )))

Comments

[Docbrain]

Мне нужен тот IP, который видишь, когда открываешь вот эту страницу: https://2ip.ru

Answer 3

[Docbrain]

Собственно, я создаю сервер. И мне нужно, чтобы он как-то определял IP, на котором сидит. Не вводить же каждый раз вручную?

Comments

[ORTOL]

Вы создаёте сервер ??? Мммда, да, представляю ...
Если под именем создания сервера вы имеете ввиду что бросили компонент ServerSocket на форму то это очень смешно ... Так как этого не достаточно ... У серверов другие конфигурации подключения к интернету ... Сервер должен иметь ПРЯМОЕ подключение к интернету если через Wi-Fi то опять таки там должны быть ОСОБОЕ подключение а именно подключение Bridge (Мост) ... Лучше займись уроками ...

[Docbrain]

У вас на Wi-Fi фиксация? Я использую IdHTTPServer, а не SocketServer.

[ORTOL]

Docbrain: Вы не понимаете. Не важно что вы используете. Дело в том что бы определить ваш внешний IP ваше соединение должно быть настроено особым образом.
Вот на пример у меня так ... У меня кабельный интернет, я его втыкаю в Wi-Fi. Но когда мне нужно ПРЯМОЕ подключение то я этот шнур отключаю от Wi-Fi и подключаю на компьютер и в таком порядке мой внешний IP определяется должным образом ...

Но тут маленький нюанс мой провайдер регистрирует MAC адрес при первом подключение. И поэтому у него там сохранено MAC адрес моего Wi-Fi а не компьютера ... Поэтому что бы всё работало я на компьютере меняю MAC адрес на тот что у моего Wi-Fi. И всё работает ...

Тут главный вопрос в том Каком образом вы выходите в интернет ?
Всё зависит от этого.

Answer 4

[Chvalov]

Попробуй!

uses
  idHTTP;

function GetMyRealIP : String;
var
  HTTP    : TidHTTP;
  text    : String;
  lc_pos  : Integer;
begin
  HTTP := TidHTTP.Create(nil);
  try
    text := HTTP.Get('http://whatismyip.com/');
  finally
    HTTP.Free;
  end;
  lc_pos := Pos('WhatIsMyIP.com</title>', text);
  text   := Copy(text, 1, lc_pos-1);
  lc_pos := Pos('Your IP is', text);
  text   := Copy(text, lc_pos + 10, length(text) - lc_pos + 1);
  Result := Trim(text);
end;