Comment créer un .html en delphi.NET à partir d'un XML et XSL?

Version imprimable

27/04/2006, 17h11
Jayceblaster

Comment créer un .html en delphi.NET à partir d'un XML et XSL?

Bonjour....

Je développe sous delphi 2006 dans un projet VCL et je souhaite créer une partie de programme qui me permette à partir d'une feuille de style (.XSL) et d'un document XML de générer un .Html qui n'aura donc plus de dépendance avec le XML et le XSL.

Est possible et si oui comment dois-je m'y prendre?

Merci d'avance...;)

Ps: je débute alors si vous avez des liens vers des exemples n'hésitez pas :) .

Oui c'est possible !
Code XML :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
<?xml version="1.0" encoding="ISO-8859-1" ?>
<NewDataSet>
<Client>
<Nom>Faivre</Nom>
<Prenom>Denise</Prenom>
</Client>
<Client>
<Nom>Dupond</Nom>
<Prenom>Pierre</Prenom>
</Client>
<Client>
<Nom>Barrot</Nom>
<Prenom>Robert</Prenom>
</Client>
</NewDataSet>

Code XSL :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
<?xml version="1.0" encoding="iso-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="<a href="http://www.w3.org/1999/XSL/Transform" target="_blank">http://www.w3.org/1999/XSL/Transform</a>">
  <xsl:output omit-xml-declaration="yes" indent="yes" encoding="iso-8859-1"/>
  <xsl:template match="/">
    <table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#e3e9f8">
      <tr>
        <td>
          <img src="..\images\cale.gif" height="10" width="1"/>
        </td>
      </tr>
      <tr>
        <td class="titre">CLIENTS</td>
      </tr>
      <tr>
        <td>
          <img src="..\images\cale.gif" height="10" width="1"/>
        </td>
      </tr>
    </table>
    <br/>
    <br/>
    <table align="center" border="0" cellspacing="0" cellpadding="0" bgcolor="#d9dfea">
      <xsl:for-each select="NewDataSet/Client">
        <tr bgcolor="#d9dfea">
          <xsl:if test="position() mod 2 = 0">
            <xsl:attribute name="bgcolor">#e7ebf1</xsl:attribute>
          </xsl:if>
          <td>
            <img src="images\cale.gif" width="5" height="1"/>
          </td>
          <td>
            <input type="checkbox" name="ch{(NUMFICHE)}" value="{(NUMFICHE)}"/>
          </td>
          <td>
            <img src="images\cale.gif" width="10" height="1"/>
          </td>
          <td>
            <xsl:value-of select="Nom"/>
          </td>
          <td>
            <img src="images\cale.gif" width="15" height="1"/>
          </td>
          <td>--</td>
          <td>
            <img src="images\cale.gif" width="15" height="1"/>
          </td>
          <td>
            <xsl:value-of select="Prenom"/>
          </td>
          <td>
            <img src="images\cale.gif" width="15" height="1"/>
          </td>
          <td>--</td>
        </tr>
      </xsl:for-each>
    </table>
    <br/>
    <br/>
    <table border="0" cellspacing="0" cellpadding="0" width="100%">
      <tr align="center">
        <td>
          <input type="submit" name="Button1" value="élément" id="Button2" />
          <input class="btn" type="button" value="retour" name="retour" onclick="history.back()"/>
        </td>
      </tr>
    </table>
  </xsl:template>
</xsl:stylesheet>

Code DELPHI

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;
implementation
uses XSLProd, XMLDoc, XMLDOM;
{$R *.dfm}
function FusionXMLXSL (st1, st2 : string) : string  ;
var
  XMLDocument1 : TXMLDocument;
  XSLPageProducer1: TXSLPageProducer;
