• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

JavaLL

PlayList .asx

4 mensagens neste tópico

Boas pessoal...

Tenho um pequeno problema na minha aplicação( C# , asp.net),gostaria que fosse possível gerar playlist no formato “.asx”

Os dados vem da base de dados em Access mas não faço a mínima ideia de como gerar ficheiros do tipo .asx

Sei o formato .asx guarda os dados no seguinte formato.

<ASX VERSION="3.0">
<Entry>
   <Title>videoTitel</Title>
   <ref href = "http://www.hosting-media.com/fr/virgin/labels/video/smilrtsp/0094631148125-01_07-high.wmx"/>
</Entry>
<Entry>
</ASX>

O ideal era qualquer coisa do tipo seleccionar a playlist atravez de uma dropdownlist e depois ter um botão “gerar playlist” em que este ia a base de dados e lia-me os videoTitel e o videoURL correspondente  e inseria num documento do tipo .asx

qualquer coisa e bem vinda

abraços

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Deixo-te aqui uma função que fiz no projecto de LPr para a exportação de dados da BD para um ficheiro .OPML ... Dá para veres como criar o ficheiro que pretendes, depois é só alterares consoante o que precisas.

''' <summary>
        ''' Função para exportar os dados da BD para o ficheiro OPML
        ''' </summary>
        ''' <param name="caminho">Caminho para onde será gravado o ficheiro</param>
        ''' <returns>True - Exportado com sucesso | False - Erro ao exportar</returns>
        ''' <remarks></remarks>
        Public Function Exportar(ByVal caminho As String) As Boolean
            Try
                Dim conn As New OleDbConnection
                Dim conn1 As New OleDbConnection
                conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\headlines.mdb;User Id=admin;Password=;"
                conn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\headlines.mdb;User Id=admin;Password=;"
                Dim adapter As OleDbDataAdapter
                adapter = New OleDbDataAdapter("SELECT * FROM pastas where deleted_flag='false'", conn)
                Dim dsFolders As New DataSet("pastas")
                conn.Open()
                adapter.Fill(dsFolders)
                Dim table As DataTable
                Dim row As DataRow
                Dim mywriter As System.Xml.XmlTextWriter
                'Instancia o XmlTextWriter com o caminho do ficheiro e a codificação a utilizar
                mywriter = New System.Xml.XmlTextWriter(caminho, System.Text.Encoding.UTF8)
                With mywriter
                    'Alguns parametros a definir no XML
                    .Indentation = 4
                    .IndentChar = " "
                    .Formatting = .Indentation
                    'Cria o nó principal do documento
                    .WriteStartDocument()
                    .WriteStartElement("opml") 'Nó <opml version="XX">
                    .WriteAttributeString("version", "2.0")
                    .WriteStartElement("head") 'Nó <head>
                    .WriteElementString("title", "RSS Reader OPML") 'Element <title>
                    .WriteElementString("dateCreated", DateTime.Now) 'Element <dateCreated>
                    .WriteElementString("ownerName", "Tiago Salgado") 'Element <ownerName>
                    .WriteElementString("ownerEmail", "xpto@xpto.com") 'Element <ownerEmail>
                    .WriteEndElement() 'Fim <head>

                    .WriteStartElement("body") 'Cria o nó <body>

                    'Percorre todos os registos da tabela pastas
                    For Each table In dsFolders.Tables
                        'Para cada registo cria uma <outline text="Nome da Pasta">
                        For Each row In table.Rows
                            .WriteStartElement("outline")
                            .WriteAttributeString("text", row("nome"))
                            Dim adapter_canais As OleDbDataAdapter
                            adapter_canais = New OleDbDataAdapter("SELECT * FROM feeds where deleted_flag='false' AND id_pasta=" & row("id"), conn1)
                            Dim dsCanais As New DataSet("canais")
                            conn1.Open()
                            adapter_canais.Fill(dsCanais)
                            Dim table_canais As DataTable
                            Dim row_canais As DataRow
                            For Each table_canais In dsCanais.Tables
                                'Para cada canal encontrado pertencente à pasta carregada actualmente
                                'vai adicionar um subnó <outline ...>
                                For Each row_canais In table_canais.Rows
                                    .WriteStartElement("outline")
                                    .WriteAttributeString("title", row_canais("nome"))
                                    .WriteAttributeString("xmlUrl", row_canais("url"))
                                    .WriteAttributeString("htmlUrl", row_canais("site"))
                                    .WriteEndElement() 'Fim <outline> NIVEL 2
                                Next
                            Next
                            conn1.Close()
                            .WriteEndElement() 'Fim <outline> NIVEL 1
                        Next
                    Next
                    .WriteEndElement() 'Fim <body>
                    .WriteEndElement() 'Fim versao OPML

                    .WriteEndDocument() 'Fim do XML

                    .Flush()
                    .Close()
                    conn.Close()
                End With
                Return True
            Catch
                Return False
            End Try
        End Function

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora