Discussion :

[splouf]

Bonjour,

Je développe un petit lecteur multimédia avec le composant wmp. Je eux intégrer les playlist, mais le problème est que lorsque je veux ajouter un fichier à une playlist, il ne la garde pas en mémoire (j'ai été vérifié sous wmp même), voici mon code d'ajout :

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
 
Private Sub ajouter_Click()
CD.Filter = "Tous les fichiers (*.*)|*.*|Windows Media Audio (*.mp3)|*.mp3|Windows Media Audio (*.wma)|*.wma|Windows Media Video (*.wmv)|*.wmv|Fichier Video |*.avi;*.divx|Fichiers musiques |*.mp3;*.wav;*.wma|"
CD.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
CD.ShowOpen
 
    If CD.FileName = "" Then
        Exit Sub
    Else
        Set nomfichier = MP.mediaCollection.Add(CD.FileName)
 
 
        MP.currentPlaylist.appendItem nomfichier
        List2.AddItem MP.mediaCollection.Add(CD.FileName).Name
 
    End If
End Sub

A la place de

Code :

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

MP.currentPlaylist.appendItem nomfichier

, je compte mettre

MP.currentPlaylist.insertItem (i), nomfichier

, avec i qui s'incrémente.

Si vous avez des propositions à faire. merci

[SilkyRoad]

bonjour

tu peux essayer cett syntaxe pour ajouter un element dans une playList existente

Code :

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

1
2
3
Dim Ad As IWMPMedia
Set Ad = Wmp.newMedia("C:\leFichier.mp3") 'adapter le chemin
Wmp.currentPlaylist.appendItem Ad

bonne soiree
michel

[splouf]

ça ne cgange rien, je n'ai toujours rien dans ma playlist, c'est étrange quand même, je ne comprends pas pourquoi ça ne garde pas en mémoire.

[SilkyRoad]

bonjour

chez moi cela fonctionne tres bien

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 ajouter_Click() 
Dim Ad As IWMPMedia 
 
CD.Filter = "Tous les fichiers (*.*)|*.*|Windows Media Audio (*.mp3)|*.mp3|Windows Media Audio (*.wma)|*.wma|Windows Media Video (*.wmv)|*.wmv|Fichier Video |*.avi;*.divx|Fichiers musiques |*.mp3;*.wav;*.wma|" 
CD.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer 
CD.ShowOpen 
 
If CD.FileName = "" Then Exit Sub 
 
Set Ad = Wmp.newMedia(CD.FileName) 
Wmp.currentPlaylist.appendItem Ad  
List2.AddItem CD.FileTitle
 
End Sub

j'utilise Excel pour les essais mais je presume que le principe est le meme en VB
(WindowsXP ,Excel2002 & Windos Media Player 10.0)



bonne journée
michel

[splouf]

donc quand tu crées une nouvelles playlist, ou bien que tu te serves d'une déjà créée, tu peux rajouter des musiques ? Et c'est conservé en mémoire ?

Car moi quand j'ajoute j'ai juste le nom de la chanson qui s'affiche dans ma liste, puis si je reviens après dans cette même playlist, je n'ai plus rien.

[jmfmarques]

Je commence à deviner ....
Tu ne voudrais pas dire par hasard, splouf, que ta liste est à nouveau vide après un relancement ?
Tu crois que la liste est "sauvegardée" dans ton projet et n'a pas besoin d'être reconstituée lors d'un relancement, au besoin à partir d'un fichier.text, ou d'un répertoire, ou encore d'une base de données ?
dis-nous !

[splouf]

Même si je ne quitte pas, lorsque je reviens dans ma liste, il n'y a plus rien.

Mais même ,si je quitte ,normalement, enfin je pense, ça devrait être sauvegardé, puisque ça utilise les playlist de windows media player, et que je peux voir les playlists que j'ai créé avec mon application dans wmp.