begin
  Result := '' ;
  try
    XMLDocument1 := TXMLDocument.Create(Application) ;
    XMLDocument1.DOMVendor := DOMVendors.Find ('MSXML') ;
    XSLPageProducer1 := TXSLPageProducer.Create(Application);
    XSLPageProducer1.DOMVendor := DOMVendors.Find ('MSXML') ;
    XMLDocument1.LoadFromXML(st1) ;
    XSLPageProducer1.XMLData :=  XMLDocument1 ;
    XSLPageProducer1.XML.text := st2 ;
    Result := XSLPageProducer1.Content ; // ;FromString (sl2.Text) ;
  finally
    if (XMLDocument1 <> Nil) then XMLDocument1.Free;
    if (XSLPageProducer1 <> Nil) then XSLPageProducer1.Free;
  end;
end ;
procedure TForm1.Button1Click(Sender: TObject);
var
  sl1,sl2 : TStringList ;
begin
  sl1 :=  TStringList.create ;
  sl1.LoadFromFile('aa1.xml');
  sl2 :=  TStringList.create ;
  sl2.LoadFromFile('aa1.xsl');
  Memo1.lines.Text := FusionXMLXSL (sl1.Text,sl2.Text) ;
  sl1.Free ;
  sl2.Free ;
end;
 
end.

03/05/2006, 14h39
Jayceblaster

slt alweber

As tu essayé ton code??

Moi je viens de l'essayer et ca ne marche pas il m'affiche dans le Memo le contenu de mon XSL...:?

Mais en meme temps je suis étonné de ne pas voir dans ce code de déclaration de mon HTML. A aucun moment je vois sous quel non je vais stoker mon HTML...

;)

C'est bien une fusion xml-xsl. Voici deux fichiers autres fichiers xml xsl.
Quand tu l'auras testé je pourrai te donner plus d'infos sur l'utilisation que j'en fait.

A bientôt
XML :

Code:

1
2
3
4
5
6
7
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<element>
  <vehicule type="Vélo"/>
  <vehicule type="Mobylette"/>
  <vehicule type="Moto"/>
</element>

XSL :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="<a href="http://www.w3.org/1999/XSL/Transform" target="_blank">http://www.w3.org/1999/XSL/Transform</a>">
  <xsl:output method="xml" omit-xml-declaration="yes" indent="yes"/>
  <xsl:template match="/">
    <html>
      <head>
        <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/>
      </head>
      <body>
        <xsl:for-each select="element/vehicule ">
          <p>
            <xsl:value-of select="@type"/>
          </p>
        </xsl:for-each>
      </body>
    </html>
  </xsl:template>
</xsl:stylesheet>

En fait en examinant de plus pret le résultat le code que tu m'as donné permet bien de parser du XML avec mon XSL mais le résultat obtenu n'est pas un .HTML mais une sorte de copie de mon XSL ou tout les "xsl value of select" sont interprété.En revanche toute les balise HTML ne sont pas interprété.

Exemple:

Soit le XML:

Code:

1
2
3
4
5
6
 
  <Livres>
     <livre1>Comprendre XSLT</livre1> 
     <livre2>Le C facile</livre2>
     <livre3>Le pascal pour les nuls</livre3>
 </Livres>

Soit le XSL:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
<?xml version="1.0" encoding="iso-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="<a href="http://www.w3.org/1999/XSL/Transform" target="_blank">http://www.w3.org/1999/XSL/Transform</a>">
  <xsl:output omit-xml-declaration="yes" indent="yes" encoding="iso-8859-1"/>
  <xsl:template match="/">
    <table>
      <tr>
         <td>Livre1</td>
         <td><xsl:value-of select="livre1"/></td>
      </tr> 
      <tr>
         <td>Livre2</td>
         <td><xsl:value-of select="livre2"/></td>
      </tr> 
      <tr>
         <td>Livre1</td>
         <td><xsl:value-of select="livre3"/></td>
      </tr>

