Modifier le volume séparément de deux médiaplayer...

**Yepazix** · 26/10/2005, 03h08

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 :

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;

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).

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+

**radimby** · 27/10/2005, 10h56

Utilisez le module "BASS"

C'est un dll (gratuit) qui permet de developper des applications multimedia, notamment des lecteurs mp3.

pour plus d'information, va sur

http://www.un4seen.com/