чтение XML

[beemoto]

Помогите плз, уже с ума схожу...
Надо прочитать содержимое тега in_database в данном случае должен вернуть true, если такого тега нет то вернуть должен false(функция булева типа).
использовать pos и тд нежелательно(стандртные компоненты для работы с XML желательно)
вот сам XML:

<?xml version="1.0" encoding="utf-8"?>
	<response>
		<meta>
			<timestamp>2010-03-21T10:34:35+00:00</timestamp>
			<serverid>ebb667fe</serverid>
			<requestid>192.168.0.105.4ba5f63b8e49c7.34267757</requestid>
		</meta>
		<results>
			<url0>
				<url><![CDATA[http://www.cheapukadds.co.uk/images/SARS/Nedbank/index.html]]></url>
				<in_database>true</in_database>
				<phish_id>948253</phish_id>
				<phish_detail_page><![CDATA[http://www.phishtank.com/phish_detail.php?phish_id=948253]]></phish_detail_page>
				<verified>true</verified>
				<verified_at>2010-03-20T10:35:52+00:00</verified_at>
				<valid>true</valid>
			</url0>
		</results>
	</response>

[quit]

Поиском пользоваться пробовали? Темы снизу смотрите...

[beemoto]

Голова болит, помогите кодом на мой xml, я помогу плюсом...

смотрел похожие темы, всеравно ничё непонял...

[ArtInt]

Может проще все таки написать специальные функции для обработки файла. Вот например(не помню точно у какого автора брал пример):
Функция для выяснения тегов:

function TForm1.IsTag(sLine,sTagName: string; var sTagValue: string): boolean;
begin
  if AnsiUpperCase(Copy(sLine,1,Length(sTagName)+2)) = '<'+sTagName+'>' then
  begin
    Delete(sLine,1,Length(sTagName)+2);
    if Copy(sLine,Length(sLine)-(Length(sTagName)+2),Length(sTagName)+3)='</'+sTagName+'>' then
      Delete(sline, Length(sLine)-(Length(sTagName)+2),Length(sTagName)+3);
      sTagValue:=sLine;
      Result:=True
  end
  else
    Result:=False;
end;{IsTag}

Функция для чтения строки:

//чтение строк в файле
function TForm1.Readline(var MIEof: boolean): string;
var
  s:  string;
begin
  Readln(filefor,s);
  MIEof:=eof(filefor) and (FilePos(filefor)=FileSize(filefor));
  Result:=Trim(s);
end;{Readline}

В основном коде пишем какие теги нам надо найти:

 
 bFileend:=eof(filefor);

  try
    while not bFileend do
    begin
      s:=ReadLine(bFileEnd);

      if Uppercase(s)='<DOCUMENT>' then
      begin
        repeat
          if not bFileend then
            s:= ReadLine(bFileEnd);
          if (IsTag(s,'CHCAPTION',tagvalue)) then
          begin
            ChCaption.Checked:=strtobool(tagvalue);
            Continue;
          end;
          if (IsTag(s,'ECAPTION',tagvalue)) then
          begin
            Ecaption.Text:=tagvalue;
            Continue;
          end;
          if (IsTag(s,'CBUSLCAPTION',tagvalue)) then
          begin
            CbUslCaption.ItemIndex:=strtoint(tagvalue);
            Continue;
          end;
{пишем другие теги}
        until (bFileend) or (uppercase(s)='</DOCUMENT>');
      end;
    end;
  finally
    CloseFile(filefor);
  end;

Как видно из кода FileFor : textFile.
Например, ECAPTION - это тег, а tagvalue - его значение.
В коде использовались значения для частного случая, но думая смысл понятен, во всяком случае у меня работает.

[beemoto]

не пойдет, мне нужен пример с работой стандартного компонента:
загрузил-прочитал.
например функция- ввожу имя тега - он возвращает содержимое в моем случае ввожу in_database - он возвращает true

[SolovejK]

Вот тебе с помощью стандартного компонента:

procedure TForm1.Button1Click(Sender: TObject);
begin
  XMLDocument1.Active := true;
  XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName) + '1.xml');
  Edit1.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes['results'].ChildNodes[0].ChildNodes['in_database'].text);
  XMLDocument1.Active := false;
end;

1.xml - это твой xml файл, который находится в папке с программой

Если кроме in_database нужно еще что-то, то добавляешь по аналогии:

procedure TForm1.Button1Click(Sender: TObject);
begin
  XMLDocument1.Active := true;
  XMLDocument1.LoadFromFile(ExtractFilePath(Application.ExeName) + '1.xml');
  Edit1.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes[1].ChildNodes[0].ChildNodes['in_database'].text);
  Edit2.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes[1].ChildNodes[0].ChildNodes['phish_id'].text);
  Edit3.Text := VarToStr(XMLDocument1.DocumentElement.ChildNodes[1].ChildNodes[0].ChildNodes['valid'].text);
  XMLDocument1.Active := false;
end;

[beemoto]

БОООООООООЛЬШОЕ СПАСИБО!
+ в репу!
Если несложно, объясните пожалуйста почему здесь ставится ноль:ChildNodes[0]

[Stilet]

почему здесь ставится ноль:ChildNodes[0]

Ну может потому что первый элемент с нуля начинается.

[SolovejK]

Сообщение от beemoto

Если несложно, объясните пожалуйста почему здесь ставится ноль:ChildNodes[0]

Я специально в 2-х примерах по разному написал чтобы было видно, что можно двумя способами добраться до этих элементов:
1. по названию
2. по индексу (отсчет начинается с нуля)

В твоем случае можно было также написать: ChildNodes[url0]

[beemoto]

SolovejK, спасибо, всё понял еще + в репутацию =)