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 :
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.
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; ...
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';Merci d'avance si vous avez une solution à mon problème.
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];
Partager