| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TXMLDocument [D7, XP]

Tetiana ©   (2007-05-30 11:11:00) 

Подкажите пожалуйста, как с помощью  TXMLDocument создать следующую XML:

<?xml version='1.0'?>
<tooth isEmpty='true'>
<element id = 0>
<x>56</x>
<y>77</y>
</element>
</tooh>

Буду очень признательна за полезные ссылки или кусочек кода ;)

---

tetiana   (2007-05-30 12:35:00) [1]

большое спасибо, сейчас буду пробовать! :)

---

Плохиш   (2007-05-30 12:08:00) [2]

> Плохиш ©   (30.05.07 12:06) [2]

Пардон поспешил :-)

uses ....., msxmldom;
....
var
   XML: TXMLDocument;
   Child, Child1: IXMLNode;
....
XML := TXMLDocument.Create(self);
try
  XML.Options := [doNodeAutoCreate, doAttrNull, doAutoPrefix, doNamespaceDecl];
  XML.ParseOptions := [];
  XML.DOMVendor := GetDOMVendor('');
  XML.XML.Clear;
  XML.Active := true;
  XML.Version := '1.0';
  XML.Encoding := 'UTF-8';
  XML.StandAlone := 'no';
  Child := XML.AddChild('tooth');
  Child.Attributes['isEmpty'] := true;
  Child := Child.AddChild('element');
  Child.Attributes['id'] := 0;
  Child1:= Child.AddChild('x');
  Child1.Text := '56';
  Child1:= Child.AddChild('y');
  Child1.Text := '77';
  XML.SaveToFile('myfile.xml');
finally
 XML.Free;
end;


---

Плохиш   (2007-05-30 12:06:00) [3]

> Tetiana   (30.05.07 11:11)  


uses ....., msxmldom;
....
var
    XML: TXMLDocument;
    Child: IXMLNode;
....
 XML := TXMLDocument.Create(self);
 try
   XML.Options := [doNodeAutoCreate, doAttrNull, doAutoPrefix, doNamespaceDecl];
   XML.ParseOptions := [];
   XML.DOMVendor := GetDOMVendor('');
   XML.XML.Clear;
   XML.Active := true;
   XML.Version := '1.0';
   XML.Encoding := 'UTF-8';
   XML.StandAlone := 'no';
   Child := XML.AddChild('tooth');
   Child.Attributes['isEmpty'] := true;
   Child := Child.AddChild('element');
   Child.Attributes['id'] := 0;
   Child := Child.AddChild('x');
   Child.Text := '56';
   Child := Child.AddChild('y');
   Child.Text := '77';
   XML.SaveToFile('myfile.xml');
 finally
  XML.Free;
 end;

Для начала пойдёт :-)

> ANB ©   (30.05.07 11:17) [1]


> создавать XML с помощью TXMLDocument - жуткий геморрой.

Приколист

> Заодно можно красиво отформатить.

Нафига, не уже ли ручками разбираешь? 8-O

---

ANB   (2007-05-30 11:17:00) [4]

> Tetiana   (30.05.07 11:11)

Сугубое имхо : создавать XML с помощью TXMLDocument - жуткий геморрой.
Просто запиши в файл как текст и не мучайся. Заодно можно красиво отформатить. А компонент форматировать не хочет.
Вот для парсинга - да. Лучше что то готовое прикрутить, т.к. самому писать довольно долго.

---

Наверх