VLC et Playlist

**vins86** · 14/12/2014, 20h10

Bonjour tout le monde,

Je viens vers vous afin de pouvoir vous demander de l'aide.

J'essai de faire 2 lecteurs vidéos avec vlc et non pas avec Windows media player. Mais le problème c'est que je n'arrive pas à faire une playlist de lecture avec une listbox.

J'ai essayé plusieurs choses trouver un peu partout sur le web. Mais cela ne donne rien.

Voici le code où j'en suis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    Private Sub Ouv_player_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouv_player.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            For x = 0 To OpenFileDialog1.FileNames.Count - 1
                ListBox1.Items.Add(OpenFileDialog1.FileNames(x))
            Next
        End If
    End Sub
 
    Private Sub Lec_player_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lec_player.Click
        For I = 1 To ListBox1.Items.Count - 1
            Player.playlist.playItem(I)
            Form2.Player2.playlist.playItem(I)
        Next
    End Sub

Je ne vois pas comme faire.

**_Ez3kiel** · 15/12/2014, 14h09

Bonjour,

Je n'ai jamais été amené à utiliser VLC en programmation et je ne connais pas du tout son namespace donc je garantis rien mais je veux bien tenter d'aider.

Si je comprend bien, tu remplis ta listbox avec les path de tes retours d'OpenFileDialog, et dans le Lec_player.Click tu lances la lecture des paths, c'est ça ? Mais tu le fais avec Player.playlist.playItem(n) qui lancera la lecture de l'item à l'index n. Je connais pas la classe ni ses méthodes, mais l'index n en paramètre me laisser supposer que Player.playlist est un conteneur d'items et donc il faut ajouter tes paths qui sont contenus dans ta Listbox, dans ton conteneur d'items player.playlist pour pouvoir ensuite lancer la lecture de l'item n. N'as-tu pas une méthode pour ajouter au conteneur playlist ? Comme Player.playlist.Add(TonPath) ou quelque chose comme ça ?

**vins86** · 15/12/2014, 15h02

Bonjour _Ez3kiel,

Merci pour ta réponse, J'ai pour alimenter : Player.playlist.Add(TonPath). sauf que la lecture ne ce fait pas.

Cordialement,

Vincent.

**_Ez3kiel** · 15/12/2014, 15h33

Quand tu dis que la lecture ne se fait pas, c'est à dire la lecture de la playlist ? Ou il y a au moins un (le dernier selon la logique de ton algo) qui se lance ? Ou autre ?

Déjà sur la logique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        For I = 1 To ListBox1.Items.Count - 1
            Player.playlist.playItem(I)
            Form2.Player2.playlist.playItem(I)
        Next

