[11.2] Problème de lecture d'un XML EHierarchy_Request_Err

Bonjour,

avant de me mettre au boulot, j'ai repris "une vieille tapisserie" le chargement et analyse de fichier SVG.
Ce qui avait l'air de bien se passer avec un de mes drapeaux tests avec une version plus ancienne (10.3)

Code:

---

1 2 3 4 5 6 7

procedure TLoadSVGForm.LoadSVG(aFile: TFileName); var XmlSvg: IXMLDocument; begin DefaultDOMVendor := 'ADOM XML v4'; XmlSvg := LoadXMLDocument(aFile); ...

---

pour cette version de document

Code:

---

1 2 3 4 5 6 7 8 9 10 11

<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd"> <svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" version="1.1" width="1500" height="1000" viewBox="0 0 24000 16000"> <title>Flag of Barbados</title> <rect width="24000" height="16000" fill="#00267f" /> <rect width="8000" height="16000" fill="#ffc726" x="8000" /> <path id="h" fill="#000" d="M 12000,4124 C 11740,4833 11475,5571 10908,6136 C 11084,6078 11392,6026 11590,6031 L 11590,9013 L 10748,9138 C 10718,9135 10708,9088 10708,9024 C 10627,8098 10408,7320 10156,6515 C 10138,6405 9819,5985 10065,6059 C 10095,6063 10424,6197 10372,6133 C 9924,5669 9269,5335 8633,5236 C 8577,5222 8544,5250 8594,5315 C 9438,6614 10144,8147 10138,9966 C 10466,9966 11261,9772 11590,9772 C 11590,9772 11590,11876 11590,11876 L 12005,11876 12100, 6000 z"/> <use xlink:href="#h" transform="translate(24000,0) scale(-1,1)"/> </svg>

---

me renvoie désormais une erreur

Citation:

---

Le projet ProjectLoadSVG.exe a déclenché la classe d'exception EHierarchy_Request_Err avec le message 'Hierarchy request error.'.

---

[Edit] la version 10.4.2 me renvoie également l'erreur :weird::aie:

Si j'enlève manuellement le commentaire (ligne 2 du XML) cela passe.
Pièce jointe 625827
Question : comment faire pour ne pas faire cette manipulation ? une histoire de DOMVendor ?

Je me réponds parce que je ne voulais pas rester sur un échec. Oui, je suis un vrai pitbull quelquefois :)

Citation:

---

Envoyé par SergioMaster

une histoire de DOMVendor ?

---

Utiliser DOMVendor:='Omni XML'; résous le problème

Reste que, je reste sceptique :

• Jusqu'à quand ce changement de DOMVendor sera efficace ?
• Comment choisir le bon DOMVendor ?

En conclusion, c'est résolu, mais je prends toute explication sur les DOMVendor ;)

En Nota Bene, voici ma démarche pour trouver le bon DOMVendor.
J'ai écrit un programme simple
Pièce jointe 625829

avec ce code

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

{$R *.dfm}   uses Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc, Xml.adomxmldom, Xml.omnixmldom;   procedure TForm131.FormCreate(Sender: TObject); var v : integer; begin for v:=0 to DomVendors.Count-1 do ComboBox1.Items.add(Domvendors.Vendors[v].Description); end;   procedure TForm131.SpeedButton1Click(Sender: TObject); var XmlSvg: IXMLDocument; begin if FileOpenDialog1.execute then begin edit1.Text:=FileOpenDialog1.FileName; memo1.Lines.LoadFromFile(FileOpenDialog1.FileName); try DefaultDOMVendor := combobox1.Text; XmlSvg := LoadXMLDocument(edit1.text); except on e:exception do showmessage(e.Message); end; end; end;

---

même si la capture de l'exception ne fonctionne pas toujours comme il n'y avait que 3 DOMVendors ce fut assez simple à tester :mouarf:

alors j'ai regardé un peu car NotePad++ rapporte l'erreur "DTD interdite" sur ce document...alors que c'est valide en fait...

les explications ici

ils parlent de ProhibitDtd qui est en fait déprécié depuis...donc voici les explications en français de DtdProcessing qui lève une exception s'il a la valeur DtdProcessing.Prohibit.

après je n'ai pas regardé dans Delphi s'il était possible de modifier ce paramètre :)

Merci de ta recherche.

Il y a bien quelques références à Dtd parsemées dans les unités Xml.xxxx.pas, mais seule l'unité Xml.Win.msxmldom.pas aurait un accès or, comme il s'agit d'une application FMX seuls les DOMVendors 'ADOM XML v4' ou 'Omni XML' m'intéressait donc, je passe :roll:

ceci dit c'est une des raisons qui me font détester XML...on pourrait penser que c'est juste un langage à balises, mais en fait il y a tout un bordel autour avec les DTD les XSLT et autres qui rendent l'ensemble sacrément casse gueule (d'autres te diront incroyablement puissant)

et du XML j'en bouffe pas mal avec les services SOAP de l'ASIP Santé...et ils font bouger les règles en permanence ce qui rend le truc encore plus imbuvable...d'autant que leurs WS sont incapables de retourner des erreurs en bonne et due forme, ils se contentent généralement de te retourner une erreur 500 de plantage de la requête, point final. Le truc le plus énorme que j'ai vu c'est que pour une requête donnée, il faut soit faire du SOAP mis en forme (donc avec des retours à la ligne et non la forme compacte), soit insérer un espace devant une certaine balise sinon leur serveur ne reconnait pas la requête...:aie:

Citation:

---

Envoyé par Paul TOTH

et du XML j'en bouffe pas mal avec les services SOAP de l'ASIP Santé...et ils font bouger les règles en permanence ce qui rend le truc encore plus imbuvable

---

J'imagine ça sans peine