IdHTTPCLient

[Shouldercannon]

Как с помощью IdHTTP считать свой IP например отсюда http://myip.dk/?

[Квэнди]

компонент IdHttp не преднгазначен для такой цели.
Используйте компонент IdIPWatch из вкладки Indy Misc

[Prototype]

Сообщение от Квэнди

компонент IdHttp не преднгазначен для такой цели.
Используйте компонент IdIPWatch из вкладки Indy Misc

С помощью IdIPWatch можно узнать локальный ip, если у него ADSL то ip будет не тот, с которым он путешествует в сети.

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

Как с помощью IdHTTP считать свой IP например отсюда http://myip.dk/?

Эта функция возвратит ваш ip. Кстати её легко можно переделать под другой сайт!

function getip: string;
const
  StartText = '<div class="Box">';
  EndText = '</div>';
var
  http: TIdHTTP;
  StartPos, Leng: integer;
  Response: string;
begin
try
result := '';
http := TIdHTTP.Create(nil);
  try
    Response := HTTP.Get('http://myip.dk/');
  finally
  end;
  StartPos := Pos(StartText, Response) + Length(StartText);
  Response := copy(Response,StartPos,length(Response));
  Leng := Pos(EndText, Response)-1;
  result := Copy(Response, 1, Leng);
  http.Free;
except
 Result := '';
end;
end;

[Shouldercannon]

У меня действительно ADSL. IdIPWatch я уже использовал это не то, что нужно. Он не может показать какой IP у меня в сети, только по локалке. Спасибо за функцию всё работает.

[Роман Радер]

если не офтоп, надо другой адрес использовать, где сразу выдается ip.
например это сайт http://www.whatismyip.com.
для того чтобы программой считать: http://www.whatismyip.com/automation/n09230945.asp. без тегов, без текста, только ip. удобно помоему.
только IdHTTP немного не для этого. но можно использовать

[AXS]

Сообщение от Квэнди

компонент IdHttp не преднгазначен для такой цели.
Используйте компонент IdIPWatch из вкладки Indy Misc

О-о-очень с Вами не согласен...
Вот такая строчка возвратит ip DSL (реальный ip по которому сёрфишь)

MyIP:=idHTTP1.Get('http://www.whatismyip.com/automation/n09230945.asp');

_____________
Роман, сорри... Не увидел твой пост - продублировал...

[Квэнди]

Мда и какое отношение к этому методу имеет IdHTTP ?
компонент IdHttp не позволяет узнать ваш внешний IP адрес, он позволяет загрузить любую страницу в интернете.

[Prototype]

Сообщение от Квэнди

Мда и какое отношение к этому методу имеет IdHTTP ?
компонент IdHttp не позволяет узнать ваш внешний IP адрес, он позволяет загрузить любую страницу в интернете.

Да, отношения никакого, но ведь результат достигнут!!!

[Shouldercannon]

Ни как не разбурусь как отсюда (http://www.whatismyip.com/automation/n09230945.asp) считать свой IP. Если просто поменять адрес в Response:=HTTP.Get, не определяется.

[Квэнди]

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  StdCtrls;

type
  TForm4 = class(TForm)
    Button1: TButton;
    http: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
showmessage('Ваш IP адрес: '+http.Get('http://www.whatismyip.com/automation/n09230945.asp'));
end;

end.