Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 23.06.2021
Сообщений: 14
RAD XE3+

XE7 Парсинг 2ip из этого сайта нужен адрес и местоположение

23.06.2021, 18:53. Показов 1672. Ответов 29
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте как можно определить ip адрес и местоположение и отобразить в label ? в интернете вроде бы есть про парсинг но чето они не работают...
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.06.2021, 18:53
Ответы с готовыми решениями:

Спарсить местоположение с 2ip.ru
Я, казалось, решил этот вопрос... Но нет. Мой метод "шаткий" пришлось вернуться опять к регуляркам. Выражение помогли составить, ды и я...

Как получить айпи адрес из 2ip.ru через delphi 7
Помогите пожалуйста мучиюсь найти не могу помощь очень нужна программу решил вот создать получение айпи адреса чтобы не надо было заходить...

2ip.ru Нужен инвайт
Люди добрые, пожалуйста скиньте приглашение) Мое мыло: khabar.oleg(at)gmail.com

29
Эксперт Pascal/Delphi
 Аватар для droider
4893 / 2826 / 867
Регистрация: 04.10.2012
Сообщений: 10,278
26.06.2021, 21:21
Студворк — интернет-сервис помощи студентам
tebim70797, полный бред
0
0 / 0 / 0
Регистрация: 23.06.2021
Сообщений: 14
27.06.2021, 11:04  [ТС]
нашел еще такую штуку но почему то зависает форма при обработке и как можно добавить в таймер чтобы проверяло повторно без зависаний формы?

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure Test(Sender: TObject);
var
  Cli: TNetHTTPClient;
begin
  Cli:=TNetHTTPClient.Create(Nil);
  try
    html:=Cli.Get('https://www.google.com').ContentAsString;
  finally
    Cli.Free;
  end;
end;
0
Эксперт Pascal/Delphi
 Аватар для droider
4893 / 2826 / 867
Регистрация: 04.10.2012
Сообщений: 10,278
27.06.2021, 11:06
tebim70797, я Вам дал решение. То, что находите Вы к задаче не имеет отношения либо частично.
0
0 / 0 / 0
Регистрация: 23.06.2021
Сообщений: 14
27.06.2021, 11:31  [ТС]
новую тему создать ?
0
Эксперт Pascal/Delphi
 Аватар для droider
4893 / 2826 / 867
Регистрация: 04.10.2012
Сообщений: 10,278
27.06.2021, 11:32
tebim70797, зачем?
0
5999 / 4574 / 1096
Регистрация: 29.08.2013
Сообщений: 28,254
Записей в блоге: 3
27.06.2021, 12:16
Цитата Сообщение от tebim70797 Посмотреть сообщение
но почему то зависает форма при обработке
а как думаешь почему она зависает?

Цитата Сообщение от tebim70797 Посмотреть сообщение
и как можно добавить в таймер чтобы проверяло повторно без зависаний формы?
читать про потоки
0
0 / 0 / 0
Регистрация: 23.06.2021
Сообщений: 14
27.06.2021, 13:31  [ТС]
а это как сделать потоки?
0
5999 / 4574 / 1096
Регистрация: 29.08.2013
Сообщений: 28,254
Записей в блоге: 3
27.06.2021, 14:31
этот вопрос подразумевает что нужно броситься писать код, который тебе 100% подойдет или можно его проигнорировать и ты сам справишься с поиском нужной инфы?

если что - на форуме уже все разжевано

например тут
https://www.cyberforum.ru/blog... page3.html
Потоки
Про потоки с нуля

а еще про потоки пишут книги
0
0 / 0 / 0
Регистрация: 23.06.2021
Сообщений: 14
27.06.2021, 21:36  [ТС]
если честно хер пойми что где куда ставить эти потоки может дадите готовый код к этому примеру?

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure Test(Sender: TObject);
var
  Cli: TNetHTTPClient;
begin
  Cli:=TNetHTTPClient.Create(Nil);
  try
    html:=Cli.Get('https://www.google.com').ContentAsString;
  finally
    Cli.Free;
  end;
end;
0
5999 / 4574 / 1096
Регистрация: 29.08.2013
Сообщений: 28,254
Записей в блоге: 3
28.06.2021, 09:14
готовый код могут дать в ветке по фрилансу

по первой ссылке все отлично расписано
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.06.2021, 09:14

Нужен пример PNG из DLL в XE7
Знаю, что похожая тема уже поднималась, но действенное решение так и не было найдено(или у меня руки не от туда растут). В любом случае,...

Местоположение сайта
Добрый вечер. Не обходимо продвинуть сайт по запросу... скажем <i>«Вилка необыкновенная»</i>. Так как запрос очень ВЧ, то...

местоположение альбомов(каталогов?) на странице сайта
У меня есть страница сайта фотогаллерей, мне необходимо ,чтобы добавление новых альбомов проходило по схеме как на рисунках ,желтые метки...

Какой нужен плагин для размещения на сайте местоположение пользователя?
Не знаю понятен ли вопрос, но суть в том, что мне нужно реализовать такую штуку как на сайте мирфактов.ру

Изменяю файл hosts, ставлю напротив сайта ip адрес другого сайта
По идее должен идти редирект на этот самый другой сайт. Например строчка 87.240.156.161 www.kiss.ru должна редиректить сайт www.kiss.ru на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
30
Ответ Создать тему
Новые блоги и статьи
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35".
kumehtar 04.08.2026
С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники).
Hrethgir 04.08.2026
Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701
Argus19 03.08.2026
Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа
Maks 03.08.2026
Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .
Задача предоставления скидок покупателям
Maks 03.08.2026
Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru