XML en Lazarus

Version imprimable

XML en Lazarus

Bonjour,

je suis tout nouveau dans le monde de Lazarus que j'ai préféré au C# en raison de sa portabilité. Une des fonctions du programme que je voudrais mettre en place est de convertir un fichier xml afin de le placer dans une base de donnée sous Mysql. Au niveau base de donnée et requête Sql je gère assez bien, mais j'ai du mal avec le xml ^^''

le corps du fichier xml est toujours le suivant :
Code:

1 2 3 4 5 6 <programme id="blablabla" stop="valeur" start="autrevaleur"> <title>Assp </title> <desc>Un programme que j'écris ...</desc> </programme> <programme id="blablabla" stop="valeur" start="autrevaleur"> etc etc
En lisant les différentes doc j'arrive à avoir le contenu des balises title et desc sans aucun problème et à les stocker dans une variable :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 var doc : TXMLDocument; racine : TDOMElement; liste, lst,lv : TDOMNodeList; taille, etaille, i, j : LongWord; un, deux : string begin ofd.Execute; ReadXMLFile(Doc, ofd.FileName); racine:=doc.DocumentElement; liste:=racine.GetElementsByTagName('programme'); // racine // premier enregistrement lst:=liste.Item[0].GetChildNodes; un:=lst.Item[0].TextContent;
là où je seche pour le moment est pour obtenir la valeur des différents attributs de la balise programme (id,stop,start), après pour moi ce n'est qu'un problème de boucle à faire et de requête. Mais comment peut_on récupérer la valeur de ces attributs ?

Merci pour votre aide, j'ai passé des heures à lire la doc mais là je sature un peu.

26/03/2016, 23h05
jurassic pork

1 pièce(s) jointe(s)

hello,
dans les exemples de Lazarus, il y a un lecteur de fichiers XML --> Lazarus/examples/xmlreader , tu pourrais regarder comment sont lus les attributs des balises XML.

Avec ceci comme fichier XML :

Citation:

<?xml version="1.0"?>
<TEST>
<programme id="blablabla" stop="valeur" start="autrevaleur">
<title>Assp </title>
<desc>Un programme que j'écris ...</desc>
</programme>
<programme id="blablabla2" stop="valeur2" start="autrevaleur2">
<title>Assp2 </title>
<desc>Un autre programme que j'écris ...</desc>
</programme>
</TEST>

j'obtiens ceci avec le programme de test xmlreader :

Pièce jointe 205129

Ami calmant, J.P

Citation:

Envoyé par Fenryan22

pour obtenir la valeur des différents attributs de la balise programme (id,stop,start).

Bonjour

L'astuce c'est que les tags sont rattachés à un nœud fictif enfant du principal.

Voici un petit exemple tiré de mon jeu de scrabble, qui lit :

Code:

1
2
3
<parties>
<partie id=1 createur=moi />
</parties>

Code:

1
2
3
4
5
6
7
8
9
10
11
12
function ValeurTag ( const Node : TDomNode; const NomTag : string): string ;
 
var
  Node2 : TDomNode;
 
begin
  result := '';
  Node2 := Node.Attributes.GetNamedItem(NomTag);
  if not assigned(Node2) then
    Raise Exception.Create ('Tag nommé non trouvé : '+ NomTag );
  result := Node2.NodeValue;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
 
var
  { ... }
  Node : TDOMNode ;
 
begin
  Node := Noeud( Doc, 'parties');
  if Node = nil then
    exit ;
  Node := Node.FirstChild;
  while Assigned(Node) and (Node.NodeName='partie') do
  begin
    Partie_lue.id_partie := ValeurTag(Node, 'id');
    Partie_lue.createur := ValeurTag(Node, 'par');
 
 
    { ... }
    Node := Node.NextSibling ;
  end;
end;

merci pour vos différents tuyaus, finalement j'ai procédé ainsi pour obtenir les attributs :

Code:

1
2
3
4
5
racine:=doc.DocumentElement;
liste:=racine.GetElementsByTagName('programme'); // racine
// **** boucle etc etc 
code := liste.Item[i].Attributes[0].TextContent; // <- je récupère la valeur de l'attribut
nom := liste.Item[i].GetChildNodes[0].TextContent; // <- je récupère la valeur du noeud enfant

28/03/2016, 09h16
tintinux

Bonjour

Il ne faut pas oublier qu'en XML l'ordre des tags n'est pas garanti, et qu'il doit normalement pouvoir s'en insérer de nouveaux sans casser l'existant.
Donc, les extraire dans un tableau indicé numériquement peut être risqué, ou doit s'accompagner de précautions particulières.