Programmer un lecteur de flux RSS avec 4D

<rss version="2.0">
<channel>
<title>Raizonons - Recherche :XML</title>
<link>http://raizonons.free.fr/index.php/recherche/XML</link>
<description>
Recherche dans l'actualité des grands médias francophones. Retrouvez l'intégralité de la recherche sur http://raizonons.free.fr.
</description>
<item>
<title>Tous les résultats de la recherche 'XML'</title>
<link>http://raizonons.free.fr/index.php/recherche/XML</link>
</item>
<item>
<title>Le format Open Document soutenu par Google.</title>
<link>
http://raizonons.free.fr/redir.php?link=http://www.sur-la-toile.com/mod_News_article_1953___.html
</link>
<description>
Il y a quelques jours, nous vous annoncions la prise en compte par Microsoft d'Open Document, le concurrent libre du format Open XML. Plus de 240 entreprises soutiennent le format libre en participant au consortium ODF Alliance. Google vient de rejoindre le consortium. ... Source : Sur la toile - internet
</description>
</item>
…

<item>
<title>La valise Hervé L</title>
<guid>http://joe.ipradio.example.net/show/54</guid>
<pubDate>Mon, 8 Aug 2005 13:12:12 -0400</pubDate>
<enclosure url="http://joe.ipradio.example.net/show/54" length="4892178" type="audio/x-mp3"/>
</item>

