Lecture de fichiers XML

Version imprimable

1 pièce(s) jointe(s)

Toujours dans une tentative de lire des fichiers SVG pour remplir les chemins d'un TPath (cf https://delphi.developpez.com/telech...s-images-sympa) je tente d'ouvrir ce type de fichier via un XMLDocument

Voilà le code actuel (note : memo1.lines.add( ) est remplacé par Path1.data.AddPath() dans le programme, mais comme il s'agit avant tout de la lecture du xml cela simplifie)
Code:

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 29 30 31 32 33 34 procedure TForm1.Button1Click(Sender: TObject); var Doc: IXMLDocument; Data: IXMLNode; Node, CNode: IXMLNode; I, J: Integer; begin Memo1.Lines.Clear; // Doc := LoadXMLDocument(Edit1.text); XMLDocument1.FileName:=Edit1.Text; XMLDocument1.Active:=True; Data := XMLDocument1.DocumentElement; // chercher attributes "viewbow" for I := 0 to Data.ChildNodes.Count-1 do begin Node := Data.ChildNodes[I]; if SameText(Node.NodeName,'path') then memo1.lines.add(Node.Attributes['d']); if SameText(Node.NodeName,'g') then if Node.ChildNodes.Count>0 then begin for J := 0 to Node.ChildNodes.Count-1 do begin CNode:=Node.ChildNodes[J]; if SameText(CNode.NodeName,'path') then Memo1.Lines.Add(CNode.Attributes['d']); end; end else memo1.Lines.Add(Node.Attributes['d']); end; XMLDocument1.Active:=False; end;
1- j'ai tenté de m'affranchir du composant TXMLDocument mais certains fichiers (une fois n'est pas coutume, les plus simples, me lèvent une erreur) exemple fichier Android.svg

Citation:

Envoyé par Erreur

DTD interdite.

Ligne: 1
<?xml version="1.0" encoding="UTF-8"?><!

Comment m'en sortir ou plutôt pourquoi j'ai cette erreur, le TXMLDocument fonctionnant pour les autres.

2- j'ai des fichiers de structure plus complexe des noeuds g dans des noeuds g etc... est-il possible de s'en sortir dans ce cas ? exemple fichier portablejim-Chess-tile-Pawn.svg
des idées ?

À vrai dire c'est surtout le point 1 que j'aimerai éclaircir (les fichiers trop complexes je m'en passerai ;)) déjà qu'il y a l'attribut 'transform' avec la valeur "matrix= x x x x x x" qui m'interpelle pas mal
(voir celtic-triskell-01.svg)

4 pièce(s) jointe(s)

Point 1 :resolu: avant de charger le document j'ai changé le DOMVendor
Code:

1 2 3 4 5 6 7 8 9 10 begin Memo1.Lines.Clear; DefaultDOMVendor:='Omni XML'; // changement de DOMVendor Doc := LoadXMLDocument(Edit1.text); Data:=Doc.DocumentElement; // XMLDocument1.FileName:=Edit1.Text; // XMLDocument1.Active:=True; // Data := XMLDocument1.DocumentElement;
je vais maintenant surtout me consacrer à cette matrix qui me fait de l'œil car
Pièce jointe 484605
est loin d'être un triskell, bien sûr si j'enlève ce qui est en rouge j'ai
Pièce jointe 484607
ce qui est encore loin de
Pièce jointe 484610
deux espoirs (matrix) restent transform="matrix(1.1303 0 0 1.1303 -1.0282 -.85104)" (à priori pour le cercle)
transform="matrix(.95466 0 0 .95466 47.021 1.9294)" pour la "première branche" ?

[Edit] une avancée en changeant simplement le comportement de TPath ,modifier la propriété wrapmode en fit
et on obtient quelque chose de plus approchant
Pièce jointe 484763

Pour indiquer où j'en suis : la piste "matrix" se refroidit un peu hélas

Avec ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 procedure TForm46.Button3Click(Sender: TObject); var aPath : TPathData; Matrix: TMatrixArray; begin // matrix(1.1303 0 0 1.1303 -1.0282 -.85104) APath:=TPathData.Create; Matrix[0]:=TVector.Create(1.1303, 0); Matrix[1]:=TVector.Create(0,1.1303); Matrix[2]:=TVector.Create(-1.0282, -0.85104); APath.Data:='m60.446 55.537a50.718 50.718 0 1 0 -101.44 0 50.718 50.718 0 1 0 101.44 0z'; APath.ApplyMatrix(TMatrix(Matrix)); Path1.Data.AddPath(APath); end;
je pensais passer de l'image à un cercle, ce n'est pas le cas :bug: (en fait cela ne fait rien)
cela étant je nage dans l'inconnu donc je ne sais si c'est la création de la matrice ou l'utilisation de celle-ci qui plante donc si quelqu'un qu'y si connait passe par là ... de mon côté pour cette partie je vais fouiller dans ce que j'ai pu trouver comme sources sur les SVG

18/06/2019, 19h26
Paul TOTH

pour le XML j'utilise mon unité qui permet d'extraire la structure et de l'interroger

https://github.com/tothpaul/Delphi/tree/master/XML

pas de doc, mais la procédure test montre assez bien les choses je pense
https://github.com/tothpaul/Delphi/b...Tree.pas#L1112

2 pièce(s) jointe(s)

Merci Paul,
avant d'avoir lu ton post j'en étais rendu à cette version de ma procédure qui semble résoudre le point 2 et la structure complexe du fichier molumen_green_sitting_frog.svg
Code:

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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 procedure TForm46.Button1Click(Sender: TObject); var Doc: IXMLDocument; Data: IXMLNode; Node, CNode: IXMLNode; I, J: Integer; procedure g(Node : IXMLNode); var j : integer; CNode : IXMLNode; begin for j:=0 to Node.ChildNodes.Count-1 do begin CNode:=Node.ChildNodes[j]; if CNode.HasAttribute('d') then memo1.Lines.Add(CNode.Attributes['d']) else g(CNode); end; end; begin Memo1.Lines.Clear; DefaultDOMVendor:='Omni XML'; Doc := LoadXMLDocument(Edit1.text); Data:=Doc.DocumentElement; if Data.HasAttribute('version') then if Data.Attributes['version']<>'1.1' then Showmessage('Attention Version = '+Data.Attributes['version']); {Todo : attributes "viewBox" pour obtenir le rectangle à prendre en compte ? obtenir les "transform" et gérer matrix } // if Data.HasAttribute('viewBox') then // ???? ; for I := 0 to Data.ChildNodes.Count-1 do begin Node := Data.ChildNodes[I]; if Node.HasAttribute('d') then memo1.Lines.Add(Node.Attributes['d']) else g(Node); end; XMLDocument1.Active:=False; end;
avec un petit peu de couleur c'est encore plus "parlant" ;)
Pièce jointe 484715
Vous y remarquerez la limite de FMX.ObJects.TPath à propos de la couleur puisque celui-ci n'a qu'un remplissage "monochrome" (entre guillemets car il y a possibilité de dégradé et bitmap)
voici l'original
Pièce jointe 484719
Mais bon, faut pas pousser le bouchon, au départ mes tests d'utilisation se limitaient à un simple triangle :lol:

[Edit] la procédure n'est pas encore au point :weird: deux de mes fichiers tests ( jhonny_automatic_geisha et portablejim-chess-tile-pawn) ne passent pas

Citation:

Envoyé par erreur

End tag g
does not match the start tag g.

Ligne: xxxxx >.

une idée pour gérer ça ?

19/06/2019, 16h36
SergioMaster

Citation:

Envoyé par SergioMaster

la procédure n'est pas encore au point :weird: deux de mes fichiers tests ( jhonny_automatic_geisha et portablejim-chess-tile-pawn) ne passent pas
Erreur : End tag g does not match the start tag g.

A priori cela vient du DOMVendor utilisé ! Du coup je me retrouve devant un gros dilemme, si je n'utilise pas DefaultDOMVendor:='Omni XML' je ne peux pas lire mes fichiers SVG les plus simples (android.dvg) récupérés sur http://materialdesignicons.com/ ou https://icones8.fr/icons, à contrario si je n'indique aucun DOMVendor j'arrive à lire ces fichiers plus complexe :koi:

Comment faire pour allier les deux ?
Utiliser DefaultDOMVendor:='ADOM XML v4'; (unité Xml.adomxmldom)