Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > XSLT в Delphi 7

Автор: ZeitGeist7 2.3.2009, 14:12

написал прогу которая раз в N часов скачивает RSS файлы. теперь пишу код который могбы : взять исходный xml (сохранённый на жёстком диске), взять xsl файл, использовать xsl для преобразования xml'я и сохранить результат преобразований в txt файл. можете подсказать код? перерыл весь инет.

Автор: MetalFan 2.3.2009, 15:28

Цитата(ZeitGeist7 @  2.3.2009,  14:12 ) перерыл весь инет а надо было заглянуть в msdn. http://msdn.microsoft.com/en-us/library/ms761399.aspx

Автор: ZeitGeist7 2.3.2009, 16:32

а примером на Delphi? Я в в С и С++ ни в зуб ногой я искал ислючительно на длеьфи пример. это я уже находил. и не раз.

Автор: MetalFan 2.3.2009, 17:00

пример из msdn на делфи переводиться 1 в 1. переводить не буду из принципа. подскажу лишь: Код uses MSXML,... может кто окажется "добрей" и переведет тот сложнейший код.

Автор: ZeitGeist7 2.3.2009, 17:44

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

Автор: MetalFan 2.3.2009, 17:54

Цитата(ZeitGeist7 @  2.3.2009,  17:44 ) и почему выы все такие? да потому, что достало такое отношение новисов, которые  считают, что ему кто-то чем-то здесь обязан. а потратить 15 минут своего времени и самому разобраться - влом. Цитата(ZeitGeist7 @  2.3.2009,  17:44 ) девятый форум псевдопрофисионалов. не нравится? дверь вооон тама. Цитата(ZeitGeist7 @  2.3.2009,  17:44 ) спотыкается на  XMLDoc:=coDocXML.Create;  ошикок при компиляции не пишет но при выполнении выдаёт ошибку кто спотыкается? как? какую ошибку выдает? здесь что, телепаты???? Цитата(ZeitGeist7 @  2.3.2009,  17:44 ) пример с какого языка да с любого, на котором примеры в msdn написаны

Автор: ZeitGeist7 2.3.2009, 18:18

Цитата да потому, что достало такое отношение новисов, которые  считают, что ему кто-то чем-то здесь обязан. а потратить 15 минут своего времени и самому разобраться - влом.  не влом! я честно облазил весьинет на поиск кода. то что нашёл Цитата кто спотыкается? как? какую ошибку выдает? здесь что, телепаты???? ВООБЩЕ НИЧЕГО НЕ ВЫДАЁТ при компиляции  просто не работает и всё Код Project xxxx raised exception class EAccessViolation with message... и так далее по тексту при нажатии кнопки содержащую строку  Код XlsXmlToTxt(_LoadXml, _SaveTxt, _XslFile) Цитата да с любого, на котором примеры в msdn написаны там примеры сами по себе разные. очень разные.

Автор: MetalFan 2.3.2009, 18:34

Цитата(ZeitGeist7 @  2.3.2009,  18:18 ) там примеры сами по себе разные. очень разные.  какие разные? я дал ссылку на описание TransformNode в msdn. там всего ДВА примера на сях и васике. что там сложного то?

Автор: ZeitGeist7 2.3.2009, 19:30

нашёл libxml2. есть примеры даже. но она(компонента) ска постоянно просит какие то dll ки котоых у меня нет. что при попытке утановки что при компиляции. мда... судя по тому что мне отвечают делаю вывод что программисты России вырождаются...

Автор: MetalFan 2.3.2009, 20:07

Цитата(ZeitGeist7 @  2.3.2009,  19:30 ) судя по тому что мне отвечают делаю вывод что программисты России вырождаются верно угадал. судя по таким новичкам, которые ничего сами делать, думать и искать не хотят, ты прав на 100%. я бы мог привести нужный тебе код на делфи, но теперь уже точно из принципа не буду. ибо http://www.google.ru/search?q=transformnode+delphi.

Автор: ZeitGeist7 2.3.2009, 20:18

