Jouer fichier wav ou mp3 avec vb

Question

Bonjour,

J'essaie de faire jouer un son wav ou mp3 sur une routine vb mais bien qu'il me joue les sons de Windows, VB6 me donne une erreur quand j'essaie de mettre un autre sond

*****************
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Dim returnval As Long
Dim soundfile As String

soundfile = "C:\Tutoriel judo\Pronociation japonaise\Tsuri-goshi.mp3"
returnval = PlaySound("tada", 0, 0) 'Cette ligne passe

returnval = PlaySound(soundfile, 0, 0) 'Cette ligne ne passe pas
returnval = PlaySound("C:\Tutoriel judo\Pronociation japonaise\Tsuri-goshi.mp3", 0, 0) 'Cette ligne ne passe pas
*****************

Merci de votre aide.

Philippe

cs_DARKSIDIOUS · Answer

Salut,

Quel est le rapport avec Java ? Je déplace sur le forum de VB

Sinon, l'API PlaySound ne permet que de lire des fichiers wave, pas de mp3 
______________________________________
DarK Sidious

Renfield · Answer

te donne un erreur....

laquelle ?

Renfield - Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

salut,

PlaySound ne lit en effet que les WAV

tout cuit ici 

(il marche plus le moteur?.... me semble bien que si)
++
[hr]

Philippe_judo · Answer

Bonjour,

En fait, il semble lire le fichier wave mais plutôt que de me donner le son demandé, il me donne un "bip" de windows.

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Dim returnval As Long
Dim soundfile As String

soundfile = "C:\Tutoriel judo\Pronociation japonaise\Tsuri-goshi.mp3"
returnval = PlaySound("tada", 0, 0) 'Cette ligne passe

returnval = PlaySound(soundfile, 0, 0) 'Cette ligne ne passe pas
returnval = PlaySound("C:\Tutoriel judo\Pronociation japonaise\Tsuri-goshi.wav", 0, 0) 'Cette ligne ne passe pas

Philippe

Renfield · Answer

compréhensible dans une certaine mesure... 

tu envoies 0 comme dernier parametre. 

La doc : 
http://msdn.microsoft.com/en-us/library/dd743680(VS.85).aspx


laisse a pense que dans ton cas il faudrai au moins transmettre : 
Private Const SND_FILENAME As Long = &H20000 




Renfield - Admin CodeS-SourceS - MVP Visual Basic

Philippe_judo · Answer

Bonjour,

Même problème avec "Private Const SND_FILENAME As Long = &H20000".

Philippe

PCPT · Answer

suffit pas de renommer un .WAV en .MP3, PLAYSOUND ne lit QUE les WAV, les sons MEDIA et les sons SYSTEM

voir mon lien ci-dessus pour les MP3

[hr]

Jouer fichier wav ou mp3 avec vb

7 réponses

Votre réponse

Discussions similaires