Au sujet de la Gestion du Windows Media Player

Bonjour Klaus, Smile

Je me suis demandé si il était possible de faire jouer plusieurs sons ensemble avec cette dll. Malheureusement, cela n'a pas l'air d'être possible avec mon petit exemple:

Code:: dim dll$,res1%,res2%,res3%,hnd1%,hnd2%,hnd3%,nom1$,nom2$,nom3$

dll$="c:\PANORAMIC\KGF.dll":' <======== CHEMIN DU DOSSIER À ADAPTER !!!!
   if file_exists(dll$)=1
   dll_on dll$
   else
   message "Le fichier "+dll$+" est introuvable."
   terminate
   end_if

panel 1:left 1,10:top 1,10:height 1,30
hnd1% = handle(1)
res1% = dll_call5("CreatePlayer",hnd1%,10,10,85,10)
nom1$ = "c:\mesprog\wav_mp3\wav\alb01.Wav"
res1% = dll_call1("LoadFileIntoPlayer",adr(nom1$))
res1% = dll_call0("PlayPlayer")
res1% = dll_call1("VolumePlayer",100)

panel 2:left 2,10:top 2,50:height 2,30
hnd2% = handle(2)
res2% = dll_call5("CreatePlayer",hnd2%,10,10,85,10)
nom2$ = "c:\mesprog\wav_mp3\wav\alb02.wav"
res2% = dll_call1("LoadFileIntoPlayer",adr(nom2$))
res2% = dll_call0("PlayPlayer")
res2% = dll_call1("VolumePlayer",50)

panel 3:left 3,10:top 3,90:height 3,30
hnd3% = handle(3)
res3% = dll_call5("CreatePlayer",hnd3%,10,10,85,10)
nom3$ = "c:\mesprog\wav_mp3\wav\alb03.wav"
res3% = dll_call1("LoadFileIntoPlayer",adr(nom3$))
res3% = dll_call0("PlayPlayer")
res3% = dll_call1("VolumePlayer",90)

while scancode<>27
end_while
dll_off
terminate

Penses-tu que cela est possible de faire jouer plusieurs Média Player ensemble? Jusqu'à 8 par exemple?
Avec Panoramic, on peut faire jouer plusieurs sound pratiquement simultanément. Voir mon programme DrumBox sur mon web dav. Par contre en panoramic, on ne peut pas régler le volume du sound joué. Ta dll peut le faire, ce qui est intéressant.
Jouer plusieurs sons en même temps et pouvoir régler indépendamment leurs niveaux sonores serait un plus. J'ai une petite idée de programme derrière la tête si cela était faisable! Bien sur, il me manquerait encore quelques autres fonctions, mais pour une première approche, ce serait suffisant dans un premier temps.
A+ Wink

Bonjour bignono,

Ta drumbox utilise le standard 'MIDI' qui est un protocole qui est codé et utilise un synthétiser interne au PC qui permet le multicanal alors que le son 'WAVE' lui sort directement.

Je pense que ton soucis vient de là !

Attendons la réponse de Klaus, il t'expliquera mieux que moi... drunken

Techniquement, il est possible de modifier la DLL de sorte à avoir plusieurs playerd simultanément, un peu comme je l'ai fait pour les objets RichEdit. Je vais étudier cela.

Un grand merci à toi Klaus!
@ Minibug,
Bonjour, Smile

ma drumbox n'utilise que des sons wav appelés par des objets sound. Tu dois confondre avec mon arpégiateur qui lui utilise le Midi, mais ne joue qu'une seule note à la fois. Par contre Klaus a fait dans KGF une fonction midi qui permet de jouer plusieurs notes ensemble. Je n'ai pas encore testé cette fonction, faute de temps!
A+ Wink

A Klaus,

Il serait intéressant aussi d'avoir une fonction qui arrête le player et le remet au début du morceau. (Une sorte de remise à zéro du son à jouer), car autrement, pour revenir au début du morceau, on est obligé de détruire le player, recréer le player et recharger le fichier son dedans.
Une autre fonction intéressante serait d'avoir la lecture en boucle, mais je pense qu'on peut le faire par programme.
Pendant qu'on y est, l'avance et le retour rapide ou bien le positionnement à un endroit précis du morceau. Mais là, c'est du luxe.
A+ Wink

Dans la foulée, je vais u réfléchir.

Une première piste pour remettre le morceau au début: refaire un LoadFileIntoPlayer avec le même fichier.

Si tu peux faire la lecture en boucle, j'avoue que ça m’intéresse pour une musique d'ambiance dans un jeu, ça simplifie les choses. Tu lances pendant certaines phases et tu arrêtes quand nécessaire (et avec le contrôle du son en plus tu peux faire un fade in ou un fade out).
Si on peut arrêter le morceau c'est bien aussi.
Dans ce cas quitte à creuser, il serait sympa aussi de pouvoir reprendre (mode mise en pose / reprise ou arrêt / redémarrage).
Voilà, j’arrête la liste de courses ... D'un autre côté, pour le moment du coup, on laisse Jack tranquille et on ne lui fait pas de demande d'évolution ^^.

Mettre en pause et reprendre la lecture, ça marche déjà - regarde les fonctions que j'ai postées.

La version multi-player progresse. C'est faisable et ce sera dispo bientôt.

