VPF::вопрос про XML - Форум программистов

angelina

Дата 30.11.2006, 14:45 (ссылка)

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

Загрузка ...

Новичок

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

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

у меня файл формируется след. образом:

Код


  Doc:=coDoc.Create;
  Doc.Set_async(false);
  Doc.LoadXML('<s/>');
  r:=Doc.Get_documentElement;

  Node1 := Doc.createElement ( 'enquiryRequest');
  r.appendChild(Node1);

  Node := Doc.createElement ( 'reason');
  txt := Doc.createTextNode(vartostr(reason.KeyValue));
  Node.appendChild(txt);
  node1.appendChild(Node);

получается:
<s>
<enquuiryRequest>
<reason>data</reason>
........
а как мне сделать чтобы выглядело:

<a n = "reason">data</a>

x77

Дата 30.11.2006, 18:43 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 19
Всего: 22

Код


var
  Doc: IXMLDOMDocument;
  RootNode: IXMLDOMElement;
  Node: IXMLDOMNode;
begin
  Doc := CoDOMDocument.Create;
  Doc.Set_async(false);
  Doc.LoadXML('<s/>');

  RootNode := Doc.documentElement;
  Node := Doc.createElement('enquiryRequest');
  RootNode.appendChild (Node);
  Node :=  Doc.createElement('a');
  (Node as IXMLDomElement).setAttribute('n', 'reason');
  Node.text := 'data';
  RootNode.appendChild (Node);

  Memo2.Lines.Text := Doc.xml;
  ...

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

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