Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

XSLT преобразование в delphi 7

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> XSLT преобразование в delphi 7

Имя

Сообщение

<< Старые топики Новые топики >>

XSLT преобразование в delphi 7 - 2009-03-02 11:09:56.426666

ZeitGeist7

Сообщений: 67
Оценки: 0
Присоединился: 2008-09-21 21:58:46.603333

нарыл код по статье "Использование XML в среде Delphi "
преобразил под свои нужды:


 Function&nbsp; XlsXmlToTxt(_XmlLoad, _TxtSaveWay, _XlsFileRule: string) : boolean ;&nbsp;&nbsp; // эта функция для RSS version="2.0"
 var
 
 &nbsp; r,FNode&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : IXMLDOMElement;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // объявление объектов DOMElement
 &nbsp; Str,Filename&nbsp;&nbsp;&nbsp;&nbsp; : String;
 &nbsp; parm&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : String;
 
 &nbsp; coDoc&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : CoDomDocument ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // объявление сокласса, необходим для создания
 &nbsp; Doc&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : DomDocument ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // объекта XMLDomDocument
 CoDocXML, CoDocXSL, CoDocResult&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : CoDomDocument ;&nbsp;&nbsp;&nbsp;&nbsp; // объявление сокласса и
 XMLDoc, XSLDoc, ResultDoc&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : DomDocument ;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // объекта XMLDomDocument
 
 f: Textfile;
 
 begin
 &nbsp; XMLDoc:=coDocXML.Create;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // создание документа XMLDoc
 &nbsp; XMLDoc.Set_async(false);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // установка синхронного режима обрабработки
 &nbsp; XMLDoc.LoadXML(_XmlLoad);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // загрузка DOM документа из строки HttpStr
 
 &nbsp; XSLDoc:=coDocXSL.Create;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // создание документа XSLDoc
 &nbsp; XSLDoc.Set_async(false);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // установка синхронного режима обрабработки
 &nbsp; XSLDoc.LoadXML(_XlsFileRule);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // загрузка DOM документа из файла Order.xsl
 
 &nbsp; ResultDoc:=coDocResult.Create;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // создание документа XMLDoc
 &nbsp; ResultDoc.Set_async(false);&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // установка синхронного режима обрабработки
 &nbsp; ResultDoc.validateOnParse := False;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // установка проверки разбора
 
 &nbsp; XMLDoc.transformNodeToObject(XSLDoc, ResultDoc);&nbsp;&nbsp; // разбор XMLDoc по XSL-шаблону
 &nbsp;&nbsp;&nbsp; &nbsp;
 &nbsp;Str:= ResultDoc.text;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; // переменной Str присваивается текстовое значение
 
 &nbsp;&nbsp; AssignFile(f, _TxtSaveWay);
 &nbsp;&nbsp; ReWrite(f);
 &nbsp;&nbsp; Writeln(f, Str);
 &nbsp;&nbsp; Closefile(f);
 
 
 end;

но ругается на строку XMLDoc.transformNodeToObject(XSLDoc, ResultDoc);
xml и xsl файлы правоильны и корректны
кто может подсказать ещё какие нибудь варианты кода?

Post #: 1

Страниц: [1]

Все форумы >> [Компилируемые языки] >> XSLT преобразование в delphi 7

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.