Discussion :

[Danak]

Bonjour, je dois créer à partir de Delphi des fichiers XML, j'utilise pour cela un TXMLDocument.

Pour m'aider, j'ai un fichier d'exemple et un fichier XSD pour le controle.

Le fichier exemple donne en en tête :

<?xml version="1.0" encoding="UTF-8" ?>
- <Document xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="urn:iso:std:iso:20022:tech:xsd:pain.001.001.03">
- <CstmrCdtTrfInitn>

J'ai fait comme lignes de progs (je n'ai pas tout mit)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFrm1.FichierXML();
 
var
  NoeudEntete, Niveau_1 : IXMLNode;
begin
 
  NoeudEntete := XMLDocument.AddChild('Document');
  NoeudEntete.Attributes['xmlns:xsi'] := 'http://www.w3.org/2001/XMLSchema-instance';
  NoeudEntete.Attributes['xmlns'] := 'urn:iso:std:iso:20022:tech:xsd:pain.001.001.03';
 
  Niveau_1 := XMLDocument.DocumentElement.AddChild('Noeud01');

malheureusement, en sortie cela me donne un attribut en trop dans la balise CstmrCdtTrfInitn :

<?xml version="1.0" encoding="UTF-8" ?>
- <Document xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="urn:iso:std:iso:20022:tech:xsd:pain.001.001.03">
- <CstmrCdtTrfInitn xmlns="">

J'ai beau chercher je ne trouve pas, probablement le schéma location qui manque, mais le fichier que j'ai en exemple ne le contient pas...

Quelqu'un aurait une idée ? Moult merci d'avance pour vos conseils.

[macumba]

bienvenu dans le monde de SEPA, lol...

Tu peu grâce au xsd faire des classes qui te facilite grandement la vie et la manipulation du XML sans erreur, plutot que de bricoler surtout sur ce format très complexe.
Il ne faut pas passer par XMLDocument, j'ai plus le choix en tête, ni delphi sous la main, mais ca existe(cherche dans le menu nouveau...) , ca prend 5 minutes à faire et la manipulation est grandement facilité par la suite.

A+

[Danak]

ben si tu pouvais dévelloper et donner quelques exemples, je comprendrais mieux cette idée ;)
Merci en tout cas de cette réponse.

[Linkin]

Il faut préciser le namespace dans chaque AddChild, sinon la valeur par défaut est vide

[macumba]

Utilise le choix New/XML Data Binding, delphi te demande le nom du fichier xsd et ensuite tu as une unité générée avec tout un tas de classes et méthodes générées. Recherche s'il n'y a pas une doc explicative si tu as besoin, mais c'est assez simple de manipulation. Désolé je l'ai bien utilisé mais je n'ai pas d'exemples sous la main.

[Arrnno]

Bonjour
je reviens sur cette discussion.
Je souhaite extraire des données au format XML SEPA, et je cherche s'il n'exsite pas un composant facile d'utilisation pour créer le fichier XML (que je ne connais pas).

Merci pour vos réponses
Arnaud