Utilisation de TXMLDocument

Version imprimable

12/07/2005, 11h02
Mickey.jet

Utilisation de TXMLDocument
Bonjour!
J'ai un petit problème...
J'utilise DELPHI 2005 (édition professionnelle) et j'écris des données dans un fichier XML grace à la classe TXMLDocument (je suis dans un projet Win32). L'écriture dans ce fichier ne pose aucun problème sauf que je dois absolument rajouter dans ce fichier XML (juste en dessous de la version du XML) la référence du fiche XSL pour pouvoir générer un fichier au format HTML. Le plus simple est de prendre un ptit exemple:

voila ce que j'arrive à écrire avec TXMLDocument:
Code:

1 2 3 4 5 6 <?xml version="1.0" encoding="ISO-8859-1"?> <livres> <livre1>l'avare</livre1> <livre2>la marre au diable</livre2> </livres>
tout ça marche bien mais moi je voudrais écrire:
Code:

1 2 3 4 5 6 7 <?xml version="1.0" encoding="ISO-8859-1"?> <?xml-stylesheet type="text/xsl" href="monFichierXSL.xsl"?> <livres> <livre1>l'avare</livre1> <livre2>la marre au diable</livre2> </livres>
Voila ce que je voudrais, la deuxième ligne me permettrait alors de générer de l'HTML. Or pour l'instant je ne sais pas écrire cette ligne avec la classe TXMLDocument (je ne trouve aucune propriété me permettant cela).

Quelqu'un voit-il comment faire?

Merci
Ps: j'ai essayer d'écrire cette ligne directement en texte avec Writeln avant d'écrire mon XML avec XMLDocument mais lorsque j'écris ce XML ma ligne de texte est écrasée.
17/07/2005, 18h48
Raylemon

Je suis plus très sûr, mais il me semble qu'il y a une propriété Prolog

Code:

XmlDocument1.Prolog

ça doit être ça...
18/07/2005, 16h46
Mickey.jet

Big a dit:

Citation:

Je suis plus très sûr, mais il me semble qu'il y a une propriété Prolog

Merci de t'intéresser à mon problème Big. Ce matin j'ai voulu essayer avec prolog mais TXMLDocument ne contient aucune propriété sous ce nom!!!

Bjr

Je sais pas si ca marche vraiment mais tu peux essayer en passant par une stringlist
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... var IRootNode : IXMLNode; XML : TStringList; begin XMLDocument1.Active := True; XML := TStringList.Create; XML.AddStrings(Self.XMLDocument1.XML); XML.Insert(1,'<?xml-stylesheet type="text/xsl" href="monFichierXSL.xsl"?>'); XMLDocument1.XML.clear; XMLDocument1.XML.AddStrings(XML); XMLDocument1.Active := False; XMLDocument1.Active := True; XML.Free; end;
A priori ca génrère pas d'erreur qd à soavoir si c'est bon ...

@+
Php

19/07/2005, 10h10
Mickey.jet

phplive a dit:

Citation:

Je sais pas si ca marche vraiment mais tu peux essayer en passant par une stringlist

J'ai donc essayé d'inclure ton code dans mon source et il est vrai que cela ne cause aucune erreur ni à la compilation ni à l'exécution, ceci dit cela ne change pas le contenu de mon fichier XML.

Bjr

Arrrrghhhh autant pour moi ! Tu oublies cette solution et essai avec

Code pour voir ce qui se trouve dans l'entête (il faut ajouter un TMemo sur la fiche)

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
procedure TForm1.Button2Click(Sender: TObject);
var
  IPrologNode,INode : IXMLNode;
  i : Integer;
  Info : String;
begin
  XMLDocument1.Active := True;
 
 
  Info := '';
  for i:=0 to XMLDocument1.ChildNodes.count-1 do
  begin
    INode := XMLDocument1.ChildNodes[i];
 
    Info := 'ChildNodes['+IntToStr(i)+'].';
    Memo1.Lines.Add(Info+'LocalName = '+INode.LocalName);
    Memo1.Lines.Add(Info+'NodeType = '+
      GetEnumName(TypeInfo(TNodeType),Ord(INode.NodeType)));
    if INode.IsTextElement then
      Memo1.Lines.Add(Info+'IsTextElement = True')
    else
      Memo1.Lines.Add(Info+'IsTextElement = False');
    if (INode.NodeType in [ntAttribute,ntText,ntCData,ntProcessingInstr,ntComment]) or
      ((INode.NodeType = ntElement) and INode.IsTextElement) then
      Memo1.Lines.Add(Info+'Value = '+ INode.NodeValue);
 
  end;
end;

Code pour insèrer un autre entête

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button3Click(Sender: TObject);
var
  IPrologNode,INode : IXMLNode;
begin
  XMLDocument1.Active := True;
 
  IPrologNode := XMLDocument1.CreateNode('xml-stylesheet',
    ntProcessingInstr,
    'type="text/xsl" href="monFichierXSL.xsl"');
  XMLDocument1.ChildNodes.Insert(1,IPrologNode);
 
  // Si Options.doAutoSave = False sinon pas nécessaire
  // XMLDocument1.SaveToFile;
end;

Si l'option dsAutoSave du document XML n'est pas activée alors tu dois appeler explicitement XMLDocument1.SaveToFile([fichier.xml])

@+
Php