VPF::TXMLDocument работа с ENTITY - Форум программистов

1000000dollars

Дата 24.10.2009, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 6.10.2007

Репутация: нет
Всего: 8

Господа и дамы, работаю с 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);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »