Bonjour j'ai un flux RSS je j'analyse pour extraire les infos.
Pas de problème pour extraire les noeuds title, link, description, etc mais je n'arrive pas à extraire l'URL après l'élément enclosure.
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 <?xml version="1.0" encoding="UTF-8"?> <rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:dc="http://purl.org/dc/elements/1.1/" version="2.0"> <channel> <title>Nouveautés Éditeurs</title> <link>http://nouveautes-editeurs.bnf.fr</link> <description>Nouveautés Éditeurs, annonces des livres à paraître ou récemment parus</description> <item> <title>Aptes, le guide pratique du quotidien : Mieux vivre le handicap du tremblement essentiel</title> <link>http://nouveautes-editeurs.bnf.fr/annonces.html?id_declaration=10000000078222&titre_livre=Aptes, le guide pratique du quotidien</link> <description><p>Auteur : Barcq Fabrice </p><p>Editeur : Association des personnes concernées par le tremblement essentiel</p><p>Date de parution : 11/09/2012</p></description> <enclosure url="http://nouveautes-editeurs.bnf.fr:80/image.html?app=NE&declaration=10000000078222&couverture=1" length="154149" type="image/jpeg" /> <pubDate>Sun, 16 Sep 2012 22:00:00 GMT</pubDate> <guid>http://nouveautes-editeurs.bnf.fr/annonces.html?id_declaration=10000000078222&titre_livre=Aptes, le guide pratique du quotidien</guid> <dc:date>2012-09-16T22:00:00Z</dc:date> </item>
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 StartItemNode := XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode('item'); ANode := StartItemNode; longueur := anode.AttributeNodes.Count; repeat STitle := ANode.ChildNodes['title'].Text; sDescription := ANode.ChildNodes['description'].Text; sEnclosure := ANode.ChildNodes['enclosure'].Text; // suite du traitement ANode := ANode.NextSibling; ligne := ligne + 1; until ANode = nil;
Partager