как c 2ip.ru выташить информацию

[raxp]

Трассировка.

tracert к любому внешнему хосту, скажем, к ya.ru даст во втором шаге либо промежуточный шлюз вашего прова, либо самого прова.

[Smagulov85]

Ну как-то так! Грязно, но работает!! мог ошибиться.

unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdHTTP, IdCookieManager, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    procedure myipCook(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  HTTP: TIdHTTP;
  Cook :TidCookieManager;
  myip : TStringStream;
  myMemo: TMemo;
  ck, c, myipg, myipg2, inetp, urlinet, trinet : string;

implementation

{$R *.dfm}

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
myipCook(Sender);
end;

procedure TForm1.myipCook(Sender: TObject);
begin
  HTTP:=TIdHTTP.Create(self);
  Cook:=TidCookieManager.Create(HTTP);
  myip := 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/', myip);
  myipg:=UTF8toANSI(myip.DataString);
  HTTP.Response.RawHeaders.Extract ('Set-Cookie', Memo1.Lines);
  c:=Memo1.Text;
  ck:=Copy(c, 1, Pos('; path=/', c) - 1);
  Delete(myipg, 1, Pos('<th>Имя вашего компьютера:</th>', myipg) + Length('<th>Имя вашего компьютера:</th>') - 1);
  myipg2:=Copy(myipg, 1, Pos('</table>', myipg) - 1);

  Delete(myipg2, 1, Pos('<span class="ip-info-entry__value">', myipg2) + Length('<span class="ip-info-entry__value">') - 1);
  Label8.Caption:=Copy(myipg2, 1, Pos('</span>', myipg2) - 1);

  Delete(myipg2, 1, Pos('<span class="ip-info-entry__value">', myipg2) + Length('<span class="ip-info-entry__value">') - 1);
  Label9.Caption:=Copy(myipg2, 1, Pos('</span>', myipg2) - 1);

  Delete(myipg2, 1, Pos('<span class="ip-info-entry__value">', myipg2) + Length('<span class="ip-info-entry__value">') - 1);
  Label10.Caption:=Copy(myipg2, 1, Pos('</span>', myipg2) - 1);

  Delete(myipg2, 1, Pos('<a title="Посмотреть точное место на карте" href="/geoip/"/?'+ck+'>', myipg2) + Length('<a title="Посмотреть точное место на карте" href="/geoip/"/?'+ck+'>') - 1);
  Label11.Caption:=Copy(myipg2, 1, Pos('</a>', myipg2) - 1);

  Delete(myipg2, 1, Pos('<span class="ip-info-entry__value">', myipg2) + Length('<span class="ip-info-entry__value">') - 1);
  inetp:=Copy(myipg2, 1, Pos('</span>', myipg2) - 1);

  urlinet:=pars('<a href="', inetp, ck+'">' );
  trinet:=pars('<a href="'+urlinet+ck+'">',inetp, '</a>' );
  Label12.Caption:=Trim(trinet);

  Delete(myipg2, 1, Pos('<span class="ip-info-entry__value">', myipg2) + Length('<span class="ip-info-entry__value">') - 1);
  Label13.Caption:=Copy(myipg2, 1, Pos('</span>', myipg2) - 1);
end;

end.

[AppData]

почему не так?

[Smagulov85]

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

почему не так?

Сделай так! и все ок будет

procedure TForm1.FormCreate(Sender: TObject);
begin
 memo1.Clear;
 myipCook(Sender);
end;

!

[AppData]

точно, спасибо