Текущий архив: 2007.06.24;
Скачать: CL | DM;

Вниз

TXMLDocument   Найти похожие ветки 

← →
Tetiana   (2007-05-30 11:11) [0]

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

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

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

---

← →
ANB ©   (2007-05-30 11:17) [1]

> Tetiana   (30.05.07 11:11)

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

---

← →
Плохиш ©   (2007-05-30 12:06) [2]

> 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

---

← →
Плохиш ©   (2007-05-30 12:08) [3]

> Плохиш ©   (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;


---

← →
tetiana   (2007-05-30 12:35) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.06.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c