AYUDA EN LÍNEA
 WINDEV, WEBDEV Y WINDEV MOBILE
Este contenido se ha traducido automáticamente.  Haga clic aquí  para ver la versión en inglés.
Ayuda / WLanguage / Funciones WLanguage / Comunicación / Funciones Fuente RSS
  • Overview
  • How to?
  • Create an RSS feed
  • Examples
WINDEV
WindowsLinuxJavaReportes y ConsultasCódigo de Usuario (UMC)
WEBDEV
WindowsLinuxPHPWEBDEV - Código Navegador
WINDEV Mobile
AndroidWidget Android iPhone/iPadIOS WidgetApple WatchMac Catalyst
Otros
Procedimientos almacenados
Create an RSS feed
Overview
WINDEV, WEBDEV and WINDEV Mobile allow you to produce and/or consume an RSS feed (Rapid Simple Syndication).
An RSS feed is used to produce (make available) a data stream in standard format. This data stream can be read (consumed) by an application.
A reader of RSS feed is used to display one or more RSS feeds.
How to?

Create an RSS feed

To create an RSS feed:
  1. Declare the rssStream, rssChannel and rssEntry variables.
  2. Describe the channel with the rssChannel properties.
  3. Describe the entries with the rssEntry properties.
  4. Add the channel then its entries into the stream.
Remarks:
  • A stream is made of channels. A channel is made of entries.
  • We recommend that you use functions such as Add, Delete, … to handle the array of entries and the array of channels.

Examples

Example for creating a RSS feed:
MyStream is rssStream
MyChannel is rssChannel
MyEntry is rssEntry
MyPath is string

// Characteristics of channel
MyChannel.Title = "My site"
MyChannel.Description = "Example of RSS 2.0 stream"
MyChannel.UpdateDate = DateSys() + TimeSys()
MyChannel.Link = "http://www.example.org"
// Characteristics of entries of channel 1
MyEntry.Author = "pcsoft@pcsoft.fr"
MyEntry.Description = "First news"
MyEntry.Title = "News #1"
// Adds the entry into the channel
Add(MyChannel.Entry, MyEntry)
// Adds the channel into the stream
Add(MyStream.Channel, MyChannel)

// Saves the stream in a file
MyPath = CompleteDir(fCurrentDir()) + "Rss.xml"
rssSave(MyStream, MyPath)

// Displays the XML file of stream
IF NOT ShellExecute(MyPath) THEN
	Error("ShellExecute('" + MyPath + "'). '" + ErrorInfo() + "'")
END
Please note In this example, additions made with the Add function must be made last to manipulate the desired element. You also have the ability to use the following code: 
MyStream is rssStream 
ChannelNum is int
EntryNum is int
MyPath is string

MyPath = CompleteDir(fCurrentDir()) + "Rss.xml"

// Describe and add the channel
ChannelNum = 1
ChannelNum = Add(MyStream.Channel)
MyStream.Channel[ChannelNum].Title = "My site"
MyStream.Channel[ChannelNum].Description = "Example of RSS 2.0 stream"
MyStream.Channel[ChannelNum].PublicationDate = Today()
MyStream.Channel[ChannelNum].Link = "http://www.example.org"

// Describe and add the entry 1
EntryNum = Add(MyStream.Channel[ChannelNum].Entry)
MyStream.Channel[ChannelNum].Entry[EntryNum].Title = "First news"
MyStream.Channel[ChannelNum].Entry[EntryNum].Description = "News #1"
MyStream.Channel[ChannelNum].Entry[EntryNum].Link = "http://www.example.org"
MyStream.Channel[ChannelNum].Entry[EntryNum].PublicationDate = Today()
EntryNum = Add(MyStream.Channel[ChannelNum].Entry)

// Describe and add the next entry
MyEntry is rssEntry dynamic = MyStream.Channel[ChannelNum].Entry[EntryNum]
MyEntry.Title = "Second news"
MyEntry.Description = "News #2"
MyEntry.Link = "http://www.example.org"
MyEntry.PublicationDate = Today()

// Saves the stream in a file
rssSave(MyStream, MyPath)

// Displays the XML file of stream
IF NOT ShellExecute(MyPath) THEN
	Error("ShellExecute('" + MyPath + "'). '" + ErrorInfo() + "'")
END
Ver también
Versión mínima requerida
  • Versión 14
Esta página también está disponible para…
Comentarios
Haga clic en [Agregar] para publicar un comentario

Última modificación: 28/03/2025

Señalar un error o enviar una sugerencia | Ayuda local