Discussion :

[SergioMaster]

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 :

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
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

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)

[SergioMaster]

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

Code :

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

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

est loin d'être un triskell, bien sûr si j'enlève ce qui est en rouge j'ai

ce qui est encore loin de

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

[SergioMaster]

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

Avec ce code

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
 
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 (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

[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

[SergioMaster]

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 :

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
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"

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

Mais bon, faut pas pousser le bouchon, au départ mes tests d'utilisation se limitaient à un simple triangle

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

End tag g
does not match the start tag g.

Ligne: xxxxx >.

une idée pour gérer ça ?

[SergioMaster]

la procédure n'est pas encore au point 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

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