Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.09.2011, 08:18   #11
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Скандербег, если бы все было так просто!
задайте себе вполне логичный вопрос "Почему существуют сервисы 2ip.ru, whois.org и т.д. и т.п.?".
Потому, что свой настроящий IP адрес можно ужнать только, если авторизоваться на внешнем сервере и запросить информацию о текущей открытой сессии т.е. сервис открывает ссессию с вами, и тут же даёт информацию о вас(Кто, откуда и зачем).

То, что выдаёт вам ваш код или вызов того же ipconfig /all, живёт, только до ближайшего сетевого оборудования, вашего провайдера, контролирующего эту информацию(Например: маршрутизатор, роутер, прокси-сервер).

veniside, можно забить на это и искать только между тегами.

Последний раз редактировалось Человек_Борща; 05.09.2011 в 08:34.
Человек_Борща вне форума Ответить с цитированием
Старый 05.09.2011, 10:58   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Человек_Борща, согласен с Вами.

Скандербег, Ваш код, как и следовало ожидать, показал мне внутренние локальные IP адреса в моей локалке...
Цитата:
Сообщение от Скандербег
Причем, винда без особых усилий и не обращаясь ни к каким сомнительным сайтам, показывает IP адреса (папка "Сетевые подключения").
а Вы ничего не путаете?! Где это винда может показать ВНЕШНИЙ адрес?!!

Последний раз редактировалось Serge_Bliznykov; 05.09.2011 в 11:04.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 05.09.2011, 15:34   #13
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

Цитата:
То, что выдаёт вам ваш код или вызов того же ipconfig /all, живёт, только до ближайшего сетевого оборудования
это не совсем так, точнее, совсем не так. Часто на машине прописывается реальный IP. Конечно, по соображениям безопастности (и не только), лучше сидеть за NAT, но это уже другой вопрос.

Цитата:
veniside, можно забить на это и искать только между тегами
теги тоже могут меняться. Ставить работоспособность своего кода в зависимость от состояния левой пятки админа левого сайта — не лучшее архитектурное решение.

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

Код:
Почему существуют сервисы 2ip.ru
эти "сервизы" нужны исключительно для склеротичных юзверов, которые не могут вспомнить настройки тырнета или забыли, каким бравзером пользуются, или не могут понять, где они находятся географически.

Цитата:
whois.org
это тут каким боком?
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Старый 05.09.2011, 15:58   #14
GunSmoker
Старожил
 
Регистрация: 13.08.2009
Сообщений: 2,581
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
а Вы ничего не путаете?! Где это винда может показать ВНЕШНИЙ адрес?!!
В частном случае - почему бы и нет? В общем - конечно, нет.

Насчёт левой пятки админов сервисов...

Есть вот такое: http://api.externalip.net/ip/ (описано тут: http://www.externalip.net/api.html ) или такое: http://checkip.dyndns.org/ (где описано - не нашёл).
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
GunSmoker вне форума Ответить с цитированием
Старый 05.09.2011, 16:01   #15
fate
Форумчанин
 
Аватар для fate
 
Регистрация: 17.03.2009
Сообщений: 318
По умолчанию

Цитата:
Часто на машине прописывается реальный IP
бывает такое, но в основном все за nat или прокис. Ну даже если предположить у ТС внешний напрямую присвоен сетевой карте, те варианты что были предложены выше (парсить ответ от сайта) прекрасно будут работать.
Цитата:
IP вашей программе не нужно, даже более того, вредно
ну если ТС задал такой вопрос значит ему нужно.
fate вне форума Ответить с цитированием
Старый 05.09.2011, 17:19   #16
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

> значит ему нужно

ох, не факт ) скорее это из серии "Хочу странного. Зачем? Шоб було".
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Старый 25.01.2016, 22:11   #17
Andreka
Новичок
Джуниор
 
Регистрация: 25.01.2016
Сообщений: 1
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=IdHTTP1.Get('http://scanner.esy.es/ipka.php');
end;
Edit1 на форму кинь и IdHttp1

Последний раз редактировалось Вадим Мошев; 26.01.2016 в 00:10.
Andreka вне форума Ответить с цитированием
Старый 26.11.2016, 13:00   #18
mail22
Новичок
Джуниор
 
Регистрация: 10.06.2014
Сообщений: 2
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
s := Utf8ToAnsi(http.Get(WHOIS_IP));
кидает эксэпшн
mail22 вне форума Ответить с цитированием
Старый 26.11.2016, 13:10   #19
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Бывает.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как защитить внешний жесткий диск? Evgenii(Евгений) Компьютерное железо 4 01.12.2010 16:26
Как определить внешний IP адрес Temafeyo Свободное общение 5 23.10.2010 18:44
Как изменить внешний вид формы? quarty Общие вопросы Delphi 7 10.10.2010 16:18
Как создать внешний файл kostello Общие вопросы C/C++ 2 29.08.2009 23:26
Как прервать внешний цикл? AndreyF Общие вопросы Delphi 15 15.06.2009 17:46