PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... |  | Português FR
Inicio → WINDEV 25 → WB - Como exibir um feed RSS com imagens em um site Webdev?
WB - Como exibir um feed RSS com imagens em um site Webdev?
Iniciado por BOLLER ADRIANO, jun., 28 2016 1:28 AM - Sem resposta
#1
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 28 2016 - 1:28 AM
Como exibir um feed RSS com imagens em um site Webdev?

Um exemplo deste código informando RSS ( evolução do exemplo padrão de Webdev chamado "WW_Flux_RSS" SetFlux Procedimento ). Aqui, o procedimento modificado:

clCanal est un rssCanal
clEntrée est une rssEntrée
nIndiceEntrée est un entier

// Définit et charge le flux
// Ou sURL contient l'URL du fichier XML de flux RSS
MonFlux = rssInitialise(sURL, depuisURL)
gsURL = sURL

// Affiche le contenu du flux
ZoneRépétéeSupprimeTout(ZR_MDL_ITEMS)
CELL_MDL_BAS.LIEN_MDL_SUIVANT..Visible = Faux
CELL_MDL_BAS.LIEN_MDL_PRECEDENT..Visible = Faux

// Si le flux contient un canal
SI MonFlux.Canal..Occurrence > 0 ALORS

// Lecture du flux
clCanal = MonFlux.Canal[1]

// Titre et URL du flux
CELL_MDL_ENTETE.LIEN_MDL_TITRE = SansCaract10(clCanal.Titre)
CELL_MDL_ENTETE.LIEN_MDL_TITRE..URL = SansCaract10(clCanal.Lien)

// Parcours des items
// DepuisFin Permet d'afficher les dernières publications en première page

POUR TOUT clEntrée, nIndiceEntrée de clCanal.Entrée DepuisFin

// Ajoute l'item
// L'image est affichée au travers d'un champ HTML ajouté dans la zone répétée
// On aura posé un attribut "Valeur" sur ce champ HTML dans la zone répétée

ZoneRépétéeAjouteLigne(ZR_MDL_ITEMS, ...
SansCaract10(clEntrée.Lien), ...
SansCaract10(clEntrée.Titre), ...
SansCaract10(clEntrée.Lien), ...
0, "", Faux, ...
SansCaract10(clEntrée.Description), ...
nIndiceEntrée,
"<HTML><img src="""+clEntrée.DocumentJoint..URL+"""></HTML>") //Gestion de l'image

FIN
RENVOYER Vrai
FIN


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
→ Voltar para WINDEV 25