Et j'obtiens avec le programme dans le mémo:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
<?xml version="1.0" encoding="iso-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="<a href="http://www.w3.org/1999/XSL/Transform" target="_blank">http://www.w3.org/1999/XSL/Transform</a>">
  <xsl:output omit-xml-declaration="yes" indent="yes" encoding="iso-8859-1"/>
  <xsl:template match="/">
    <table>
      <tr>
         <td>Livre1</td>
         <td>Comprendre XSLT</td>
      </tr> 
      <tr>
         <td>Livre2</td>
         <td>Le C facile</td>
      </tr> 
      <tr>
         <td>Livre1</td>
         <td><Le Pascal pour les nuls></td>
      </tr>

Et à quel moment on stipule le nom du fichier HTML résultat de la transformation???

Je comprend pas du tout...:cry:

Tes deux fichiers devarit avoir le contenu suivant pour produire le résultat que tu souhaites
XML

Code:

1
2
3
4
5
6
7
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<Livres>
  <livre>Comprendre XSLT</livre>
  <livre>Le C facile</livre>
  <livre>Le pascal pour les nuls</livre>
</Livres>

XSL

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="<a href="http://www.w3.org/1999/XSL/Transform" target="_blank">http://www.w3.org/1999/XSL/Transform</a>">
  <xsl:output method="xml" omit-xml-declaration="yes" indent="yes"/>
  <xsl:template match="/">
    <html>
      <head>
        <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"/>
      </head>
      <body>
        <table>
          <xsl:for-each select="Livres/livre">
            <tr>
              <td>livre
                <xsl:value-of select="position()"/>
              </td>
              <td>
                <xsl:value-of select="."/>
              </td>
            </tr>
          </xsl:for-each>
        </table>
      </body>
    </html>
  </xsl:template>
</xsl:stylesheet>

04/05/2006, 09h18
Jayceblaster

Mais meme avec des déclarations identiques aux tiennes dans mon XML et XSL ca ne marche pas et d'ailleurs je viens d'essayer avec un copier coller du XML et du XSL que tu m'as donné et ca marche pas non plus....

:cry:
04/05/2006, 10h51
ALWEBER

Peux tu mettre en réponse le résultat obtenu ?
04/05/2006, 11h28
ALWEBER

Petite note supplémentaire : certains systèmes de fusion XML/XSL nécessitent l'installation du lot "msxml.msi" téléchargeable gratuitement depuis le site microsoft.

Avec ton XML et on XSL (et ton programme bien sur :) ) on a dans le mémo:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
  <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<table>
<tr>
<td>livre1</td>
<td>Comprendre XSLT</td>
</tr>
<tr>
<td>livre2</td>
<td>Le C facile</td>
</tr>
<tr>
<td>livre3</td>
<td>Le pascal pour les nuls</td>
</tr>
</table>
</body>
</html>

;)

04/05/2006, 17h06
ALWEBER

Et en d'autres termes tu voudrais pouvoir afficher directement ce résultat dans un TWebBrowser ?
04/05/2006, 17h36
Jayceblaster

En fait, je voudrais simplement que suite à l'exécution du programme je me retrouve dans le "c:" par exemple avec un fichier HTML résultat de la transformation XSLT de mon XML avec mon XSL...

tu peux modifier le code comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
var
  sl1,sl2 : TStringList ;
begin
  sl1 :=  TStringList.create ;
  sl1.LoadFromFile('aa1.xml');
  sl2 :=  TStringList.create ;
  sl2.LoadFromFile('aa1.xsl');
  Memo1.lines.Text := FusionXMLXSL (sl1.Text,sl2.Text) ;
  Memo1.lines.SaveToFile ('mafiche.htm') ;
  sl1.Free ;
  sl2.Free ;
end;

05/05/2006, 12h10
Jayceblaster

CA MARCHE :D

Merci beaucoup pour ton aide ALWEBER.

Avec un peu de recul le résultat obtenu avec le mémo n'etait pas étonnant puisqu'il n'est pas capable d'interpreter le langage HTML :oops: .

;)