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 27
| PROCEDURE BrowseContent(serv,IDBrowse,cheminArbre="deb")
MonDocXML est un WL.XMLDocument,Description="upnp"
tabObjIn est un tableau de 0 chaîne
tabObjOut est un tableau de 0 chaîne
uncontainer est un xmlNoeud,Description="upnp.DIDLLite.container"
chemArbreActu est une chaîne
TableauAjoute(tabObjIn,IDBrowse)
TableauAjoute(tabObjIn,"BrowseDirectChildren")
TableauAjoute(tabObjIn,"")
TableauAjoute(tabObjIn,"0")
TableauAjoute(tabObjIn,"0")
TableauAjoute(tabObjIn,"")
tabObjOut = serv:InvokeAction("Browse",tabObjIn)
MonResultat est une chaîne = Remplace(tabObjOut[1],"DIDL-","DIDL")
MonDocXML = XMLOuvre(ChaîneVersUTF8(MonResultat),depuisChaîne)
POUR TOUT uncontainer DE MonDocXML.DIDLLite
SI uncontainer..Attribut..Occurrence > 1 ALORS
chemArbreActu = cheminArbre+TAB + uncontainer.title
Trace (uncontainer:id, " : ", uncontainer.title)
SI uncontainer.class = "object.container" ALORS
ArbreAjoute(Fenêtre2.Arbre1, chemArbreActu,aDéfaut, aDéfaut,uncontainer:id)
BrowseContent(serv,uncontainer:id,chemArbreActu)
SINON
ArbreAjoute(Fenêtre2.Arbre1, chemArbreActu,"wmp.ico","wmp.ico",uncontainer:id)
FIN
FIN
FIN |
Partager