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

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

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

Ответ
 
Опции темы
Старый 02.10.2017, 08:11   #1
Aqel
Пользователь
 
Аватар для Aqel
 
Регистрация: 07.05.2011
Адрес: Пермь
Сообщений: 17
Репутация: 10
Печаль XML сетевой запрос/ответ

Помогите решить задачу:
- Запрос информации: http://api.2ip.ua/geo.xml?ip=8.8.8.8
- Где 8.8.8.8 может быть любым.
- Нужно получит ответ такого типа (в память, не в файл!):

Код:

<geo_api>
	<ip>8.8.8.8</ip>
	<country_code>US</country_code>
	<country>United states</country>
	<country_rus>США</country_rus>
	<region>California</region>
	<region_rus>Калифорния</region_rus>
	<city>Mountain view</city>
	<city_rus>Маунтин-Вью</city_rus>
	<latitude>37.405992</latitude>
	<longitude>-122.078515</longitude>
	<zip_code>94043>/zip_code<
	<time_zone>-07:00</time_zone>
</geo_api>

... и взять от туда, только US в теге <country_code></country_code>
__________________
Всё намного проще, чем есть на самом деле...
Aqel вне форума   Ответить с цитированием
Старый 02.10.2017, 08:55   #2
Alex11223
Модератор
Заслуженный модератор
 
Регистрация: 12.01.2011
Сообщений: 16,332
Репутация: 3200

icq: 512-765
skype: alexp.frl
По умолчанию

Цитата:
Сообщение от Aqel Посмотреть сообщение
Запрос информации: http://api.2ip.ua/geo.xml?ip=8.8.8.8
Любой HTTP клиент. Indy, Synapse, ...
Цитата:
Сообщение от Aqel Посмотреть сообщение
Где 8.8.8.8 может быть любым.
Вы строки конкатенировать не умеете?
Цитата:
Сообщение от Aqel Посмотреть сообщение
и взять от туда, только US в теге
http://www.programmersforum.ru/showthread.php?t=305917
Alex11223 вне форума   Ответить с цитированием
Старый 02.10.2017, 09:35   #3
Aqel
Пользователь
 
Аватар для Aqel
 
Регистрация: 07.05.2011
Адрес: Пермь
Сообщений: 17
Репутация: 10
По умолчанию

А с помощью встроенных XML функций, без парсинга XML-ответа ни как?
__________________
Всё намного проще, чем есть на самом деле...
Aqel вне форума   Ответить с цитированием
Старый 02.10.2017, 09:38   #4
Alex11223
Модератор
Заслуженный модератор
 
Регистрация: 12.01.2011
Сообщений: 16,332
Репутация: 3200

icq: 512-765
skype: alexp.frl
По умолчанию

А зачем? Ну Copy, Pos, PosEx и т.п. можно конечно, но это ж неудобно и менее надежно.
Alex11223 вне форума   Ответить с цитированием
Старый 02.10.2017, 10:04   #5
Aqel
Пользователь
 
Аватар для Aqel
 
Регистрация: 07.05.2011
Адрес: Пермь
Сообщений: 17
Репутация: 10
По умолчанию

Ок - всем СПАСИБО! Я уже нашёл, что искал и применил как мне надо,
это TXMLDocument(XML) с вкладки Internet:

Код:

procedure TForm1.btn3Click(Sender: TObject);
begin
  XMLDocument1.LoadFromFile('http://api.2ip.ua/geo.xml?ip=');
  XMLDocument1.Active:= true;
  edt4.Text:= XMLDocument1.DocumentElement.ChildNodes['country_code'].Text;
  XMLDocument1.Active:= false;
end;

Данный код робит и показывает нужное мне значение: RU

источник: https://parsing-and-i.blogspot.ru/20...ml-delphi.html
__________________
Всё намного проще, чем есть на самом деле...
Aqel вне форума   Ответить с цитированием
Старый 02.10.2017, 10:53   #6
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 11,539
Репутация: 1916

icq: 216409213
По умолчанию

Так это ж один из вариантов, что вам советовали...
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x на форуме   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запрос и ответ из COM порта Desperadoes Общие вопросы Delphi 14 25.11.2013 23:10
Сетевой запрос и отправка файла. attashe Помощь студентам 5 03.11.2013 21:47
Idhttp ответ на post запрос andrejjka Работа с сетью в Delphi 1 30.01.2011 14:41
POST Запрос/Ответ IvanBegin Работа с сетью в Delphi 3 02.11.2010 17:50
скрипт для смс запрос-ответ elias_p PHP 1 16.06.2010 16:22


15:51.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru