Показать сообщение отдельно
  #11  
Старый 15.04.2011, 08:50
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

-=Virus=-, как получить внешний ip тебе уже выдали. могу лишь подкинуть адрес еще одного xml-сервиса http://www.domaintools.com/research/my-ip/myip.xml
Код:
<?xml version="1.0" encoding="utf-8" ?>
<dnstools>
    <service_provider>DomainTools</service_provider>
    <provider_url>http://www.domaintools.com/</provider_url>
    <date>Fri, 15 Apr 2011 04:54:13 GMT</date>
    <unix_time>1302843253</unix_time>
    <ip_address>92.101.72.142</ip_address>
    <hostname>ip-142-072-101-092.pools.atnet.ru</hostname>
    <blacklist_status>Clear</blacklist_status>
    <remote_port>42037</remote_port>
    <protocol>HTTP/1.1</protocol>
    <connection>TE, keep-alive</connection>
    <keep_alive></keep_alive>
    <country>Russian Federation(RU)</country>
    <country_flag>http://img.domaintools.com/flags/ru.gif</country_flag>
    <city>St. Petersburg</city>
    <region>St. Petersburg City</region>
    <isp>Jsc North-west Telecom Arkhangelsk Branch</isp>
    <proxy>1.1 v1-akamaitech.net(ghost) (AkamaiGHost), 1.1 v1-akamaitech.net(ghost) (AkamaiGHost), 1.1 akamai.net(ghost) (AkamaiGHost)</proxy>
    <proxy_type>Transparent</proxy_type>
    <proxy_ip>192.80.13.52</proxy_ip>
    <proxy_blacklist_status>Clear</proxy_blacklist_status>
    <proxy_country>United States(US)</proxy_country>
    <proxy_country_flag>http://img.domaintools.com/flags/us.gif</proxy_country_flag>
    <proxy_city>Englewood</proxy_city>
    <proxy_region>Colorado</proxy_region>
    <proxy_isp>Ntt America Inc</proxy_isp>
    <user_agent>Opera/9.80 (Windows NT 6.1; U; ru) Presto/2.8.131 Version/11.10</user_agent>
    <language>ru,en;q=0.9,ru-RU;q=0.8</language>
    <accepted_types>text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1</accepted_types>
    <accepted_encodings>gzip</accepted_encodings>
    <accepted_charsets></accepted_charsets>
    <referer></referer>
</dnstools>
тут хоть через Pos/Copy, хоть через Microsoft.XMLHTTP/IXMLDOMDocument/IXMLDOMElement/IXMLDOMNode.
плюс я написал как можно получить локальные ip. первый способ выдает ip сетевушки, второй ip адреса всех сетевых соединений, разделенных ";".
поэтому:
Цитата:
Сообщение от -=Virus=-
А мне нужно если есть доступ в интернет узнать ip внешний, если подключения к интернету нет то определить адрес сетевухи.
меня вводит в ступор)

программа получения информации о внешнем ip:
http://narod.ru/disk/10203748001/IPinfo.exe.html
__________________
Пишу программы за еду.
__________________
Ответить с цитированием