Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > TXMLDocument работа с ENTITY

Автор: 1000000dollars 24.10.2009, 22:55

Господа и дамы, работаю с XML, который содержит внутренние сущности, используя TXMLDocument. Мне надо получить данные из этого документа с раскрытием сущностей. В связи с этим два вопроса:
1) Как получить соответствия между именем сущности и её значением?
2) Как заставить TXMLDocument раскрывать сущности?

Дополнительная информация:

Пример XML

Код


<?xml version='1.0' encoding='UTF-8'?>
<!DOCTYPE techbook [
<!ENTITY cmd_code_start "0x00">
<!ENTITY cmd_code_stop "0x01">]>
<commands>
  <command>
    <cmd>Start</cmd>
    <code>&cmd_code_start;</code>
  </command>
  <command>
    <cmd>Stop</cmd>
    <code>&cmd_code_stop;</code>
  </command>
</commands>

Как обрабатываю дерево:

Код


//  объявляю
VAR
doc: TXMLDocument;

// обхожу дерево
PROCEDURE   Ent (XmlNode: IXMLNode);
var
  I: Integer;

begin
  case XmlNode.NodeType of
    ntEntityRef      : ShowMessage ('EntRef: '+XmlNode.NodeName); // это срабатывает
    ntEntity         : ShowMessage ('Ent: '+XmlNode.NodeName); // а это нет
  end;

  if XmlNode.HasChildNodes then
    for I := 0 to xmlNode.ChildNodes.Count - 1 do
      Ent (xmlNode.ChildNodes.Get(i));
end;

// вызываю
Ent(doc.DocumentElement);