Discussion :

[aityahia]

Bonjour,


Je suis entrains d'écrire une petite application pour gérer ma vidéothèque, pour ça j'ai besoin d'aller récupérer des info sur mes films sur Allocine via leur api

Voici mon 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
Try
 
 x:= IdHTTP1.Get(Format('http://api.allocine.fr/rest/v3/search?partner=YW5kcm9pZC12M3M&filter=movie&q=%s&format=xml',
    [IdHTTP1.URL.PathEncode(EditNom.Text)]));
 Edit2.Text := Format('http://api.allocine.fr/rest/v3/search?partner=YW5kcm9pZC12M3M&filter=movie&q=%s&format=xml',
    [IdHTTP1.URL.PathEncode(EditNom.Text)]);
  Memo1.text:=x;
  Memo1.Lines.SaveToFile('C:\DAS 2011\mydox.xml');
Finally
 
   XMLDocument1.XML.text := x;
   XMLDocument1.Active := true;
   Edit1.Text :=XMLDocument1.ChildNodes.FindNode('movie code').NodeValue ;
 
End;

j'arrive à récupérer ces infos en format XML, mais quand je tente de les exploiter à l'aide XMLDocument, j'ai un message d'erreur

---------------------------
Project1
---------------------------
Non valide au niveau supérieur du document.

Ligne: 1

<?xml version="1.0" encoding="utf-8"?>.
---------------------------
OK
---------------------------

lorsque je récupère le contenue du XML et je l'enregistre sur un fichier pour le tester sur Éditeur XML (j'ai le même problème avec XML Notepad)

hors que mon XML est bien valide, comme on peut le vérifier avec le validateur w3

donc j'ai pensé au problème du BOM

comment peut on ôter le BOM ?

je suis sous Delphi EX2

[ShaiLeTroll]

J'ai testé l'URL dans FireFox et sous IE6, il n'y a aucun soucis de XML !
Utilise un TStringStream pour enregistrer le fichier au lieu d'un TMemo !
Tu verras avec un Editeur Hexa, la précense du BOM

Essaye un LoadFromFile ou LoadFromStream au lieu d'utiliser XML.Text !

Code :

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

1
2
IdHTTP1.Get(..., Stream);
XMLDocument1.LoadFromStream(Stream);

Ta structure de try finally est étrange !
Si le Get provoque une Exception, tu ne devrais pas charger le XML !

[aityahia]

Merci Shai pour votre réponse

effectivement il y a un BOM, lorsque je charge le Stream résultant dans un Memo avec LoadFromStream j'ai rien, comme si le stream est vide

Mais quand je j'utilise la propriété DataString de mon stream, j'ai mon XML dont Voici la première ligne qui montre le BOM

Code xml :

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

<?xml version="1.0" encoding="utf-8"?>

Soit x mon stream

Code :

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

Memo1.text := x.DataString;

pour le Try Finally

la requête Get peut prendre un peu de temps alors j'attend que le traitement soit terminé pour charger le code XML, je rajouterais par la suite la gestion des exceptions

[aityahia]

Je viens de trouver, il fallait ajouter

Code :

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

Stream.position := 0 ;