Tel qu'est l'algo, il va lancer la lecture de chaque item de la liste, sauf qu'à chaque tour de boucle, l'item lancé sera remplacé par le suivant de la liste, et au final, en théorie, tu ne devrais avoir que le dernier item qui se lance ... Il faudrait que dans un premier temps tu charges le conteneur playlist, et dans un second tu lances la lecture. (Je ne sais pas si 'playlist' a des méthodes pour lancer la lecture de tout donc les méthodes sont probablement pas bonnes, ce sera à toi de chercher ...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
        For I = 1 To ListBox1.Items.Count - 1
            'On remplit la playlist de l'objet Player
            Player.playlist.add(ListBox.Items(I))
        Next
 
        'On lance la lecture de la playlist
        Player.playlist.playItem(0) 'Dès fois que la playlist se lance avec la lecture du 1er item ...
        Player.playlist.play()
        Player.playlist.Run()
        Player.playlist.playAll()

PS: De quelle classe est l'objet player ?

**vins86** · 15/12/2014, 16h19

Merci _Ez3kiel pour ta réponse aussi rapide.

Je regarde ce soir et je te tiens au courant.

J'espère que ceci va fonctionner parce que cela fait 2 jours que je me bat avec ceci.

Cordialement,

Vincent.

**_Ez3kiel** · 15/12/2014, 16h49

Pas de quoi.

Et j'ai aussi une question sur ta boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 For I = 1 To ListBox1.Items.Count - 1
            Player.playlist.playItem(I)
            Form2.Player2.playlist.playItem(I)
        Next

Tu pars avec For I = 1 to count -1, il y a une raison sur le fait de partir de 1 plutôt que 0 ? Car les items de la listbox ont un index qui se base sur le zero inclusif. Si tu n'as pas de bonnes raisons de choisir 1 plutôt que 0 tu risques de voir un OutOfRangeException débarquer sur ton écran ...

**vins86** · 15/12/2014, 18h32

Bonsoir,

A savoir que j'ai intégrer le VLC avec : vlc activex plugin and IE web v2

J'ai essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Sub Ouv_player_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouv_player.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            For x = 0 To OpenFileDialog1.FileNames.Count - 1
                ListBox1.Items.Add(OpenFileDialog1.FileNames(x))
            Next
        End If
    End Sub
 
    Private Sub Lec_player_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lec_player.Click
        For I = 0 To ListBox1.Items.Count - 1
            Player.playlist.playItem(I)
            Form2.Player2.playlist.playItem(I)
        Next
    End Sub

J'obtiens rien. il n'y aucune lecture. Mais aucun message d'erreur.

Cordialement,

**_Ez3kiel** · 16/12/2014, 10h20

Envoyé par vins86

Bonsoir,

A savoir que j'ai intégrer le VLC avec : vlc activex plugin and IE web v2

J'ai essayé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Sub Ouv_player_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouv_player.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            For x = 0 To OpenFileDialog1.FileNames.Count - 1
                ListBox1.Items.Add(OpenFileDialog1.FileNames(x))
            Next
        End If
    End Sub
 
    Private Sub Lec_player_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lec_player.Click
        For I = 0 To ListBox1.Items.Count - 1
            Player.playlist.playItem(I)
            Form2.Player2.playlist.playItem(I)
        Next
    End Sub

J'obtiens rien. il n'y aucune lecture. Mais aucun message d'erreur.

Cordialement,

Excepté la correction de la valeur d'index de ta boucle au départ, ton code est identique à celui de ton 1er post -> tu n'as pas tenu compte de mes remarques.

**vins86** · 16/12/2014, 11h09

Bonjour _Ez3kiel,

j'ai essayé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    'On lance la lecture de la playlist
        Player.playlist.playItem(0) 'Dès fois que la playlist se lance avec la lecture du 1er item ...
        Player.playlist.play()
        Player.playlist.Run()
        Player.playlist.playAll()

Il me met des erreurs pour:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Player.playlist.Run()
        Player.playlist.playAll()

Donc je ne sait pas comment faire.

Par contre si je passe pâr une textbox la vidéo ce lis bien.

Cordialement,

Vincent

**_Ez3kiel** · 16/12/2014, 13h38

Envoyé par vins86

Bonjour _Ez3kiel,

j'ai essayé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    'On lance la lecture de la playlist
        Player.playlist.playItem(0) 'Dès fois que la playlist se lance avec la lecture du 1er item ...
        Player.playlist.play()
        Player.playlist.Run()
        Player.playlist.playAll()

Il me met des erreurs pour:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Player.playlist.Run()
        Player.playlist.playAll()

Donc je ne sait pas comment faire.

Par contre si je passe pâr une textbox la vidéo ce lis bien.

Cordialement,

Vincent

Envoyé par _Ez3kiel;

Il faudrait que dans un premier temps tu charges le conteneur playlist, et dans un second tu lances la lecture. (Je ne sais pas si 'playlist' a des méthodes pour lancer la lecture de tout donc les méthodes sont probablement pas bonnes, ce sera à toi de chercher ...)

C'est à toi de fouiller dans ton intellisense pour trouver une méthode qui lance l'intégralité de la playlist sans avoir à pointer un des items en particulier et en prenant en compte que playlist est -je suppose- une collection.

A voir dans :
Player.playlist.MethodePourToutLire()Ou
player.MethodePourLirePlaylist()

**vins86** · 17/12/2014, 11h27

Bonjour _Ez3kiel,

Merci pour ton aide, mais du coup ne voyant aucune possibilitée dans l'immédiat j'ai fait le nécessaire avec WMP et cela fonctionne parfaitement.

Merci encore pour ton aide et le temps passé.

Cordialement,

Vincent.

**clementmarcotte** · 17/12/2014, 20h56

Bonjour,

Par curiosité, j'ai téléchargé VLC et, dans un projet, j'ai établi une référence avec l'ActiveX de VLC. La prime, si l'on peut dire, c'est qu'on peut l'examiner dans l'Explorateur d'objets. Or, on y découvre que l'ActiveX en question, n'a que des interfaces, Iquelquechose. En prime, il y a même deux "IPlayer"

Donc, pour arriver à quelque chose, il faut une (des) classe qui implémente(nt) les interfaces et de la cocologie pour ne rien oublier.

Pour peu que je me souvienne, c'est pas mal "moins direct" qu'avec WMP.

D'autant plus qu'il existe aussi des composants de "player", audio, vidéo, ou les deux en code managé.

**vins86** · 18/12/2014, 20h31

Bonsoir,

Je reviens sur le même sujet. La playlist avec wmp fonctionne par contre d'où le problème est que le deuxième lecteur en plein écran se réduit de taille à chaque changement de video. Et je ne souhaite pas qu'il se réduit.

Avec VLC, j'ai toujours le deuxième lecteur en plein écran mais la playlist ne fonctionnant pas.

Je sais pas comment faire.

Est-ce possible d'avoir la durée de la séquence sélectionnée sur VLC. Ne trouvant rien fonctionnant pour moi sur le net.

Cordialement,

Vincent.

**Sehnsucht** · 19/12/2014, 05h45

pour lire une playlist, il faut commencer par remplir la playlist du composant via Player.playlist.add(chemin) (dans une boucle) ; puis la lancer via Player.playlist.play() et enfin s'abonner à l'évènement MediaPlayerEndReached pour détecter la fin de lecture et lancer le suivant via Player.playlist.next()

Liens utiles : source d'une personne ayant le même problème et réponse évoquant l'évènement mentionné ; documentation

**vins86** · 19/12/2014, 14h41

Bonjour Sehnsucht,

Merci pour ces informations qu'y me donne des idées. mais par contre concernant l'alimentation de la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

playlist Player.playlist.add(chemin)

"chemin" est à partir d'une listbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For I = 0 To ListBox1.Items.Count - 1
playlist Player.playlist.add(chemin)
next

Cordialement,

Vincent

**vins86** · 20/12/2014, 17h46

Bonjour,

Je souhaitais tout simplement vous dire que j'ai maintenant une playlist qui fonctionne avec vlc.

Merci pour votre aide.

Cordialement,

Vincent.

**_Ez3kiel** · 29/12/2014, 10h33

Envoyé par vins86

Bonjour,

Je souhaitais tout simplement vous dire que j'ai maintenant une playlist qui fonctionne avec vlc.

Merci pour votre aide.

Cordialement,

Vincent.

Peut-on voir l'extrait de code final ?

Ce serait pratique dans l'éventualité où d'autres auraient le même soucis que toi.

VLC et Playlist [Débutant]

VB.NET

Discussions similaires

Partager

Partager