Спарсить местоположение с 2ip.ru

[AppData]

в чем проблема? почему только со второго раза, срабатывает? как сделать так чтобы с первого?!

кроме этого мне ничего не пришло!

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;

[Smagulov85]

Сообщение от AppData

в чем проблема? почему только со второго раза, срабатывает? как сделать так чтобы с первого?!

кроме этого мне ничего не пришло!

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;

Извини писал на скорую руку и криво. Да и в выражениях копаться не хотел!

procedure TForm1.Button1Click(Sender: TObject);
var s, s2, c, ck: string; p: TPregArray; i: integer; MemStre: TStringStream;
begin
  HTTP:=TIdHTTP.Create(self);
  Cook:=TidCookieManager.Create(HTTP);
  MemStre := TStringStream.Create('');
  HTTP.AllowCookies:=true;
  HTTP.CookieManager:=Cook;
  HTTP.Request.Host:='2ip.ru';
  HTTP.Request.Connection:='keep-alive';
  HTTP.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8';
  HTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.154 Safari/537.36';
  HTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
  HTTP.Get('http://2ip.ru/', MemStre);
  HTTP.Response.RawHeaders.Extract ('Set-Cookie', Memo1.Lines);
  c:=memo1.Text;
  ck:=Copy(c, 1, Pos('; path=/', c) - 1);
  s:=UTF8toANSI(MemStre.DataString);
  Delete(s, 1, Pos('<a title="Посмотреть точное место на карте" href="/geoip/"/?'+ck+'>', s) + Length('<a title="Посмотреть точное место на карте" href="/geoip/"/?'+ck+'>') - 1);
  s2:=Copy(s, 1, Pos('</a>', s) - 1);
  Memo2.Text:=s2;
end;

[AppData]

неа, не вышло. ((

вот что у меня получилось см. скрин

var
HTTP : TidHttp;
Cook : TidCookieManager;

и твой код выводит

PHPSESSID=lu58ajsp2746ovjuojnbq06me5; path=/
IP[1397622936]=МОЙ IP АДРЕС; expires=Tue, 15-Jul-2014 04:35:36 GMT; path=/; domain=.2ip.ru

[Smagulov85]

У меня работает! я писал на скорую руку.


вот твои исходники с моими исправлениями

http://yadi.sk/d/0lFdVBwSMY7yb

[AppData]

Спасибо. Тему можно закрывать