Ouvrir un lien d'un xml dans une listbox

Version imprimable

Bonjour je développe actuellement mon application iptv reservé ( question de legalité ) aux chaines de la tnt avec les liens officiel de france 2 etc etc

passons a mon probleme

j'ai une listbox et je doit demander au bouton de lire le flux de france 2 quand le clique sur france 2 a france 3 etc etc et aussi lancer vlc ( sachant que j'ai pour le moment 18 chaines de la tnt dans le xml je me voit mal faire 18 boutons mdr )

donc voici le code de mon xml pour le moment
Code:

1 2 3 4 <channel> <name>France 2</name> <url>http://live.francetv.fr/simulcast/France_2/hls_v1/index.m3u8</url> </channel>
et voici le code vb net
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Imports System.Xml Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim doc As New XmlDocument() doc.Load("C:\Users\remysimpson\Desktop/test.xml") For Each serverNode As XmlNode In doc.SelectNodes("/channels/channel") Dim name As String = serverNode.SelectSingleNode("name").InnerText ListBox1.Items.Add(name) Next End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim myShell myShell = Shell("""C:\Program Files (x86)\VideoLAN\VLC\vlc.exe"" """"", AppWinStyle.MaximizedFocus) End Sub
j'ai regarder sur pas mal de forum et aucune personne a casiment le meme probleme :(

bien sur l'adresse du xml va changer de seras dans le dossier du logiciel :) c'est juste pour les test qu'il et dans mon bureau
merci d'avance

Bonjour,

Tu pourrais passer par une classe Chaine qui contiendrait le nom et l'url. Tu lis le xml, crées une instance de classe par chaine et stocke la chaine comme item de ta combo (pour faire simple).

La classe Chaine :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class Chaine
    Property Name As String
    Property Url As String
 
    Public Sub New(aName As String, aUrl As String)
        Name = aName
        Url = aUrl
    End Sub
 
    Public Overrides Function ToString() As String
        Return Name
    End Function
End Class

Tu stockes les chaines dans la combo :

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   Dim doc As New XmlDocument()
   doc.Load("C:\Users\remysimpson\Desktop/test.xml")
   Dim Chaine As Chaine
   For Each serverNode As XmlNode In doc.SelectNodes("/channels/channel")  
     aChaine = New Chaine(serverNode.SelectSingleNode("name").InnerText,serverNode.SelectSingleNode("url").InnerText)
     ListBox1.Items.Add(aChaine)
   Next
End Sub

Enfin à la sélection de la chaine dans la combo, tu récupères l'objet avec son url :

Code:

1
2
3
4
5
6
 
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
  Dim aChaine As Chaine
  aChaine = CType(CType(sender, ComboBox).SelectedItem, Chaine)
  Label1.Text = aChaine.Url
End Sub

Après tu peux aussi stocker toutes les chaines dans une liste (si ça peut te servir pour autre chose)

19/01/2017, 19h20
remysimpson

merci je regarde ça et je te tien au jus :)

par contre je pense que je me suis mal exprimer

dans le button 1 je veux ouvrir l'url avec vlc ( bon je sais faire ça c'est pas un probleme enfin j'espere car actuellement j'ai fait ligne par ligne ( donc 18x le meme code :( ) donc je vais voir si je peux adapté le code ( oui je suis un gros noob mdr )

edit : apparement ça marche pas ou alors j'ai mal fait je voit pas l'url nul part
20/01/2017, 10h37
ebastien

Je n'ai pas testé la récupération de l'url dans le xml. Je supposais ce code devait faire l'affaire:

Code:

serverNode.SelectSingleNode("url").InnerText

J'avoue que j'ai plutôt tendance à utiliser Xml.Linq pour traiter le xml. Tu dois pouvoir le corriger pour que ça fonctionne.
20/01/2017, 11h07
remysimpson

heu corriger moi tout seul ça va etre chaud j'ai des n,otion ouais mais a ce point mme si ça doit etre facile j'ai jamais toucher les code qui lie le xml au vb enfaite :(

Salut,

l'accès XML d'ebastien fonctionne bien semble-t-il.
En partant de son code (je remets pas sa classe Chaine), voilà à quoi pourrait ressembler ton code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Public Class frmMain
 
    ' event load où on charge les données du fichier XML
    Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim doc As New XmlDocument()
        doc.Load("C:\tmp\chaines.xml")
        For Each serverNode As XmlNode In doc.SelectNodes("/channels/channel")
            lstChaine.Items.Add(New Chaine(
                                serverNode.SelectSingleNode("name").InnerText,
                                serverNode.SelectSingleNode("url").InnerText))
        Next
    End Sub
 
    ' l'event click de l'unique bouton qui lancera la chaine sélectionnée (moi j'affiche juste l'URL dans une MessageBox, à toi de faire le taf)
    Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click
 
        ' si l'utilisateur n'a pas choisi de chaine on le lui dit gentiment (on pourrait simplement ne rien faire, voire enabler/disabler le bouton)
        If lstChaine.SelectedItem Is Nothing Then
            MessageBox.Show("choisis une chaine boulet !")
 
        ' sinon on cast l'item en Chaine pour accéder à son attribut Url
        Else
            Dim currentItem As Chaine
            currentItem = CType(lstChaine.SelectedItem, Chaine)
            MessageBox.Show(currentItem.Url)
        End If
 
    End Sub
 
End Class

Bon dev.

20/01/2017, 11h39
remysimpson

merci je crois que j'ai juste mis au mauvais endroit son code enfaite mdr

je vais testé ( si ça marche pa sje comprend pas mdr )

edit : le code marche parfaitement j'avais juste mal compris son message :) maintenant reste plus qu'a réussir a ouvrir vlc avec le lien j'avais fait un code bizarre pour ouvrir le lien avec vlc mais bon desormais c'est plus simple mdr

edit : c'est bon ça marche j'ai réussit encore merci :) je laisse la fin de mon code a ceux qui veulent ( ça peux toiujours servir )

Code:

System.Diagnostics.Process.Start("C:\Program Files (x86)\VideoLAN\VLC/vlc.exe", currentItem.Url)

encore merci :)
20/01/2017, 12h02
jopopmk

Je suis au boulot donc je peux pas tester cette partie, mais le lancement de l'URL par VLC devrait être un truc du genre :

Code:

Process.Start("C:\Program Files\VideoLAN\VLC\vlc.exe", currentItem.Url)

edit : bon ben t'avais même pas besoin de nous pour cette partie :mrgreen: