Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 19.01.2017, 21:42   #1
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию Получаем IP адрес из 2ip.ru

ребят помогите отредактировать код. не работает.
Код:
procedure TForm1.Button1Click(Sender: TObject); 
var 
s:string; 
x: integer; 
begin 
S:= Idhttp1.get('http://www.2ip.ru/'); 
S:= Copy(s, Pos( 'd_clip_button">' , s) + 8 , 50); 
x:= pos('<', S); 
S:=Copy (s, 0,x-1); 
showmessage('Ваш ip :'+ S); 
Form1.label1.Caption:='Ваш ip :'+ S; 
end;

Последний раз редактировалось alex0097; 19.01.2017 в 21:45.
alex0097 вне форума Ответить с цитированием
Старый 19.01.2017, 21:45   #2
Alex11223
Заблокирован
 
Регистрация: 12.01.2011
Сообщений: 19,504
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject); 
var 
s:string; 
x: integer; 
begin 
S:= Idhttp1.get('http://icanhazip.com/'); 
showmessage('Ваш ip :'+ S); 
Form1.label1.Caption:='Ваш ip :'+ S; 
end;
Alex11223 вне форума Ответить с цитированием
Старый 21.01.2017, 13:07   #3
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию

Alex11223 спасибо большое. не знаю как поставить +++. вообщем спасибо
alex0097 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получаем массив из интернета FreeZon C# (си шарп) 4 16.07.2014 23:25
Спарсить местоположение с 2ip.ru AppData Работа с сетью в Delphi 4 17.04.2014 09:26
Посылаем запрос на программу и получаем ответ vlastelin PHP 3 22.03.2012 19:48
работа с 2ip.ru и логами mroff Работа с сетью в Delphi 2 27.02.2012 00:09
Получаем html код Черничный Работа с сетью в Delphi 5 04.12.2009 18:13


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS