Volume sur un seul sonRésolu

Question

Bonjour,
Voila je m explique:

J aimerais reduire le volume d'un son et pas le son en general donc ceci n est pas ce que j attends:

var
LVolume,  RVolume,  Volume: DWord;
begin
   RVolume:=TrackBar1.Position;
   LVolume:=TrackBar1.Position;
   Volume:=(DWord(RVolume) Shl 16) Or LVolume;
   WaveOutSetVolume(0,Volume);
   midiOutSetVolume(0,volume);
   label5.Caption:='Volume '; ----> plac&#233; ac un trackbar....

Mais qqch du genre pour un seul son?
Au fait je joue plusieurs sons en simultanes et j aimerais  reduire le volume de quelques uns pour seulement les entendre  moins haut que les autres! Bon je me repete mais c est pr etre sur d etre compris!!!!!

Est ce possible ac les composant Standard???
Est ce que j ai ete assez explicite?

Et une autre question pas en relation ac ceci mais ac le site:

Est ce normal que je dois galerer facilement 5 min pr ouvrir le site et facile 5 min de + pour parcourir le site

En tout cas longue vie a CS

Slt
Nico
@+

DRJEROME · Accepted Answer

J'ai oublié de te dire... mais tu l'auras deviné: rajoutes "mmsystem" dans uses (en plus de"MPlayer" qui doit déjà être en place si tu à mis 1 ou plusieurs mediaplayers). tu pourras utiliser un code style :

procedure TForm1.Button1Click(Sender: TObject); begin SetMPVolume(MediaPlayer1,500);// tu choisis un vomume entre 0 et 1000 end;

DrJerome

DRJEROME · Answer

Pour baisser le volume d'un TMediaplayer (en admettant que tu en aies plusieurs qui tournent en même temps) :

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;

Voilà...c'est tout ce que j'ai à t'offrir, au delà ça risque d'être plus technique...ça dépasse mes connaissances N'oubliez pas de cliquer sur Réponse acceptée si c'est OK DrJerome

Nicolas___ · Answer

Nikel vraiment Nikel DrJerome

c est vraiment ce qu il me fallait. Commencais a desesperer... Mais heureusement tu es la!!!!

Tu n aurais pas une fonction par hasard pr Augmenter/diminuer  le tempo?
Ca serait vraiment la classe

Mais c est deja tres tres bien ainsi

Merci (Re, de tt maniere c est gratuit alors autant en profiter!)

Slt
Nico
@+

DRJEROME · Answer

1/ merci (pour le volume)
2/ d&#233;sol&#233; (pour le tempo)

j'ai essay&#233; MCI_SEQ_SET_PARMS...pas concluant

j'ai essay&#233; sur la m&#234;me base de code en donnant des valeurs &#224; dwTempo (&#231;a plante)...et ce n'est que pour les fichiers MIDI

(regardes dans l'aide MMSYSTEM.HLP de Delphi...tu le recherches sur le cd directememnt)

bon courage...j'esp&#232;re que quelqu'un te trouveras la soluce

&#231;a doit &#234;tre faisable...

DrJerome

Nicolas___ · Answer

J ai vu le Fichier MM.hlp sur le cd, Dommage que ce soit en anglais,mais enfin tjs moyen de s en sortir.

En tout cas c est vraiment sympa de ta part d avoir consacr&#233; du tps a mon petit probleme.

Re RE Merci 

Ciao

Nico

DeltaFX · Answer

Yep, je suis tomb&#233; sur ce bout de code au hasard, et pil poil il
correspondait &#224; un besoin latent. Cool. Merci M'sieur. Pr&#233;cision
SetMPVolume il faut le faire apres Mediaplayer.Open.



Tiens question, ca compliquerait beaucoup un r&#233;glage de balance, du genre 
SetMPVolume(MediaPlayer1
, 0 < volume < 1000 , -100< balance <100 ) o&#249; z&#233;ro serait
la balance=0  <=> au centre ?

Volume sur un seul son

6 réponses

Votre réponse

Discussions similaires