Bon, je mets ici un petit lecteur media que j'ai vite fait ce matin avec la dll actuelle de Klaus avant qu'il change de version.
On peut mettre en pause, reprendre un morceau, le remettre à zéro, mettre en mute ou non. J'ai utilisé les procédures que Klaus a posté plus haut.
Le seul inconvénient, c'est quand le morceau arrive à la fin, on ne peut pas le savoir, et donc je ne peut pas remettre le bouton pause/play à son état initial. Mais ça fonctionne.

Code:: label ouvrir,playpause,raz,mute,volume,fin
dim dll$,musiq$,trans$,mode%:mode%=1
init()
on_close 0,fin
end

ouvrir:
   musiq$=file_name$(10)
   if musiq$<>"_" then load_player(musiq$)
return

playpause:
   if caption$(4)=chr$(52)
   caption 4,chr$(59):play_player(position(1)):' jouer
   else
   caption 4,chr$(52):pause_player():' mettre en pause
   end_if
return

raz:
   caption 4,chr$(52):load_player(musiq$)
return

mute:
   if mode%=1:mode%=0:color 6,200,90,200:else:mode%=1:color 6,200,200,240:end_if
   mute_player(mode%)
return

volume:
   volume_player(position(1)):caption 2,"VOLUME "+str$(position(1))
return

sub init()
   dll$="c:\PANORAMIC\KGF.dll":' <======== CHEMIN DU DOSSIER À ADAPTER !!!!
   if file_exists(dll$)=1
   dll_on dll$
   else
   message "Le fichier "+dll$+" est introuvable."
   terminate
   end_if
   border_small 0:width 0,265:height 0,80:caption 0,"PANO-PLAYER"
   ' régler le volume du player avec une track_bar
   track_bar 1:min 1,0:max 1,100:position 1,90:on_change 1,volume
   alpha 2
   font_name 2,"Consolas":font_bold 2:font_size 2,12
   left 2,width(1):caption 2,"VOLUME "+str$(position(1))
   alpha 3
   font_name 3,"Webdings":font_bold 3:font_size 3,12
   left 3,left(2):top 3,height(2)
   caption 3,chr$(204):hint 3,"Ouvrir un fichier son"
   on_click 3,ouvrir
   alpha 4
   font_name 4,"Webdings":font_bold 4:font_size 4,12
   left 4,left(3)+width(3)+5:top 4,top(3):caption 4,chr$(52)
   color 4,200,200,240:hint 4,"PLAY / PAUSE":on_click 4,playpause
   alpha 5
   font_name 5,"Webdings":font_bold 5:font_size 5,12
   left 5,left(4)+width(4)+5:top 5,top(4):caption 5,chr$(60)
   color 5,200,200,240:hint 5,"REMISE À ZÉRO":on_click 5,raz
   alpha 6
   font_name 6,"Webdings":font_bold 6:font_size 6,12
   left 6,left(5)+width(5)+5:top 6,top(5):caption 6,chr$(79)
   color 6,200,200,240:hint 6,"MUTE":on_click 6,mute
   open_dialog 10
   filter 10,"fichiers .mp3 .wav|*.mp3;*.wav"
   creer_player(20)
end_sub

' === créer l'objet player
sub creer_player(cp%)
  dim_local res%
  ' créer le panel contenant le player
  panel cp% : hide cp%
  ' ici, les dimensions dans CreatePlayer n'ont pas d'importance !
  res% = dll_call5("CreatePlayer",handle(cp%),0,0,100,100)
end_sub

' === charger un son dans le player (ne joue pas le son !)
sub load_player(musiq$)
  dim_local res%
  res% = dll_call1("LoadFileIntoPlayer",adr(musiq$))
end_sub

' === jouer le son avec le volume indiqué (0=muet 100=max)
sub play_player(volum%)
' message musiq$+" "+str$(volum%)
  dim_local res%
  res% = dll_call0("PlayPlayer")
  res% = dll_call1("VolumePlayer",volum%)
end_sub

' === changer le volume du player
sub volume_player(volum%)
  dim_local res%
  res% = dll_call1("VolumePlayer",volum%)
end_sub

' === couper/réactiver le son du player (sans changer le volume)
sub mute_player(mode%)
  dim_local res%
  ' 0 = muet 1 = son audible
  res% = dll_call1("MutePlayer",mode%)
end_sub

' === mettre le player en pause (relancer par play_player)
sub pause_player()
  dim_local res%
  res% = dll_call0("PausePlayer")
end_sub

' === supprimer le player
sub delete_player(cp%)
  dim_local res%
  res% = dll_call0("DeletePlayer")
  pause 300
  delete cp%
end_sub

fin:
dll_off
terminate

Bon je suis absent toute l'après-midi et si Klaus tu sors une nouvelle version de KGF, je ne pourrais certainement pas tester avant demain matin au mieux.
A+ Wink

Oh là là - pas si vite ! Il faut le faire, d'abord, puis faire la doc... Il faut un petit délai quand-même !

Mdr, Klaus est humain et seul finalement. Moi qui croyais qu'il sous-traitait à une dizaine de personne pour sortir des version de DLL plus vite que son ombre, me voilà rassuré Wink

Finalement, c'est fait !

J'ai publié la fonction LoopPlayer qui permet de mettre la lecture en boucle ou d'arrêter le bouclage.

J'ai doublé toutes les fonctions Player par des fonctions MultiPlayer permettant de gérer un nombre non limité de players simultanément.

» KGF.chm - problèmes, erreurs ou anomalies dans la doc
» Recherche de média dans Heredis 12 pour les génealogistes
» Windows 7/8 vers Windows 10
» Mac & Windows
» API Windows