Выгрузка дынных в XML

[art06]

Выгружаю данные в XML.
Получаю результат -

<XML-28.12.06 Заголовок="Navision LOG">
<Record Polzov="sa" Type_Log="REPORT" ReportID="123" DataTime="28.12.06 15:15" />
</XML-28.12.06>

Для выгрузки использую 'Microsoft XML, v3.0'.
Допустим, через час - возникает необходимость выгрузить еще данные в этот же файл.
Тоесть нужно чтобы был такой результат -

<XML-28.12.06 Заголовок="Navision LOG">
<Record Polzov="sa" Type_Log="REPORT" ReportID="123" DataTime="28.12.06 15:15" />
<Record Polzov="sa" Type_Log="REPORT" ReportID="12" DataTime="28.12.06 16:15" />
</XML-28.12.06>

Вопрос - ест ли возможность добавить строку <Record Polzov="sa" Type_Log="REPORT" ReportID="12" DataTime="28.12.06 16:15" /> внутрь корневого тэга ?

[.Quattro.]

Что-то вроде следующего кода должно быть:

CREATE(xmlDocument);
xmlDocument.Load(...);
xmlHeader := xmlDocument.documentElement;

xmlRecord := xmlDocument.createNode('element','Record','');
xmlHeader.appendChild(xmlRecord);
xmlDocument.Save(...);

xmlDocument	: 'Microsoft XML, version 2.0'.DOMDocument	
xmlHeader: 'Microsoft XML, version 2.0'.IXMLDOMElement	
xmlRecord: 'Microsoft XML, version 2.0'.IXMLDOMElement

[art06]

Спасибо за помощь. Но, все равно не получается - не удается добавить новую запись

Хотя нет. Получилось. Коечто - необходимо изменить - а, вообще принцип оказалсЯ верным. Спасибо !!!

[Bogy]

Возник такой вопрос. Используя DOMDocument, получаю нужный мне XML-файл, но там все данные одной строкой. Кто-нибудь знает способ выгружать файл с нормальным форматированием текста через DOMDocument? Иначе при возникновении ситуации, когда нужно найти ошибку в файле и поправить в редакторе, встает проблема.

[Forward]

Попробуйте использовать XMlShell или программу подобного рода.

[Bogy]

Цитата:

Сообщение от Forward

Попробуйте использовать XMlShell или программу подобного рода.

Найти XML-редактор не проблема. Вопрос был как вывести в файл форматированный текст, а не все одной строкой.

[rruskih]

Цитата:

Сообщение от Bogy

Найти XML-редактор не проблема. Вопрос был как вывести в файл форматированный текст, а не все одной строкой.

это xml-файл, а не текстовик... потому ничего я так думаю не выйдет... а в части ошибки, приведите хотя бы ее пример

[zm]

Mozno poprobovat' tak:

XMLFile.OPEN(FileName);
XMLFile.SEEK(0);
XMLFile.CREATEINSTREAM(InBuffer);
WITH NewXMLFile DO BEGIN
CREATE('c:\navxml.tmp');
CREATEOUTSTREAM(OutBuffer);
InBuffer.READTEXT(Buffer,xxx); //xxx - to k-vo simvolov, kot. nuzno ostavit'
OutBuffer.WRITETEXT(Buffer);
Buffer := '.........'; //svoj text, kot nuzno dobavit' to XML file header
OutBuffer.WRITETEXT(Buffer);
WHILE XMLFile.POS < XMLFile.LEN DO BEGIN
InBuffer.READTEXT(Buffer,1024);
OutBuffer.WRITETEXT(Buffer);
END;
CLOSE;
END;
XMLFile.CLOSE;
ERASE(FileName);
RENAME('c:\navxml.tmp',FileName);