Problème avec l'objet Mediaplayer.

Sujet: Problème avec l'objet Mediaplayer. Jeu 16 Jan 2014 - 10:34

Bonjour.

J'essaie de lire un fichier son avec cet objet, mais le son ne se lance pas.

Merci de votre aide.

Code:: dim hnd%, res%
dim nom$

hnd%=handle(0)
nom$="c:\perso\traducteur_panoramic\sons\dictee1.wav"

dll_on "kgf.dll"

res% = dll_call5("CreatePlayer",hnd%,100,100,100,50)
res% = dll_call1("LoadFileIntoPlayer",adr(nom$))
res% = dll_call1("MutePlayer",1)
res% = dll_call1("VolumePlayer",100)
res% = dll_call0("PlayPlayer")

dll_off

Sujet: Re: Problème avec l'objet Mediaplayer. Jeu 16 Jan 2014 - 10:41

Essaie comme ceci:

Code:: nom$="c:\perso\traducteur_panoramic\sons\dictee1.wav"

dll_on "kgf.dll"

label fermer
button 1 : caption 1,"Fermer" : on_click 1,fermer

res% = dll_call5("CreatePlayer",hnd%,100,100,100,50)
res% = dll_call1("LoadFileIntoPlayer",adr(nom$))
res% = dll_call1("MutePlayer",1)
res% = dll_call1("VolumePlayer",100)
res% = dll_call0("PlayPlayer")
end

fermer:
dll_off
terminate

Il ne faut pas enlever la DLL (et donc le player) avant que le son ne soit joué.

EDIT

Et pour être sûr que le haut-parleur est activé:

Code:: res% = DLL_call1("SetSpeaker",1)

Sujet: Problème avec l'objet Mediaplayer. Jeu 16 Jan 2014 - 12:48

Message annulé, je viens de trouver la source de l'erreur.

Bonjour.

Merci de ton aide Klaus.
Le son est lu correctement maintenant.

Mais il m'est impossible d'effectuer une pause dans la lecture du son.

Peux-tu voir où se situe le problème ?

Merci.

Code:: dim hnd%, nom$, res%

hnd%=handle(0)
nom$="c:\perso\traducteur_panoramic\sons\dictee1.wav"

dll_on "kgf.dll"

label fermer, pause, rejouer
button 1 : caption 1,"Fermer" : on_click 1,fermer
button 2 : caption 2,"Pause" : on_click 1,pause
button 3 : caption 3,"Rejouer" : on_click 1,rejouer

left 1,100
left 2,200
left 3,300

res% = DLL_call1("SetSpeaker",1)

res% = dll_call5("CreatePlayer",hnd%,100,100,100,50)
res% = dll_call1("LoadFileIntoPlayer",adr(nom$))
res% = dll_call1("MutePlayer",1)
res% = dll_call1("VolumePlayer",100)
res% = dll_call0("PlayPlayer")
end

fermer:
   dll_off
   terminate
return

pause:
   res% = dll_call0("PausePlayer")
return

rejouer:
   res% = dll_call0("PlayPlayer")
return

Sujet: Re: Problème avec l'objet Mediaplayer. Jeu 16 Jan 2014 - 13:01

Déclare tes objets ainsi:

Code:: button 1 : caption 1,"Fermer" : on_click 1,fermer
button 2 : caption 2,"Pause" : on_click 2,pauser
button 3 : caption 3,"Rejouer" : on_click 3,rejouer

au lieu de

Code:: button 1 : caption 1,"Fermer" : on_click 1,fermer
button 2 : caption 2,"Pause" : on_click 1,pauser
button 3 : caption 3,"Rejouer" : on_click 1,rejouer

et tout marchera bien. Eh oui, ce sont les pièges du copier/coller...

» Problème avec select case Probleme réglé merci
» Problème avec GetMousePosition.
» Problème avec RemoveStringBetweenDelimiters.
» Problème avec les "if".
» Problème avec RemoveStringBetweenDelimiters.