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

[Квэнди]

Можешь попрбовать другой вариант: бесплатная библиотека EasyXML 4 предоставляющая уже другой парсер для XML
http://www.softpedia.com/progDownloa...oad-78713.html

[ZeitGeist7]

с первой библиотекой у меня проблема с dll вроде скачал в фтп последние версии
со второй библиотекой: скопировал \EasyXML\components\ в Delphi7\Lib\
попытался инсталлировать в dclusr.dpk и у меня выдало такие ошибки

Build
[Hint] janstrings.pas(610): Variable 'index' is declared but never used in 'DeleteValue'
[Hint] janstrings.pas(622): Variable 'index' is declared but never used in 'GetValue'
[Hint] janstrings.pas(635): Variable 'index' is declared but never used in 'HasStrValue'
[Warning] janstrings.pas(712): Variable 'p' might not have been initialized
[Warning] janstrings.pas(712): Variable 'p1' might not have been initialized
[Hint] janstrings.pas(767): Value assigned to 'L' never used
[Hint] janstrings.pas(810): Variable 'index' is declared but never used in 'SetValue'
[Hint] janstrings.pas(917): Variable 'p' is declared but never used in 'BackPosRangeStr'
[Hint] janstrings.pas(937): Variable 'p' is declared but never used in 'BackPosRangeText'
[Hint] janstrings.pas(1142): Variable 'pslash' is declared but never used in 'relativepath'
[Hint] janstrings.pas(1142): Variable 'l1' is declared but never used in 'relativepath'
[Hint] janstrings.pas(1142): Variable 'l2' is declared but never used in 'relativepath'
[Hint] janstrings.pas(1225): Variable 'p2' is declared but never used in 'GetAttribute'
[Warning] janstrings.pas(1306): Variable 'bMarkup' might not have been initialized
[Warning] janstrings.pas(1331): Variable 'bMarkup' might not have been initialized
[Hint] janstrings.pas(1388): Variable 'p' is declared but never used in 'PosEscaped'
[Warning] janstrings.pas(1436): Constant expression violates subrange bounds
[Hint] janstrings.pas(1434): Variable 'i' is declared but never used in 'RecurseDirFiles'
[Warning] janstrings.pas(1463): Constant expression violates subrange bounds
[Hint] janstrings.pas(1460): Variable 'i' is declared but never used in 'RecurseDirProgs'
[Hint] janstrings.pas(1489): Variable 'I' is declared but never used in 'LoadResourceFile'
[Hint] janstrings.pas(1515): Value assigned to 'p' never used
[Hint] janstrings.pas(1567): Value assigned to 'p1' never used
[Warning] janstrings.pas(1920): Variable 'rec' might not have been initialized
[Warning] janstrings.pas(1921): Variable 'names' might not have been initialized
[Warning] janstrings.pas(1953): Variable 'rec' might not have been initialized
[Warning] janstrings.pas(1954): Variable 'names' might not have been initialized
[Hint] janstrings.pas(1932): Variable 'v' is declared but never used in 'tags2csv'
[Warning] janstrings.pas(1994): Return value of function 'B64Decode' might be undefined
[Hint] janstrings.pas(2230): Variable 's' is declared but never used in 'FirstOfSet'
[Hint] janstrings.pas(2246): Variable 's' is declared but never used in 'LastOfSet'
[Hint] janstrings.pas(2247): Variable 'p' is declared but never used in 'LastOfSet'
[Hint] janstrings.pas(2248): Variable 'i' is declared but never used in 'LastOfSet'
[Hint] janstrings.pas(2276): Variable 'i' is declared but never used in 'SetRotateRight'
[Hint] janstrings.pas(2292): Variable 'i' is declared but never used in 'SetRotateLeft'
[Hint] janstrings.pas(2308): Variable 's' is declared but never used in 'SplitSet'
[Hint] janstrings.pas(2352): Variable 'i' is declared but never used in 'SetPick'
[Hint] janstrings.pas(2366): Variable 'i' is declared but never used in 'SetSort'
[Error] janstrings.pas(2404): Not enough actual parameters
[Error] janstrings.pas(2411): Not enough actual parameters
[Error] janstrings.pas(2439): Not enough actual parameters
[Error] janstrings.pas(2449): Not enough actual parameters
[Warning] janstrings.pas(4086): Symbol 'faArchive' is specific to a platform
[Warning] janstrings.pas(4089): Symbol 'faArchive' is specific to a platform
[Warning] janstrings.pas(4099): Symbol 'faArchive' is specific to a platform
[Warning] janstrings.pas(4102): Symbol 'faArchive' is specific to a platform
[Warning] janstrings.pas(4679): Constant expression violates subrange bounds
[Warning] janstrings.pas(4688): Symbol 'faArchive' is specific to a platform
[Warning] janstrings.pas(4694): Symbol 'FileSetAttr' is specific to a platform
[Warning] janstrings.pas(4694): Symbol 'FileGetAttr' is specific to a platform
[Warning] janstrings.pas(4694): Symbol 'faReadOnly' is specific to a platform
[Warning] janstrings.pas(4696): Symbol 'FileSetAttr' is specific to a platform
[Warning] janstrings.pas(4696): Symbol 'FileGetAttr' is specific to a platform
[Warning] janstrings.pas(4696): Symbol 'faReadOnly' is specific to a platform
[Fatal Error] dclusr.dpk(47): Could not compile used unit 'janstrings.pas'