<item>
<title>Encore moi</title>
<guid>http://sulvietv.example.com/show/2</guid>
<pubDate>Tue, 9 Aug 2005 13:12:12 -0400</pubDate>
<enclosure url="http://katetv.example.com/show/2" length="1894877" type="video/mpeg"/>
</item>

  ` ---------------------------------------------------- 
  ` Nom utilisateur (OS) : christophe Keromen 
  ` Date et heure : 09/01/06, 09:02:44
  ` ---------------------------------------------------- 
  ` Methode : RSS_getStream
  ` Description :
  ` relit un flux RSS
  ` d'après un exemple de Rob Laveaux dans XML Plugin Demo v2.0
  `-> This method will retrieve a RSS file from the given URL
  ` and will fill the arrays with the title, description and link
  ` RSS (RDF site summary or rich site summary) is a standard for publishing
  ` site summaries on the web. It has many applications, but is mostly used to
  ` retrieve headlines from news sites
  ` 
  ` Parametres :
  ` $1:TEXTE:URL 
  ` $2:POINTEUR:Tableau titres
  ` $3:POINTEUR:Tableau description
  ` $4:POINTEUR:Tableau liens
  ` 
  ` Version : 1 
  ` Appel : RSS_getStream ($_vt_URL;->Title;->Description;->Link) 
  ` ---------------------------------------------------- 

C_TEXTE($1;$vt_URL)
$vt_URL:=$1

C_POINTEUR($2;$3;$4;$vp_Titles;$vp_Descriptions;$vp_Links)

$vp_Titles:=$2
$vp_Descriptions:=$3
$vp_Links:=$4

ZTAB_sizeArrays (0;$vp_Titles;$vp_Descriptions;$vp_Links)

C_BOOLEEN($_vb_ifValidate)
$_vb_ifValidate:=Faux  `pour la substitution d'entités depuis la DTD

  ` interroge la source du flux et le charge en mémoire
C_TEXTE($_vt_refRoot)
$_vt_refRoot:=DOM Analyser source XML($vt_URL;$_vb_ifValidate)

Si (ok=1)
    
    C_TEXTE($_vt_element)
    DOM LIRE NOM ELEMENT XML($_vt_refRoot;$_vt_element)
    
    Au cas ou 
        : ($_vt_element="rss")
            C_TEXTE($_vt_rssVersion)
            DOM LIRE ATTRIBUT XML PAR NOM($_vt_refRoot;"Version";$_vt_rssVersion)
            Si ($_vt_rssVersion="2.0") | ($_vt_rssVersion="0.91") | ($vt_URL="http://www.4d.com/@")
                
                C_TEXTE($_vt_xpathItem)
                $_vt_xpathItem:="/rss/channel/item["
                RSS_parse ($_vt_refRoot;$vp_Titles;$vp_Descriptions;$vp_Links;$_vt_xpathItem)
                
            Sinon 
                ZTAB_sizeArrays (1;$vp_Titles;$vp_Descriptions;$vp_Links)
                $vp_Titles->{1}:="Version non prise en charge"
                $vp_Descriptions->{1}:=$_vt_rssVersion
                $vp_Links->{1}:="http://www.stervinou.com/projets/rss/"
            Fin de si 
            
        : ($_vt_element="rdf:rdf")  `v 1.0
            Si (Vrai)
                C_TEXTE($_vt_xpathItem)
                $_vt_xpathItem:="/RDF/item["
                RSS_parse ($_vt_refRoot;$vp_Titles;$vp_Descriptions;$vp_Links;$_vt_xpathItem)
                
            Sinon   `autre méthode par parcours des enfants
                RSS_v1_parse ($_vt_refRoot;$vp_Titles;$vp_Descriptions;$vp_Links)
            Fin de si 
            
        Sinon 
            DOM LIRE ATTRIBUT XML PAR NOM($_vt_refRoot;"xmlns";$_vt_rssVersion)
            ZTAB_sizeArrays (1;$vp_Titles;$vp_Descriptions;$vp_Links)
            $vp_Titles->{1}:="Version non prise en charge"
            $vp_Descriptions->{1}:=$_vt_rssVersion
            $vp_Links->{1}:="http://www.stervinou.com/projets/rss/"
    Fin de cas 
    
    DOM FERMER XML($_vt_refRoot)
Fin de si

  ` ---------------------------------------------------- 
  ` Nom utilisateur (OS) : christophe Keromen 
  ` Date et heure : 18/08/06, 21:53:22
  ` ---------------------------------------------------- 
  ` Methode : RSS_parse
  ` Description :
  ` relit un flux RSS
  ` 
  ` Parametres :
  ` $1:TEXTE:ref racine XML 
  ` $2:POINTEUR:Tableau titres
  ` $3:POINTEUR:Tableau description
  ` $4:POINTEUR:Tableau liens
  ` $5:TEXTE:expression XPath pour item
  ` 
  ` Version : 1 
  ` Appel : RSS_parse ($_vt_refRoot;$vp_Titles;$vp_Descriptions;$vp_Links;$_vt_xpathItem) 
  ` ---------------------------------------------------- 

C_TEXTE($1;$_vt_refRoot)
$_vt_refRoot:=$1

C_POINTEUR($2;$3;$4;$vp_Titles;$vp_Descriptions;$vp_Links)

$vp_Titles:=$2
$vp_Descriptions:=$3
$vp_Links:=$4

C_TEXTE($5;$_vt_xpathItem)
$_vt_xpathItem:=$5

C_ENTIER LONG($vl_Count)
$vl_Count:=1

Repeter 
    
      `on recherche les items par une expression XPath
    C_TEXTE($_vt_ItemFound)
    $_vt_ItemFound:=DOM Chercher element XML($_vt_refRoot;$_vt_xpathItem+Chaine($vl_Count)+"]")
    
    Si (ok=1)
        
          ` Resize the arrays
        ZTAB_sizeArrays ($vl_Count;$vp_Titles;$vp_Descriptions;$vp_Links)
        
          ` enfants de l'element item
          `<item>
          `   <title>Nouveau Centre de Formation 4D</title>
          `   <link>http: >> 4DToday.com/home†c=Date&d=2006-1-9</link>
          `   <description>4D SA a annoncé le lancement du nouveau Centre de Formation 4D.
`Le centre de formation 4D, s'enrichit d'un espace dédié en ligne,
`pour plus d'interaction, plus de personnalisation afin de mieux
`s'adapt à vos demandes.</description>
          `</item>
        
        C_TEXTE($_vt_valeurElement)
        
        $_vt_valeurElement:=DOM_LireValeurElement_XPath ($_vt_ItemFound;"title")
        Si (ok=1)
            $vp_Titles->{$vl_Count}:=$_vt_valeurElement
        Fin de si 
        
        $_vt_valeurElement:=DOM_LireValeurElement_XPath ($_vt_ItemFound;"description")
        Si (ok=1)
            $vp_Descriptions->{$vl_Count}:=$_vt_valeurElement
        Fin de si 
        
        $_vt_valeurElement:=DOM_LireValeurElement_XPath ($_vt_ItemFound;"link")
        Si (ok=1)
            $vp_Links->{$vl_Count}:=$_vt_valeurElement
        Fin de si 
        
ok:=1
    Fin de si 
    
    $vl_Count:=$vl_Count+1
    
Jusque (ok=0)

<rdf:RDF>
<channel rdf:about="http://20six.fr/xml-ws/rss">
<title>XML et services Web avec 4D</title>