Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> XSLT в Delphi 7, ищу код который програмно использует xsl 
:(
    Опции темы
MetalFan
Дата 3.3.2009, 09:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Akella, не, все, "Я умываю руки!" ©Понтий Пилат


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
cemick
  Дата 3.3.2009, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6
Цитата(ZeitGeist7 @ 3.3.2009,  05:59)
спасибо, поправил.
теперь при работе программы ругается на строку XMLDoc.transformNodeToObject(XSLDoc, ResultDoc);
выводит ошибку что "таблица стилей не содержит тип документ."
xsl и xml корректны так как взяты из примера для новичков


Из какого еще примера для новичков?? smile 
Возьми из MSDN...

 smile 
ZeitGeist7  Это задача в рамках учебы или в рамках зарабатывания денег? 
ЗЫ винград вообщето один из самых доброжелательных форумов, может MetalFan чего не того съел, вот и злой на всех "лентяев"
И кроме того, есть отдельная ветка для таких как ты, т.е. "Для новичков"  
PM MAIL WWW   Вверх
ZeitGeist7
Дата 3.3.2009, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.3.2009

Репутация: нет
Всего: нет
прога для самообучения. пользоваться ей будет максимум человек десять. она идёт как самописная(наколенная) приставка к специальному серверу для облегчения и расширения его функционала.
PM MAIL   Вверх
pseud
Дата 3.3.2009, 18:14 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
мужики, че орем?

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
-----------------
если че не ясно - спрашивай. по возможности склепаю демку.


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
MetalFan
Дата 3.3.2009, 18:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
ZeitGeist7
Дата 3.3.2009, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.3.2009

Репутация: нет
Всего: нет
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>

можно демку?
благодарю за терпение

Это сообщение отредактировал(а) ZeitGeist7 - 3.3.2009, 22:35
PM MAIL   Вверх
pseud
Дата 4.3.2009, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
вытавь в дизайне свойство
Код

XSLPageProducer1.XMLData = XMLDocument1



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
ZeitGeist7
Дата 4.3.2009, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.3.2009

Репутация: нет
Всего: нет
Цитата

вытавь в дизайне свойство

где?

upd
всё сообразил.
поставил значение. теперь ругается при выполнении на ту же строку только пишет: 
Код

Invalid at the top level of document
line: 1 
2.xsl

может можно демку чтобы не писать десятки постов?

Это сообщение отредактировал(а) ZeitGeist7 - 4.3.2009, 17:07
PM MAIL   Вверх
pseud
Дата 4.3.2009, 17:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
убери ссылку на файл xsl из файла xml
Код

href='2.xsl'



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
MetalFan
Дата 4.3.2009, 18:17 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
 smile 
Цитата(ZeitGeist7 @  4.3.2009,  16:34 Найти цитируемый пост)
может можно демку чтобы не писать десятки постов?

ага, типа "сделайте за меня все, чтоб не позориться и не переспрашивать, как из 2*2 получить 4"
такое ощущение, что автор никак не хочет анализировать, почему не работают эти простые примеры smile 


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
ZeitGeist7
Дата 4.3.2009, 19:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.3.2009

Репутация: нет
Всего: нет
Цитата

убери ссылку на файл xsl из файла xml

убрал. тоже самое 
PM MAIL   Вверх
pseud
Дата 5.3.2009, 10:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
твой xsl немного устаревший
возможно internet explorer бы его съел, а здесь не пролазит
Код

xmlns:xsl="http://www.w3.org/TR/WD-xsl"

пришлось заменить на
Код

xmlns:xsl="http://www.w3.org/1999/XSL/Transform"


тестовый проект приаттачен.

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  XSLTransform.zip 3,04 Kb


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
ZeitGeist7
Дата 5.3.2009, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 2.3.2009

Репутация: нет
Всего: нет
pseud!! друг, что бы я без тебя делал. как ты мне помог. скажи мне где ты и я приползу на брюхе аки змий поганый чтобы биться головой об твои ступни в приступе дикой благодарности!!. спасибо большое! теперь у меня есть хоть какой то шанс проснуться из этого кошмара!
PM MAIL   Вверх
pseud
Дата 5.3.2009, 17:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
офф:

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


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
MetalFan
Дата 5.3.2009, 19:18 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
Цитата(ZeitGeist7 @  5.3.2009,  16:17 Найти цитируемый пост)
есть хоть какой то шанс проснуться из этого кошмара

и засесть за учебники по программированию smile 


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0527 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.