Discussion :

[bentsen]

Bonjour à tous,

Ceci est mon premiers post sur ce site, et je vous remercie par avance de le lire.

Débutant en VB, j'essai de développé un petit prog, qui permettra beaucoup de chose, mais en partie de lire des fichiers mp3.

Mon probleme est que le lecteur mediaplayer, ne permet pas de lire un dossier complet.


Voici ce que jai fait.:

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
16
17
18
 
Private Sub parcourir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles parcourir.Click
 
        OpenFileDialog1.InitialDirectory = "F:\"
 
        OpenFileDialog1.ShowDialog()
        'ComboBox1.ObjectCollection = ((OpenFileDialog1.FileNames))
        'WMP.URL = ((OpenFileDialog1.FileName))
        For Each s In OpenFileDialog1.FileNames
 
            ListBox1.Items.Add(s)
        Next
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        WMP.URL = ListBox1.SelectedItem
    End Sub
End Class

En clair avec un bouton "parcourir(pcr), je vais chercher mes fichiers à lire. En revanche ceux-ci ne se lise pas automatiquement a la suite, je n'est pas la possibilité de faire suivant. Donc J'ai r'ajouté une ListeBox, que me permet de visualiser tout ces fichiers, en cliquant sur ceux-ci je peu les lires mais je n'est toujours pas la possibilité de les lire à la suite.


Si un quelqu'un à deja rencontré ce probleme, ou si un code traine merci de me le signaler, bien que je pense avoir fouillé partout

[hulahup]

Je n'ai pas de code en tête, mais le principe peut être celui-ci, je pense:

Tu lances le premier élément de ta liste en lecture, tu mest en mémoire son index dans la liste
Tu détectes la fin de lecture du wmp (wmpstate.stop je crois de mémoire)
Tu changes alors l'url de ton wmp: l'élément de la liste en index suivant.
Etc... Jusqu'à la fin de ta liste.

[Speranza]

Bonjour,

Pour avoir eu un probléme similaire (ou presque) je pense qu'il faudrais que tu regarde du côté de la génération de PlayList.

http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Le cours n'est pas pour VB.net, il se peut que tu ai as modifier quelques petites choses mais tu verras au moins le principe des PlayList et l'ajout, la lecture de fichiers.

[bentsen]

Bonjour,

malheuresement, j'ai déja essayé ces commandes et elles ne fonctionne pas.


Il faudrai que je puise créer une playlist et la remplir avec tout les fichier que je vais sélectionner

Si vous avez d'autres indications elles sont les biens venues.


Merci beaucoup

[supersnail]

J'ai peut-être une solution : utiliser les timers.
On pose un timer sur la fiche,et on met sa propriété à false.Dans le gestionnaire d'évènements,on tape:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
position = position +1
Player1.URL = ListBox1.Items(position) 'ici,on doit avoir le chemin complet C:\...\FICHIER.mp3
Player1.Controls.Play ' on lance la lecture
 
If position = ListBox1.Items.Count - 1 Then
timer1.Enabled = False
Else
 
Timer1.Enabled = True
 
Timer1.Interval = Payer1.CurentMedia.duration*1000 'on convertit les secondes en millisecondes
End If

[Speranza]

Bonjour,

malheuresement, j'ai déja essayé ces commandes et elles ne fonctionne pas.

Il faudrai que je puise créer une playlist et la remplir avec tout les fichier que je vais sélectionner

Comme je te l'avait dit, le cours n'était pas pour .net, il y a quelques petites choses à changer mais le principe et les noms sont quasiments identiques.

J'ai refait un petit bout de code en .net qui devrait t'éclairer:
note:
WMP représente le lecteur ( AxWindowsMediaPlayer )
ne pas oublier d'impoprter la librairie au début du programme: Imports WMPLib

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
16
17
18
19
20
21
22
23
24
25
26
27
 
        'pour l'exemple, je stocke les URLs des fichiers a lire dans un tableau.
        Dim tabURLs As String() = {"c:/premier.wma", "c:/deuxieme.wma", "c:/troisieme.wma"}
 
        'on va commencer par 
        WMP.currentPlaylist.clear() 'qui efface la liste de lecture actuelle
 
        'ensuite,
        For Each fichier As String In tabURLs 'pour chaque fichier dans le tableau
            Dim media As IWMPMedia = WMP.newMedia(fichier) 'on "convertis" l'URL en media
            WMP.currentPlaylist.appendItem(media) ' et on ajoute le media à la liste de lecture
        Next
 
        'ici, la playlist est construite,
        'on peu commencer la lecture par exemple
        WMP.Ctlcontrols.play()
 
        'si tu veus passer au fichier suivant:
        WMP.Ctlcontrols.next()
        'pour lire le fichier précédent:
        WMP.Ctlcontrols.previous()
 
        'si tu veus lire le 5eme élément de la playlist,
        WMP.Ctlcontrols.playItem(WMP.currentPlaylist.Item(5))
 
        'pour supprimer le 5eme élément de la playlist:
        WMP.currentPlaylist.removeItem(WMP.currentPlaylist.Item(5))