Banner demo

[jj2007]

Just for fun - a banner demo using a known newsfeed.

[dedndave]

nice  :t

ya know, that brings up something i wanted to write - along a similar line...

that is, a TV schedule program
there has to be various sites out there that provide schedule info in some sort of standardized fashion   :P

[jj2007]

Yes, a "TV now" banner would be nice indeed. Extracting the data from xml is not so difficult, see below, but I spent a lot of time designing the WM_PAINT handler.

GetBanner:
  xor esi, esi
  Let esi=FileRead$(RssFeed$)
  xor ecx, ecx
  .While 1
      .Break .if !Extract$(esi, "<title>", '</title>', xsLoop, 100)
      Let Title$(ecx)=eax
      .Break .if !Extract$(esi, "<description>", '</description>', xsLoop, 100)
      Let Desc$(ecx)=eax
      deb 4, "Feed", $Title$(ecx), $Desc$(ecx):60
      inc ecx
  .Endw
  mov bmax, ecx
  Clr$ esi
  retn

[Torinofarra]

Searching for a way to fix this problem.