Volume et balance d'un TMediaPlayer....

Question

En cherchant, j'ai trouv&#233; cette function 

procedure SetMPVolume(MP : TMediaPlayer; Volume : Integer); 
const 
  MCI_SETAUDIO              = $0873; 
  MCI_DGV_SETAUDIO_VOLUME    = $4002; 
  MCI_DGV_SETAUDIO_ITEM      = $00800000; 
  MCI_DGV_SETAUDIO_VALUE    = $01000000; 

Type 
  MCI_DGV_SETAUDIO_PARMS = record 
  dwCallback : DWORD; 
  dwItem    : DWORd; 
  dwValue : DWORD; 
  dwOver : DWORD; 
  lpstrAlgorithm : PChar; 
  lpstrQuality : PChar; 
  end; 

var 
  p      : MCI_DGV_SETAUDIO_PARMS; 

begin 
  { Volume: 0 - 1000 } 
  p.dwCallback := 0; 
  p.dwItem := MCI_DGV_SETAUDIO_VOLUME; 
  p.dwValue := Volume; 
  p.dwOver := 0; 
  p.lpstrAlgorithm := nil; 
  p.lpstrQuality := nil; 
  mciSendCommand(MP.DeviceID, MCI_SETAUDIO, 
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));

end;

Qui marche impec, et dont le contenu est fort myst&#233;rieux pour moi. En  googlant sur MCI_DGV_SETAUDIO_VOLUME , j'ai d&#233;couvert MCI_DGV_SETAUDIO_LEFT et MCI_DGV_SETAUDIO_RIGHT donc un r&#233;glage de balance doit etre possible, maisje s&#232;che completement sur la prog windows.... Qqun aurait une id&#233;e pour modifier la fonction ci dessus pour qu'elle permette un r&#233;glage de balance ?

Francky23012301 · Answer

Je crois que sur delphipage il y a un exemple de balance pour les fichiers wav.

Volume et balance d'un TMediaPlayer....

1 réponse

Votre réponse

Discussions similaires