0

Есть xml документ:

<trackers type="array">
<tracker>
<id>3</id>
<name>issues</name>
<default_status id="1" name="new"/>
</tracker>
<tracker>
<id>1</id>
<name>errors</name>
<default_status id="1" name="new"/>
</tracker>
<tracker>
<id>2</id>
<name>utest</name>
<default_status id="1" name="new"/>
</tracker>
</trackers>

Как правильно на delphi его разобрать, чтобы получить все id и name из секции tracker? Желательно с помощью стандартных компонентов, TXMLDocument etc.

1
  • Если вам дан исчерпывающий ответ, отметьте его как верный (галка напротив выбранного ответа). 24 фев 2016 в 10:28

1 ответ 1

1

Есть как минимум 2 способа получить из xml только нужные параметры: задействовать XPath или "пробежаться" самому по элементам.

uses
  Xml.XMLIntf,
  Xml.Xmldom,
  Xml.XMLDoc;

procedure TForm6.btn1Click(Sender: TObject);
var
  XML: IXMLDocument;
  Nodes: IXMLNodeList;
  TrackerNode: IXMLNode;
  i: Integer;
begin
  // загружаем XML из вопроса.
  XML:=LoadXMLData(
  '<trackers type="array"><tracker><id>3</id><name>issues</name><default_status id="1" name="new"/>' +
'</tracker><tracker><id>1</id><name>errors</name><default_status id="1" name="new"/></tracker><tracker>' +
'<id>2</id><name>utest</name><default_status id="1" name="new"/></tracker></trackers>');
  // ====================================
  // способ 1, используем XPath
  Nodes:=SelectNodesX(XML.DocumentElement, '//trackers/tracker/id|//trackers/tracker/name');

  for i := 0 to Nodes.Count-1 do
    Memo1.Lines.Add(Nodes[i].NodeName + ' = ' + Nodes[i].Text);

  Memo1.Lines.Add('==============');

  // ====================================
  // способ 2, выводим сами
  for i := 0 to XML.DocumentElement.ChildNodes.Count-1 do
    begin
      TrackerNode:=XML.DocumentElement.ChildNodes[i];
      // задействовать ChildValues лучше, если вы 100% уверены, что нод существует
      // в любом случае лучше подобное обрамлять проверками типа
      // if Assigned(TrackerNode.ChildNodes.FindNode('id')) then
      Memo1.Lines.Add(TrackerNode.ChildValues['id']);
      Memo1.Lines.Add(TrackerNode.ChildValues['name']);
    end;
end;

Функция, используемая в первом способе для получения результата работы XPath-выражения выглядит так:

function SelectNodesX(xnRoot: IXMLNode; const nodePath: string): IXMLNodeList;
var
  intfSelect: IDomNodeSelect;
  intfAccess: IXmlNodeAccess;
  dnlResult: IDomNodeList;
  intfDocAccess: IXmlDocumentAccess;
  doc: TXmlDocument;
  i: integer;
  dn: IDomNode;
begin
  Result := nil;
  if not Assigned(xnRoot) or not Supports(xnRoot, IXmlNodeAccess, intfAccess) or not Supports(xnRoot.DOMNode, IDomNodeSelect, intfSelect) then
    Exit;

  dnlResult := intfSelect.SelectNodes(nodePath);
  if Assigned(dnlResult) then
    begin
      Result := TXmlNodeList.Create(intfAccess.GetNodeObject, '', nil);
      if Supports(xnRoot.OwnerDocument, IXmlDocumentAccess, intfDocAccess) then
        doc := intfDocAccess.DocumentObject
      else
        doc := nil;

      for i := 0 to dnlResult.length - 1 do
        begin
          dn := dnlResult.item[i];
          Result.Add(TXmlNode.Create(dn, nil, doc));
        end;
    end;
end;

Примечание если предполагается работа кода на разных платформах (Win, iOS, Android) лучше пользоваться вторым способом, поскольку кросс-платформенные парсеры пока не в полном объеме реализуют синтаксис XPath.

1
  • спасибо! сейчас буду пробовать! 24 фев 2016 в 16:09

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.