Подскажите что не так с 2ip

[AppData]

ничего не работает!

  with Form1.IdHTTP1.Create(nil) do begin
    AllowCookies:=true;
    HandleRedirects:=true;
    Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.154 Safari/537.36';
    Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
    s:=Get('http://2ip.ru/');
    s:=Utf8ToAnsi(s);
    i:=pos('<a title="Посмотреть точное место на карте"',s);    delete(s,1,i+2);
    i:=pos('/>',s); delete(s,1,i+1);
    FormIPaddress.WhereAreYou.Text:=copy(s,1,pos('</',s)-1);
    free;
  end;

[Stilet]

with Form1.IdHTTP1.Create(nil) do begin

Не пиши так. Пиши так:

with TIdHTTP1.Create(nil) do begin

s:=Get('http://2ip.ru/');

Поставь бряк и посмотри что возвращается в s.

[AppData]

Stilet, пустота ничего не возращяется!

[Stilet]

Значит прикрути SSL, поскольку https://2ip.ru/

[AppData]

Stilet, не в службу а в дружбу. помоги собрать код! я что т уже не пойму!

[Stilet]

По аналогии с FTP могу только так показать:

   with TIdHTTP1.Create(nil) do begin
...
    IOHandler:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
     with IOHandler do begin
        Destination :='https://2ip.ru/';
        Host := 'https://2ip.ru/';
        MaxLineAction := maException;
        Port := 433;
        DefaultPort := 0 ;
        ReadTimeout := 60000 ;
        SSLOptions.Mode := sslmUnassigned;
        SSLOptions.VerifyMode := [];
        SSLOptions.VerifyDepth := 0;
     end;
     UseTLS:=utUseRequireTLS;
     s:=Get('http://2ip.ru/');
...

[AppData]

Stilet, совсем не то! жаль что не помогли

[AppData]

ну кто нибудь! выручите

[DIONISKA]

может надо было так:

 Procedure makemegood;
var
 IdHTTP: TIdHTTP;
 SSLIO: TIdSSLIOHandlerSocketOpenSSL;
 s:string;
 i:integer;
begin
  try
    IdHTTP:=TIdHTTP.Create(nil);
    SSLIO:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    IdHTTP.HandleRedirects:=true;
    IdHTTP.IOHandler:=SSLIO;
    IdHTTP.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/33.0.1750.154 Safari/537.36';
    IdHTTP.Request.AcceptLanguage:='ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4';
    s:=idhttp.Get('http://2ip.ru/');
    i:=pos('<a title="Посмотреть точное место на карте"',s);    delete(s,1,i+2);
    i:=pos('/>',s); delete(s,1,i+1);
     FormIPaddress.WhereAreYou.Text:=copy(s,1,pos('</',s)-1);
  finally
    SSLIO.Free;
    IdHTTP.Free;
  end;
end;

[AppData]

DIONISKA, откуда мне взять TIdSSLIOHandlerSocketOpenSSL