Вывод данных из БД в XML формат

[Azrael2155]

Сам вывод у меня работает, но не в том виде, что хотелось бы...

код вывода такой:

procedure TXML_Main.LoadToXMLClick(Sender: TObject);

var
   Doc: IXMLDocument;
   Node, Cnode: IXMLNode;
begin
  Doc := NewXMLDocument;
  Node := Doc.AddChild('ArrayOf'+edit1.Text);
  doc. GeneratePrefix()

 xml_dm.ADODataSet1.First;
 while not xml_dm.ADODataSet1.eof do begin

 Cnode := Node.AddChild(Edit1.text);

 if xml_dm.ADODataSet1.FindField('Parent')<>nil then begin

  Cnode.addchild('id').Text:= xml_dm.ADODataSet1.FieldByName('ID').AsString;
  Cnode.AddChild('Name').Text := xml_dm.ADODataSet1.FieldByName('Name').AsString;
  Cnode.AddChild('Parent').Text := xml_dm.ADODataSet1.FieldByName('Parent').AsString;
    xml_dm.ADODataSet1.Next;
 end else begin

  Cnode.addchild('id').Text:= xml_dm.ADODataSet1.FieldByName('ID').AsString;
  Cnode.AddChild('Name').Text := xml_dm.ADODataSet1.FieldByName('Name').AsString;
    xml_dm.ADODataSet1.Next;

 end;
  end;
     if saveDialog1.Execute then
     doc.SaveToFile(Savedialog1.FileName);
  end;

и вывод выглядит так:

PHP код:

<?xml version="1.0"?>
<ArrayOfSpeciality>
 <Speciality>
   <id>44</id>
    <Name>Немедицинские специальности</Name>
      <Parent/>
 </Speciality>
 <Speciality>
   <id>45</id>
    <Name>ФИЗИКО-МАТЕМАТИЧЕСКИЕ НАУКИ</Name>
     <Parent>44</Parent>
 </Speciality>
 <Speciality>
   <id>46</id>
    <Name>Математика</Name>
     <Parent/>
 </Speciality>
</ArrayOfSpeciality>

вот, а нужно, что бы было вот так

PHP код:

<?xml version="1.0"?>
<ArrayOfSpeciality xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
 <Speciality>
   <id>44</id>
    <Name>Немедицинские специальности</Name>
      <Parent xsi:nil="true"/>
 </Speciality>
 <Speciality>
   <id>45</id>
    <Name>ФИЗИКО-МАТЕМАТИЧЕСКИЕ НАУКИ</Name>
     <Parent>44</Parent>
 </Speciality>
 <Speciality>
   <id>46</id>
    <Name>Математика</Name>
     <Parent xsi:nil="true"/>
 </Speciality>
</ArrayOfSpeciality>

Тобешь хотелось бы, чтобы выводилась шапка "<ArrayOfSpeciality xmlns:xsd="http..." и Parent если отсутсвует в таблице то писал "<Parent xsi:nil="true"/>"



Помогите, люди добрые )

[eval]

при создании рута надо и указывать ваши схемы.

что касается парента, то сделать вложенным и выбросить парент как таковой

[Azrael2155]

Прости, не понял, как это выбросить парент ? и на счет рута тоже не догнал ))) я еще нубас в этом деле просто )

[eval]

рут это у вас ArrayOfSpeciality

а вложенным так

<ArrayOfSpeciality xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
 <Speciality>
   <id>44</id>
    <Name>Немедицинские специальности</Name>
    <Speciality>
      <id>45</id>
      <Name>ФИЗИКО-МАТЕМАТИЧЕСКИЕ НАУКИ</Name>
    </Speciality>
 </Speciality>
 <Speciality>
   <id>46</id>
    <Name>Математика</Name>
  </Speciality>
</ArrayOfSpeciality>

[Azrael2155]

Я вводил схемы, которые надо, но он ругается на двоеточия, запятые и так далее.

[Azrael2155]

Все сделал, все работает )

если кому то понадобится сделал так:

PHP код:

procedure TXML_Main.LoadToXMLClick(Sender: TObject);

var
   Doc: IXMLDocument;
   Node, Cnode: IXMLNode;

begin
  doc := NewXMLDocument;
   Node := Doc.AddChild('ArrayOf'+edit1.Text);
    doc.Version := '1.0';
    doc.StandAlone := 'no';
    doc.DocumentElement.Attributes['xmlns:xsd'] := 'http://www.w3.org/2001/XMLSchema';
    doc.DocumentElement.SetAttributeNS('xmlns:xsi','', 'http://www.w3.org/2001/XMLSchema-instance');
      xml_dm.ADODataSet1.First;
while not xml_dm.ADODataSet1.eof do begin

 Cnode := Node.AddChild(Edit1.text);

 if xml_dm.ADODataSet1.FindField('Parent')<>nil then begin

  Cnode.addchild('ID').Text:= xml_dm.ADODataSet1.FieldByName('ID').AsString;
  Cnode.AddChild('Name').Text := xml_dm.ADODataSet1.FieldByName('Name').AsString;

 if xml_dm.ADODataSet1.FieldByName('Parent').AsString<>'' then
    Cnode.AddChild('Parent').Text := xml_dm.ADODataSet1.FieldByName('Parent').AsString
    else  cnode.AddChild('Parent').Attributes['xsi:nil']:=true;
 xml_dm.ADODataSet1.Next;
 end else begin

   Cnode.addchild('ID').Text:= xml_dm.ADODataSet1.FieldByName('ID').AsString;
   Cnode.AddChild('Name').Text := xml_dm.ADODataSet1.FieldByName('Name').AsString;
 xml_dm.ADODataSet1.Next;

 end;
  end;
     if saveDialog1.Execute then
    doc.SaveToFile(Savedialog1.FileName);


  end;