Как определить ip адрес компа и вывести его в Label

[tim21701]

Сообщение от Аватар

...Проверено и стабильно работает и парсить не надо

Да, несомненно. Хотя, можно и с парсингом:

procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHTTP;
  strIP: String;
begin
  http := TIdHTTP.Create(Owner);
  strIP := http.Get('http://cmyip.com/');
  strIP := copy(strIP, pos('My IP Address Is  ', strIP) + 18, 15);
  strIP := Trim(strIP);
  Label1.Caption:=strIP;
end;

Вопрос в том, как долго эти оба сайта просуществуют... Если файл n09230945.asp из Вашего примера админ решит изменить или просто переместить (обновление сайта и прочее) то, пример этот работать уже не будет. Думаю, что обращаться надо к более "компетентным" что ли сайтам... Или пофик? ))

[tim21701]

Чёрт с ними... А как вообще это, прикрутить к своему сайту? Залить скрипт на сервер в какую нибудь папку и брать значения ip от туда... У кого есть подобный скрипт???

[tim21701]

Всё. Вопрос решен.



Осталось только рядом вывести ip сервера - к которому подключена программа... Но, это уже ерунда.
Всем спасибо.

Тему можно закрыть. ))