(Visual FoxPro) Read RSS Feed

Sample code showing how to read an RSS feed and emit the contents.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loRss
LOCAL lnSuccess
LOCAL loRssChannel
LOCAL lnNumItems
LOCAL i
LOCAL loRssItem
LOCAL lnNumCategories
LOCAL j

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rss')
loRss = CreateObject('Chilkat.Rss')

* Download from the feed URL:
lnSuccess = loRss.DownloadRss("http://www.nytimes.com/services/xml/rss/nyt/HomePage.xml")
IF (lnSuccess <> 1) THEN
    ? loRss.LastErrorText
    RELEASE loRss
    CANCEL
ENDIF

* Get the 1st channel.
loRssChannel = loRss.GetChannel(0)
IF (loRss.LastMethodSuccess = 0) THEN
    ? "No channel found in RSS feed."
    RELEASE loRss
    CANCEL
ENDIF

* Display the various pieces of information about the channel:
? "Title: " + loRssChannel.GetString("title")
? "Link: " + loRssChannel.GetString("link")
? "Description: " + loRssChannel.GetString("description")

* For each item in the channel, display the title, link,
* publish date, and categories assigned to the post.
lnNumItems = loRssChannel.NumItems

FOR i = 0 TO lnNumItems - 1
    loRssItem = loRssChannel.GetItem(i)

    ? "----"
    ? "Title: " + loRssItem.GetString("title")
    ? "Link: " + loRssItem.GetString("link")
    ? "pubDate: " + loRssItem.GetString("pubDate")

    lnNumCategories = loRssItem.GetCount("category")

    IF (lnNumCategories > 0) THEN
        FOR j = 0 TO lnNumCategories - 1
            ? "    category: " + loRssItem.MGetString("category",j)
        NEXT

    ENDIF

    RELEASE loRssItem
NEXT

RELEASE loRssChannel

RELEASE loRss