|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.04.2014, 08:44 | #1 |
Форумчанин
Регистрация: 20.09.2013
Сообщений: 248
|
Спарсить местоположение с 2ip.ru
в чем проблема? почему только со второго раза, срабатывает? как сделать так чтобы с первого?!
кроме этого мне ничего не пришло! procedure TForm1.Button1Click(Sender: TObject); var s: string; p: TPregArray; i: integer; begin s:=IdHTTP1.Get('http://2ip.ru/'); s:=Utf8ToAnsi(s); memo2.Text:=s; if preg.match_all('/<a.+?href="/geoip/"\s*/>(.+?)</a>/i',s,p) then begin memo1.Text:=p[1][0]; p.free; end else Button1Click(nil); end; |
15.04.2014, 15:32 | #2 | |
Форумчанин
Регистрация: 22.11.2009
Сообщений: 142
|
Цитата:
Код:
Если помог: Нажми Весы и оставь отзыв!!!
|
|
16.04.2014, 08:36 | #3 |
Форумчанин
Регистрация: 20.09.2013
Сообщений: 248
|
неа, не вышло. ((
вот что у меня получилось см. скрин Код:
Код:
|
16.04.2014, 09:53 | #4 |
Форумчанин
Регистрация: 22.11.2009
Сообщений: 142
|
У меня работает! я писал на скорую руку.
вот твои исходники с моими исправлениями http://yadi.sk/d/0lFdVBwSMY7yb
Если помог: Нажми Весы и оставь отзыв!!!
|
17.04.2014, 09:26 | #5 |
Форумчанин
Регистрация: 20.09.2013
Сообщений: 248
|
Спасибо. Тему можно закрывать
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
2ip.ru - Скорость интернет соединения | _ZixeL_ | Работа с сетью в Delphi | 6 | 02.12.2012 14:10 |
работа с 2ip.ru и логами | mroff | Работа с сетью в Delphi | 2 | 27.02.2012 00:09 |
Разбор таблицы на сайте 2ip.ru | Человек_Борща | Работа с сетью в Delphi | 2 | 24.01.2011 02:10 |
Местоположение формы | phphel | Общие вопросы Delphi | 18 | 26.08.2010 14:29 |
TRichViewEdit - местоположение курсора? | Алексей_C | Общие вопросы Delphi | 2 | 30.10.2007 20:55 |