Неужели нет короткого кода для изменения громкости?!

← →
ronyn (2005-07-01 02:28) [0]

Несколько раз спрашивал, как изменить уровень громкости в TMediaPlayer - мне все время предлагали огромные непонятнве, неработающие коды. Неужели нет к.л. функции или просто короткого кода для этих целей? Заранее благодарен за код с подробным объяснением.

← →
@!!ex (2005-07-01 09:04) [1]

Шютник.
Это не есть банальная проблема.
Ты бы еще спросил: "Дайте функцию, чтобы написать игру аля unreal!" :)

P.S.
Возьми большой код и сделай свою функцию для работы с громкостью.

← →
kyro (2005-07-01 09:43) [2]

Киньте этот код посмотреть или линк . По

← →
Eraser © (2005-07-01 11:35) [3]

http://www.delphimaster.ru/articles/mixer.html
http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=827

← →
flatron84 © (2005-07-03 01:25) [4]

uses MMSystem;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
waveOutSetVolume(0, MAKELONG(((TrackBar2.Position)*2), (TrackBar2.Position)*2));
end;

В свойствах Трекбара ставиш MAX значение 32765 (ну или типа того, точно не помню, самое главное чтоб не больше)
Тут регулируются вроде сразу оба канала, если надо порозонь, то изменяй только второй или только трети параметр в ф-ции.

← →
Eraser © (2005-07-03 01:29) [5]

flatron84 © (03.07.05 01:25) [4]

Эт для других целей ф-я... громкость микшера ей не отрегулируешь.

← →
flatron84 © (2005-07-04 01:56) [6]

Eraser © (03.07.05 01:29) [5]

Вопрос был про регулирование громкости при использовании TMediaPlayer, а не про регулирование громкосто микшера!

Для каких других целей этот код(просто интересно)?

← →
Eraser © (2005-07-05 13:18) [7]

flatron84 © (04.07.05 01:56) [6]

Эта функция устанавливает громкость конкретного записывающего/воспроизводящего контекста, которых может быть в одном приложении несколько.
Я не внимательно прочёл вопрос. Речь не про микшер. Тогда можно использовать данную ф-ю, только первый параметр должен быть DeviceID медиа плеера.
Можно также использовать auxSetVolume.

← →
Narik © (2005-07-05 15:40) [8]

Есть и очень простой!!!
!
http://www.delphixfiles.narod.ru/Samples/ChVol.zip
!

← →
ronyn (2005-07-05 23:33) [9]

Narik, такой код у меня уже есть. Он изменяет звук во всей системе, а мне надо , что бы только в моём приложении.

← →
ronyn (2005-07-06 02:38) [11]

А что надо писать в первом параметре?

← →
Thaddy (2005-07-06 10:08) [12]

If you want to change the volume only for your application, you have to recalculate the volume, based on the wave buffer.
Simply multiply every value in the buffer with the value for the new volume. This seems simple, but it really is not!
You can download dspack components that can do this here:
http://www.dsp-worx.de

Неужели нет короткого кода для изменения громкости?! Найти похожие ветки