Programowanie w języku Delphi » FAQ

W jaki sposób regulować dzwięk

To tego celu służy funkcja WaveOutSetVolume. Wartość dzwięku jest warością Integer. Poniższa linia ustawia dzwięk na wartości maksymalnej:

WaveOutSetVolume(0, $FFFFFFFF);

poniższa linia ustawia dzwięk na cichszy:

WaveOutSetVolume(0, $20002000);

Konstrukcja jest dość prosta. Po znaku $ ustawiana jest głośność prawego i lewego głośnika. W powyższych przypadkach na obu głośnikach wartość jest taka sama. Aha, jeżeli chcesz korzystać z tej funkcji musisz dodać do listy uses słowo MMSystem.


5 komentarzy

rapson48 2008-08-12 23:10

Dzięki wielkie ^^ niesamowicie mi sie to przydało :)

Pozdrówki ;)

stuk puk 2006-10-17 20:47

A czy da się regulować dźwięk tylko komponentu MediaPlayer?
WaveOutSetVolume() zmienia "wszystko".

stuk puk 2006-10-17 20:27

A czy da się regulować dźwięk tylko komponentu MediaPlayer?
WaveOutSetVolume() zmienia "wszystko".

MikiKam 2005-12-13 22:09

Hmmm...
Może podasz jak to zrobić  z trackbarem :D
Proboj
ja nie moge do tego dojsc :-)

Mac 2006-03-12 11:45

Mocno spóźnione, ale może nie tylko MikiKam będzie tego szukał, a więc:
w OnChange TrackBara dajemy:
WaveOutSetVolume(0, TrackBar1.Position*65537);
objaśnienie?
$FFFFFFFF/$FFFF (glosnosc dla jednego glosnika) = 65537, żeby utrzymać balans między lewą, a prawą stroną, należy mnożyć przez 65537.
TrackBar1.Max musi byc ustawione na 65535, a min na 0.
Jak są jakieś błędy to sorry, ale dopiero wstałem:D