[Квэнди]

Всего 3 ошибки
[Error] janstrings.pas(2404): Not enough actual parameters
[Error] janstrings.pas(2411): Not enough actual parameters
[Error] janstrings.pas(2439): Not enough actual parameters
[Error] janstrings.pas(2449): Not enough actual parameters
ну так посмотрите, подправьте )

[ZeitGeist7]

if postext(','+atom+',',s3,)=0 then
 if postext(','+atom+',',s3,)=0 then
if postext(','+atom+',',s2,)>0 then
if postext(','+atom+',',s2,)>0 then

строки соответствующие ошибкам. чего не хватает после запятой?

[Квэнди]

ну так посмотри объявление этой функции и подправь

[ZeitGeist7]

не хвататет
"StartPos : Integer = 1" у всех строчек. то что чего-то не хватает понятно. даже известно чего не хватает.
вопрос в другом: какое значение поставить чтобы всё было правильно?

[ZeitGeist7]

поставил значения равным 1
теперь имею

[Error] janXMLparser2.pas(715): Undeclared identifier: 'vartype'
[Error] janXMLparser2.pas(776): Undeclared identifier: 'vartype'
[Error] janXMLparser2.pas(1740): Undeclared identifier: 'null'
[Error] janXMLparser2.pas(1905): Undeclared identifier: 'null'
[Error] janXMLparser2.pas(2124): Undeclared identifier: 'null'
[Error] janXMLparser2.pas(2174): Undeclared identifier: 'null'
[Error] janXMLparser2.pas(2889): Undeclared identifier: 'null'
[Error] janXMLparser2.pas(2910): Undeclared identifier: 'null'

[ZeitGeist7]

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

[Квэнди]

есть целый ряд аналогово для работы с XML
поищите в интернете NativeXML

[ZeitGeist7]

я тут нашёл в кое каком форуме код:

procedure TRssListForm.DoXSLTransformation(AXML, AXSL, AFilePrefix: string);
var
  sHTML: TStrings;
  sFileName: string;
begin
 // sFileName :=  AFilePrefix;
  sHTML := TStringList.Create;
  try
    XSLPageProducer1.XMLData = XMLDocument1;
    XMLDocument1. Active := false;
    XMLDocument1.XML.Text := AXML;
    sHTML.Text := XSLPageProducer1.ContentFromString(AXSL);
    sHTML.SaveToFile(AFilePrefix);
  finally
    sHTML.Free;
  end;
end;

AXML - содержимое из файла .xml
AXSL - содержимое из файла .xsl
sFileName - имя файла в который пойдет результат натягивания xsl на xml
XMLDocument1 - компонент со страницы Internet
XSLPageProducer1 - компонент со страницы WebSnap

вызов сделал на кнопке так:

	
DoXSLTransformation(extractfilepath(paramstr(0))+'2.xml', extractfilepath(paramstr(0))+'2.xsl', extractfilepath(paramstr(0))+'2.txt');

вот xml файл:

<?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>

вот xsl файл:

<?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>

и при всём при этом у меня когда жму в запущенной проге на кнопку с вызовом вылезает окошко

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

сама прога пр пошаговом выполнении останавливается на строке

sHTML.Text := XSLPageProducer1.ContentFromString(AXSL);

я просто вешаюсь. пытаюсь разобраться сам - но мои попытки смахивают ты тыканье слепого котёнка

p.s. модерам - простите за большой пост