Bonjour,

j'ai utilisé l'expert de liaison de données XML pour créer l'interface qui va me permettre de créer un fichier XML.

Je l'utilise de la manière suivante :

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
 
var
   XMLDocument: IXMLDocument;
begin
   XMLDocument := NewXMLDocument;
   XMLDocument.Encoding  := 'UTF-8';
   XMLDocument.Active    := true;
 
//    XMLDocument.Options   := [doNodeAutoIndent];
//    XMLDocument.NodeIndentStr := 'doNodeAutoIndent';
 
   // utilisation de l'interface créée par l'expert de liaison
   XMLOpCom := XMLDocument.GetDocBinding('OpCom', TXMLOpCom, TargetNamespace) as IXMLOpCom;
 
   // Ensuite remplissage des noeuds
   XMLOpCom.IdOpCom := Id;
   ...
Dans l'absolue tout marche bien, le seul problème est que lorsque j'ouvre le fichier avec un editeur de texte quelconque, tout est à la suite l'un de l'autre sans saut de ligne. J'aimerais donc que le fichier s'ouvre avec des saut de ligne comme si on l'ouvrait avec IE.

J'ai donc ajouté dans mon code les 2 lignes qui sont en commentaires ci dessus avec des résultats différents mais non satisfaisant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
  // Ne fonctionne pas car le fichier est toujours sans saut de ligne
  XMLDocument.NodeIndentStr := 'doNodeAutoIndent';
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
  // Ne fonctionne pas car le premier noeud IdOpCom n'est pas trouvé 
  XMLDocument.Options   := [doNodeAutoIndent];
Merci d'avance si vous avez une solution à mon problème.