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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.06.2014, 12:05   #1
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 246
По умолчанию Внешний IP

В чем косяк? почему не робит?


Код:
var
  site: string;
  n1,n2: integer;
begin
 site:=Form1.IdHTTP1.Get('http://www.myip.ru/get_ip.php?loc=');
 n1:=pos('<TD bgcolor=white align=center valign=middle>',site);
 n2:=pos('</TABLE></TD></TR>',site);
 Form1.Edit1.text := copy(site,n1+45,n2-n1-56);
AppData вне форума Ответить с цитированием
Старый 29.06.2014, 12:20   #2
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

...потому что тупо копировать не нужно, <TD bgcolor=white align=center valign=middle> - этого в коде страницы уже нет.

Цитата:
<body>
<div class="container">
<table class="network-info">
<tr><th>Ваш IP-адрес | <a href="/network/speedtest/">Скорость интернета</a></th></tr>
<tr><td>ip</td></tr>
<tr><th>Имя вашего хоста</th></tr>
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 29.06.2014, 12:25   #3
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

Код:
var t: tidhttp;
    s: string;
    n, k: integer;
begin
 t:= tidhttp.Create(nil);
 s:= t.Get('http://myip.ru');
 k:= posex('<tr><td>', s, pos('<tr><th>Ваш IP-адрес', s));
 n:= posex('</td', s, k);
 caption:= trim(copy(s, k + 8, n-k-8));
 t.Free
end;
дарю.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 29.06.2014, 13:21   #4
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,841
По умолчанию

Можно запросить с этого ресурса http://myexternalip.com/raw И не нужно ничего парсить. В ответе получите свой ip одной строкой.
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.
WorldMaster вне форума Ответить с цитированием
Старый 29.06.2014, 13:36   #5
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 246
По умолчанию

Код:
uses StrUtils;

procedure TForm1.FormCreate(Sender: TObject);
var t: tidhttp;
    s: string;
    n, k: integer;
begin
 t:= tidhttp.Create(nil);
 s:= t.Get('http://myip.ru');
 k:= posex('<tr><td>', s, pos('<tr><th>??? IP-?????', s));
 n:= posex('</td', s, k);
 caption:= trim(copy(s, k + 8, n-k-8));
 t.Free
end;

Последний раз редактировалось AppData; 29.06.2014 в 18:16.
AppData вне форума Ответить с цитированием
Старый 29.06.2014, 13:47   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Можно:
Код:
begin
 with tidhttp.Create(nil) do begin
  caption:=Get('http://myexternalip.com/raw');
  Free;
 end;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[РЕШЕНО] ПК не видит внешний ЖД Вадим Мошев Компьютерное железо 5 03.09.2011 23:12
внешний носитель dron032 Компьютерное железо 2 09.08.2011 20:29
Определяем внешний IP xil Общие вопросы .NET 15 31.07.2010 19:24
Внешний и Внутренний IP Пепел Феникса Win Api 7 09.02.2010 15:38
Внешний Ip Enemy Работа с сетью в Delphi 3 20.11.2007 01:00