LEITOR DE RSS PARA EXIBIR EM MIDIA INDOOR?

SOUZA 20/06/2014 22:30:16
#439068
Pessoal preciso fazer uma tela que faça a leitura de um rss e crie uma tela parecida com estas.
Preciso fazer esta funcao para exibir esta noticias em tv inddor.
TECLA 21/06/2014 21:56:09
#439076
Sugiro que inicie o projeto e comece postando as dúvidas que forem surgindo ao longo do mesmo.
Não fornecemos código fonte pronto, mas sim dicas e trechos de códigos que te ajudarão a desenvolver o que precisa.
GNCNET 22/06/2014 10:01:29
#439082
Amigo, busque uma solução pronta: xibo.org.uk
Funciona em windows ou android
TUNUSAT 22/06/2014 10:02:29
#439083
Bom dia SOUZA,

Dá uma olhada neste exemplo e veja se te ajuda:

==================================================
Read RSS Feed

http://www.example-code.com/vb/rss_read_feed.asp
==================================================
Dim rss As New ChilkatRss

Dim success As Long

[ô]  Download from the feed URL:
success = rss.DownloadRss([Ô]http://blog.chilkatsoft.com/?feed=rss2[Ô])
If (success <> 1) Then
    MsgBox rss.LastErrorText
    Exit Sub
End If

[ô]  Get the 1st channel.
Dim rssChannel As ChilkatRss

Set rssChannel = rss.GetChannel(0)
If (rssChannel Is Nothing ) Then
    MsgBox [Ô]No channel found in RSS feed.[Ô]
    Exit Sub
End If

[ô]  Display the various pieces of information about the channel:
Text1.Text = Text1.Text & [Ô]Title: [Ô] & rssChannel.GetString([Ô]title[Ô]) & vbCrLf
Text1.Text = Text1.Text & [Ô]Link: [Ô] & rssChannel.GetString([Ô]link[Ô]) & vbCrLf
Text1.Text = Text1.Text & [Ô]Description: [Ô] & rssChannel.GetString([Ô]description[Ô]) & vbCrLf

[ô]  For each item in the channel, display the title, link,
[ô]  publish date, and categories assigned to the post.
Dim numItems As Long
numItems = rssChannel.NumItems
Dim i As Long

For i = 0 To numItems - 1
    Dim rssItem As ChilkatRss
    Set rssItem = rssChannel.GetItem(i)

    Text1.Text = Text1.Text & [Ô]----[Ô] & vbCrLf
    Text1.Text = Text1.Text & [Ô]Title: [Ô] & rssItem.GetString([Ô]title[Ô]) & vbCrLf
    Text1.Text = Text1.Text & [Ô]Link: [Ô] & rssItem.GetString([Ô]link[Ô]) & vbCrLf
    Text1.Text = Text1.Text & [Ô]pubDate: [Ô] & rssItem.GetString([Ô]pubDate[Ô]) & vbCrLf

    Dim numCategories As Long
    numCategories = rssItem.GetCount([Ô]category[Ô])
    Dim j As Long
    If (numCategories > 0) Then
        For j = 0 To numCategories - 1
            Text1.Text = Text1.Text & [Ô]    category: [Ô] _
                 & rssItem.MGetString([Ô]category[Ô],j) & vbCrLf
        Next

    End If

Next


[][ô]s,
Tunusat.
SOUZA 22/06/2014 11:50:39
#439087
TunuSat isso vai onde dentro do vb? Baixei os arquivos que ele precisa mas fica dando erro no [Ô]http://blog.chilkatsoft.com/?feed=rss2[Ô]
TUNUSAT 22/06/2014 12:52:49
#439090
SOUZA,

Mas pelo que eu entendi esta linha:

success = rss.DownloadRss([Ô]http://blog.chilkatsoft.com/?feed=rss2[Ô])


Pega a tela da leitura que você vai querer fazer. Então você precisa substituir para o caminho que você irá usar. Certo?

[][ô]s,
Tunusat.
SOUZA 22/06/2014 12:56:18
#439091
Sim mas eu ja alterei para (http://www.terra.com.br/rss/) que é o portal que quero as noticias mas ele continua dando erro!
LUSJI2011 22/06/2014 12:59:29
#439092
please help me in : http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=439088&pagina=1
SOUZA 22/06/2014 20:48:07
#439098
Caraca nao achei que ia ser tao dificil assim!

Acho que ja li umas 500 paginas atras disso e nada.

Valeu pessoal que ta tentando me ajudar ok e vamos atraz hehehe
SOUZA 23/06/2014 17:04:51
#439118
Vmao pessoal uma forcinha!
SOUZA 24/06/2014 11:33:05
#439126
Pessoal sei que tem sistemas free para fazer este serviço só que sao ruins ou sao online e no meu caso nao da pra ser assim!

Peço urgente por favor se alguem tiver uma ideia de como fazer me ajude, vi neste site uma OCX que realiza o q eu quero : https://sites.google.com/site/programacaoonline/family-blog/vb6/leitor-de-rss-em-vb6-ocx

O problema é que ela nao da opcao para alteração e vem todas as noticias de uma vez so e eu preciso que ele liste uma só para que possa intercalar as noticias entre as telas!
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar