Bonjour j'ai un flux RSS je j'analyse pour extraire les infos.
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&amp;titre_livre=Aptes, le guide pratique du quotidien</link>
      <description>&lt;p&gt;Auteur : Barcq Fabrice &lt;/p&gt;&lt;p&gt;Editeur : Association des personnes concernées par le tremblement essentiel&lt;/p&gt;&lt;p&gt;Date de parution : 11/09/2012&lt;/p&gt;</description>
      <enclosure url="http://nouveautes-editeurs.bnf.fr:80/image.html?app=NE&amp;declaration=10000000078222&amp;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&amp;titre_livre=Aptes, le guide pratique du quotidien</guid>
      <dc:date>2012-09-16T22:00:00Z</dc:date>
    </item>
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.

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;