Парсинг сайта

@oxotnik999 · Регистрация: 05.04.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте программисты

Помогите пожалуйста с такой проблемкой: нужно вытащить IP адрес с сайта (http://www.myip.ru/) и занести в какую-нибудь переменную. Заранее спасибо!

@Record222 · 06.04.2010, 16:39

Вот

Delphi

var
A:String;
ip:String;
begin
A:=idhttp1.Get('http://www.myip.ru/get_ip.php?loc=');
Ip:=copy(A,POS('<TITLE>Ваш IP-адрес. Узнать IP адрес, определить IP-адрес, определить свой IP</TITLE><BASE target=_top>', A)+876,13);
Edit1.Text:=ip;

@oxotnik999 · 06.04.2010, 17:53 **[ТС]**

Спасибо большое, все работает

@oxotnik999 3 / 3 / 1 Регистрация: 05.04.2010 Сообщений: 84
		1
	Парсинг сайта 05.04.2010, 22:23. Показов 1764. Ответов 2 Метки нет (Все метки) Здравствуйте программисты Помогите пожалуйста с такой проблемкой: нужно вытащить IP адрес с сайта (http://www.myip.ru/) и занести в какую-нибудь переменную. Заранее спасибо! 0

@oxotnik999 3 / 3 / 1 Регистрация: 05.04.2010 Сообщений: 84
	06.04.2010, 17:53 [ТС]	3
	Спасибо большое, все работает 0

Парсинг сайта

Решение