Delphi FAQ

W jaki sposób regulować dzwięk

Adam Boduch

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.

FAQ

5 komentarzy

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

Pozdrówki ;)

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

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

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

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