блин этот код я и приводил в 5 посте Цитата но теперь уже точно из принципа не буду. блин... да я новичок. вот только что да как не знаю. читал МНОГО мануалов!  не ужели вам проще посылать человека множеством постов чем ответить внятно одним? Добавлено через 14 минут и 10 секунд Я ПЕРЕРЫЛ ВЕСЬ ИНТЕРЕНЕТ В ПОИСКАХ НОРМАЛЬНОГО КОМПОНЕНТА КОТОРЫЙ МОГ БЫ ВЫПОЛНИТЬ ПОСТАВЛЕННУЮ ЗАДАЧУ. ВСЁ ЧТО Я НАШЁЛ ЭТО НЕРАБОТАЮЩИЙ ПРИМЕР НА КОТОРЫЙ МНЕ СНОВА И СНОВА  ПОСЫЛАЮТ! НЕРАБОТАЕТ ОН!!!НЕРАБОТАЕТ ОН!!!НЕРАБОТАЕТ ОН!!! ПРОСТО ПРИВЕДИТЕ ЭЛЕМЕНТРАНЫЙ ПРИМЕР . Я УЖЕ МЕСЯЦ ИЩУ МЕСЯЦ. У МЕНЯ УЖЕ НЕРВЫ СДАЮТ ПРОШУ ВАС УМОЛЯЮ ПОСОВЕТУЙТЕ МНЕ ХОТЬ ЧТО НИДУДТЬ ИЗ РАБОТАЮЩЕГО. УМОЛЯЮ ВАС. НА КОЛЕНИ ГОТОВ ВСТАТЬ ТОЛЬКО ПОМОГИТЕ МНЕ ЗАКОНЧИТЬ ПРОЭКТ И ЗАБЫТЬ ОБ ЭТОМ УЖАСЕ

Автор: MetalFan 2.3.2009, 21:38

Цитата(ZeitGeist7 @  2.3.2009,  20:18 ) блин этот код я и приводил в 5 посте 1. ты его видоизменил.  2. Вполне возможно, что код где-то может быть выложен НЕ РАБОТАЮЩИМ для того, чтобы такие вот копипастеры не плодились.

Автор: MetalFan 2.3.2009, 22:32

парниша, ну ты настырный... ошибки то проанализировать, что, никак? ой бедные пользователи твоего софта... ну да ладно, попробую наставить на путь истинный. а именно намекну, где ошибки и недочеты в коде из 6го поста. 1. Нафига строка с комментом "объявление сокласса..."? имхо бред. 2. документы создаются не coDocXML.Create и т.д., а coDOMDocument.Create. имхо все. если и это не поможет, то меняй профессию, коллега.

Автор: ZeitGeist7 3.3.2009, 05:59

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

Автор: Akella 3.3.2009, 08:28

Цитата(MetalFan @  2.3.2009,  22:32 ) ну да ладно, попробую наставить на путь истинный.  ты думаешь есть резон? Цитата(ZeitGeist7 @  3.3.2009,  05:59 ) теперь при работе программы ругается на строку XMLDoc.transformNodeToObject(XSLDoc, ResultDoc); выводит ошибку что "таблица стилей не содержит тип документ." MetalFan, дальше продолжай   наставлять

Автор: MetalFan 3.3.2009, 09:08

Akella, не, все, "Я умываю руки!" ©Понтий Пилат

Автор: cemick 3.3.2009, 10:02

Цитата(ZeitGeist7 @ 3.3.2009,  05:59) спасибо, поправил. теперь при работе программы ругается на строку XMLDoc.transformNodeToObject(XSLDoc, ResultDoc); выводит ошибку что "таблица стилей не содержит тип документ." xsl и xml корректны так как взяты из примера для новичков Из какого еще примера для новичков??   Возьми из MSDN...    ZeitGeist7  Это задача в рамках учебы или в рамках зарабатывания денег?  ЗЫ винград вообщето один из самых доброжелательных форумов, может MetalFan чего не того съел, вот и злой на всех "лентяев" И кроме того, есть отдельная ветка для таких как ты, т.е. "Для новичков"

Автор: ZeitGeist7 3.3.2009, 16:15

прога для самообучения. пользоваться ей будет максимум человек десять. она идёт как самописная(наколенная) приставка к специальному серверу для облегчения и расширения его функционала.

Автор: pseud 3.3.2009, 18:14

мужики, че орем? ZeitGeist7, вот тебе без всяких ДОМов и прочей каши пример на компонентах Дельфи: Код procedure TWebBrowserForm.DoXSLTransformation(AXML, AXSL, AFilePrefix: string); var   sHTML: TStrings;   sFileName: string; begin   sFileName := FTempPath + AFilePrefix;   sHTML := TStringList.Create;   try     XMLDocument1.Active := False;     XMLDocument1.XML.Text := AXML;     sHTML.Text := XSLPageProducer1.ContentFromString(AXSL);     sHTML.SaveToFile(sFileName);   finally     sHTML.Free;   end; end; AXML - содержимое из файла .xml AXSL - содержимое из файла .xsl sFileName - имя файла в который пойдет результат натягивания xsl на xml XMLDocument1 - компонент со страницы Internet XSLPageProducer1 - компонент со страницы WebSnap ----------------- если че не ясно - спрашивай. по возможности склепаю демку.

