XML сетевой запрос/ответ

[Aqel]

Помогите решить задачу:
- Запрос информации: 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>

[Alex11223]

Сообщение от 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

[Aqel]

А с помощью встроенных XML функций, без парсинга XML-ответа ни как?

[Alex11223]

А зачем? Ну Copy, Pos, PosEx и т.п. можно конечно, но это ж неудобно и менее надежно.

[Aqel]

Ок - всем СПАСИБО! Я уже нашёл, что искал и применил как мне надо,
это 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

[p51x]

Так это ж один из вариантов, что вам советовали...