Discussion :

[Mickey.jet]

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 XML :

Sélectionner tout - Visualiser dans une fenêtre à part

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 XML :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Raylemon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

XmlDocument1.Prolog

ça doit être ça...

[Mickey.jet]

Big a dit:

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

[phplive]

Bjr

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mickey.jet]

phplive a dit:

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.

[phplive]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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