Discussion :

[Armas]

Bonjour à tous,

J'ai suivi plusieurs tutoriels pour utiliser directX Audiovideoplayback afin de lire des mp3 dans mon programme (pour le moment, tous mes fichiers sons sont en .wav, et ça donne un exe et un projet très lourd ...). Malheureusement, quelques soit le tuto ou la methode, j'arrive fatalement sur le même soucis :

Notion de retard

Microsoft VB 2010 express attend la fin d'un opération.

La compilation ne fini jamais, mais ne plante pas non plus, je ne comprend pas ... j'ai fait quelques recherche sur google, en français et en anglais, mais rien ...
Au final, je suis forcé d'interrompre le processus pour pouvoir stoper VB.

Quelqu'un a une idée du pourquoi ?

Le code est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Imports Microsoft.DirectX.AudioVideoPlayback
Imports Microsoft.DirectX
 
Public class form1
 
 
private sub form1_load handles mybase.load
 
Dim monAudio As Microsoft.DirectX.AudioVideoPlayback.Audio
 
monAudio = New Microsoft.DirectX.AudioVideoPlayback.Audio(Chemin_musique,1)
 
end sub

Ps: c'est mon tour premier post sur ce forum, excusez mon orthographe et tout le reste ^^"

[youtpout978]

ton but est juste de lancer la lecture d'une musique ou c'est pour bien plus que tu utilise directx (parce qu'il y a d’autre moyen de lire de la musique)
et

Code :

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

Microsoft.DirectX.AudioVideoPlayback.Audio(Chemin_musique,1)

ne semble pas prendre d'entier en paramètre:
http://msdn.microsoft.com/fr-fr/libr...=vs.85%29.aspx
essaye peut être ça

Code :

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

Microsoft.DirectX.AudioVideoPlayback.Audio(Chemin_musique)

[Armas]

Je vais essayer, mais si tu regarde bien la faq, le lien que tu viens toi même de me donner, la methode prend bien une valeur booleenne en optionnel ^^

Code :

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

public Audio(string, bool)

Ps: bien joué de me downvote >< Je pourrai savoir pourquoi--" ?

[youtpout978]

ah dsl je savais pas que 1 c'était un booléen en vb
ton but est juste de lire une musique ou autre ?

ps: le -1 n'est pas de moi

[Armas]

Pour le moment, j'aimerai juste lire des fichiers MP3. Mais je bloque sur ce soucis de compilation ...

Par ailleurs, oui, "1" ou "true" est un boolean en vb ^^

[youtpout978]

tu as le mediaplayer qui permet de lire les mp3
http://msdn.microsoft.com/en-us/library/ms635239.aspx

un exemple en c#:

Code :

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

1
2
3
 MediaPlayer t = new MediaPlayer();
            t.Open(new Uri(@"ici le chemin du fichier"));
            t.Play();

il faut ajouter PresentationCore et WindowsBase en référence

[Armas]

Merci à toi, j'ai essayé, mais je n'arrive à rien ... la compilation marche, mais aucun son n'en sort T_T

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
 
Imports System.Windows.Media
 
 
Public Class Form1
 
    Dim Audio As MediaPlayer
    Dim monURI As New Uri("C:\Users\Roxas\Downloads\Rose of May FF9 - lyrics by katethegreat19.mp3")
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        Audio.Open(monURI)
        Audio.Play()
 
    End Sub
 
End Class

Une idée ?

[youtpout978]

essaye ça pour voir si ta une erreur au niveau de ton lien:

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
 
 
Imports System.Windows.Media
 
 
Public Class Form1
 
    Dim Audio As MediaPlayer
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 Try
Dim monURI As New Uri("C:\Users\Roxas\Downloads\Rose of May FF9 - lyrics by katethegreat19.mp3")
 
    Audio.Open(monURI)
        Audio.Play()
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try
 
 
    End Sub
 
End Class

[Armas]

La référence d'objet n'est pas définie à une instance d'un objet.

Le chemin est bon, j'en suis certains, j'ai essayé avec un midi et un mp3, same error

Il manque quelque chose T_T ??


Merci d'avance de votre futur réponse.


Edit: Je suis absolument certains que le chemin est correcte puisque je suis passé par un filedialogue

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
28
29
 
 
Imports System.Windows.Media
 
 
Public Class Form1
 
    Dim Audio As MediaPlayer
    Dim a As String
 
    Dim openfile As New OpenFileDialog
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        openfile.ShowDialog()
 
        a = openfile.FileName
        Label1.Text = a
        Dim monURI As New Uri(a)
 
        Try
 
            Audio.Open(monURI)
            Audio.Play()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
End Class

[youtpout978]

peut être ça

Code :

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

1
2
 
Audio=New MediaPlayer

[Armas]

C'est exactement ça !!! Merci \o/
*Bisous câlin tout plein*

[youtpout978]

de rien et bonne continuation

[Armas]

Du coup, je partage ma classe pour la lecture de fichier audio !

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
 
Imports System.Windows.Media  'ajout en reference de WindowsBase et PresentationCore et imports system.window.media pour l'ajout de la classe mediaplayer
 
Public Class Class_lecture_musique
 
    Dim monURI As Uri
    Dim Audio = New MediaPlayer
 
    Sub New(ByVal chemin_du_fichier As String)
        monURI = New Uri(chemin_du_fichier)
    End Sub
 
    Sub Lecture()
        Audio.open(monURI)
        Audio.play()
    End Sub
 
    Sub Arret()
        Audio.stop()
    End Sub
 
End Class