Автор: MetalFan 3.3.2009, 18:43

что то мне кажется, что у автора кривая таблица стилей (xsl). ну или еще что-нибудь

Автор: ZeitGeist7 3.3.2009, 20:47

pseud, сделал так как Вы сказали: кинул на форму компоненты скопировал код.  Код DoXSLTransformation(extractfilepath(paramstr(0))+'2.xml', extractfilepath(paramstr(0))+'2.xsl', extractfilepath(paramstr(0))+'2.txt');  вызов сделал на кнопочку скомпилировал. при нажатии ругнулось: "missing XML data component" пошаговое выполнение показало что прога остановилась на строке  Код sHTML.Text := XSLPageProducer1.ContentFromString(AXSL); привожу листинги тестовых  xml и xsl файлов: Код <?xml version="1.0" encoding="WINDOWS-1251"?> <?xml-stylesheet type='text/xsl' href='2.xsl'?> <tutorial> <enimals>   <dogs>   <dog>     <dogName>Шарик</dogName>     <dogWeight caption="кг">18</dogWeight>     <dogColor>рыжий с черными подпалинами</dogColor>   </dog>   <dog>     <dogName>Тузик</dogName>     <dogWeight caption="кг">10</dogWeight>     <dogColor>белый с черными пятнами</dogColor>   </dog>   <dog>     <dogName>Бобик</dogName>     <dogWeight caption="кг">2</dogWeight>     <dogColor>бело-серый</dogColor>   </dog>   <dog>     <dogName>Трезор</dogName>     <dogWeight caption="кг">25</dogWeight>     <dogColor>черный</dogColor>   </dog>   </dogs> </enimals> </tutorial> Код <?xml version="1.0" encoding="WINDOWS-1251" ?> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/TR/WD-xsl"> <xsl:template match="/"> <table border="1"> <tr bgcolor="#CCCCCC"> <td align="center"><strong>Кличка</strong></td> <td align="center"><strong>Вес</strong></td> <td align="center"><strong>Цвет</strong></td> </tr> <xsl:for-each select="tutorial/enimals/dogs/dog"> <tr bgcolor="#F5F5F5"> <td><xsl:value-of select="dogName"/></td> <td align="right"><xsl:value-of select="dogWeight"/> <xsl:value-of select="dogWeight/@caption"/></td> <td><xsl:value-of select="dogColor"/></td> </tr> </xsl:for-each> </table> </xsl:template> </xsl:stylesheet> можно демку? благодарю за терпение

Автор: pseud 4.3.2009, 15:03

вытавь в дизайне свойство Код XSLPageProducer1.XMLData = XMLDocument1

Автор: ZeitGeist7 4.3.2009, 16:34

Цитата вытавь в дизайне свойство где? upd всё сообразил. поставил значение. теперь ругается при выполнении на ту же строку только пишет:  Код Invalid at the top level of document line: 1  2.xsl может можно демку чтобы не писать десятки постов?

Автор: pseud 4.3.2009, 17:28

убери ссылку на файл xsl из файла xml Код href='2.xsl'

Автор: MetalFan 4.3.2009, 18:17

Цитата(ZeitGeist7 @  4.3.2009,  16:34 ) может можно демку чтобы не писать десятки постов? ага, типа "сделайте за меня все, чтоб не позориться и не переспрашивать, как из 2*2 получить 4" такое ощущение, что автор никак не хочет анализировать, почему не работают эти простые примеры

Автор: ZeitGeist7 4.3.2009, 19:15

Цитата убери ссылку на файл xsl из файла xml убрал. тоже самое

Автор: pseud 5.3.2009, 10:20

твой xsl немного устаревший возможно internet explorer бы его съел, а здесь не пролазит Код xmlns:xsl="http://www.w3.org/TR/WD-xsl" пришлось заменить на Код xmlns:xsl="http://www.w3.org/1999/XSL/Transform" тестовый проект приаттачен.

Автор: ZeitGeist7 5.3.2009, 16:17

pseud!! друг, что бы я без тебя делал. как ты мне помог. скажи мне где ты и я приползу на брюхе аки змий поганый чтобы биться головой об твои ступни в приступе дикой благодарности!!. спасибо большое! теперь у меня есть хоть какой то шанс проснуться из этого кошмара!

Автор: pseud 5.3.2009, 17:41

офф: собственно "для этого все мы здесь сегодня (и не только сегодня) собрались" заглядывай еще что-то ступни заныли в предвкушении сиих бичеваний

Автор: MetalFan 5.3.2009, 19:18

Цитата(ZeitGeist7 @  5.3.2009,  16:17 ) есть хоть какой то шанс проснуться из этого кошмара и засесть за учебники по программированию

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)