Voila donc mon probleme, j'ai fait un programme qui contient un médiaplayer, celui ci joue des MP3 et je règle le volume grace à ce code :
J'ai aussi dans mon programme des boutons, lorsqu'on clike sur ces bouton un son WAV spécifique est lu via un second médiaplayer (on entends donc les deux sons mélangés).
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
30
31
32
33
34
35 function Tform1.SetWaveVolume(const AVolume: DWORD): Boolean; var WaveOutCaps: TWAVEOUTCAPS; begin //teste different parametre de la carte son (ainssi que les systeme d'erreur Result := False; if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then //resultat de la fonction ext la fonction de volume avec les parametre de la carte son et d'une variable volume en dWord Result := WaveOutSetVolume(WAVE_MAPPER, AVolume) = MMSYSERR_NOERROR; end; procedure TForm1.ctrlvolumelChange(Sender: TObject); var LVol: Word; RVol: Word; begin // la variable LVol est la valeur (en word) transmise par la positoin du trackbar ctrlvolumel LVol := ctrlvolumel.position; // max. is 65535 // la variable RVol est la valeur (en word) transmise par la positoin du trackbar ctrlvolumer RVol := ctrlvolumer.position; // max. is 65535 // appel de la function setwavevolume avec creation d'un dword à partir des word transmis par les variable LVOL ET RVOL SetWaveVolume(MakeLong(LVol, RVol)); end; procedure TForm1.MasterChange(Sender: TObject); begin VrMatrix9.Text:=inttostr(Master.Position); //position du trackbarL=position du trackbar "master" ctrlvolumel.Position:=master.Position; //position du trackbarR=position du trackbar "master" ctrlvolumer.Position:=master.Position; end;
Mon problème est que ma commande de volume augmente ou diminue le volume des deux médiaplayer hors je voudrais avoir une commande de volume distincte pour chaque médiaplayer de manière à pouvoir mettre l'un ou l'autre plus fort.
Il n'y a pas l'air d'avoir des spécialistes du son sur ce forum mais si quelqu'un a une idée même un début de piste parceque la je suis un peu pômé.
Merci.
A+
Partager