Как программно изменять громкость звука 2

Delphi , Мультимедиа , Аудио

Выставь на форму 2 тракбара и двигай их. Если у тебя звучит музыка, ты должен услышать изменения громкости правого и левого каналов.

procedure TForm1.TrackBar1Change(Sender: TObject);
var
 s: dword;
 a,b: word;
 h: hWnd;
begin
 a:=trackbar1.position;
 b:=trackbar2.position;
 s:=(a shl 16) or b;
 waveOutSetVolume(h,s);
end;

свойство Max в каждом TrackBar'e должно равняться 65535 (то есть MaxWord)

Here's the translation of the content into Russian:

Задача создать программу, которая изменяет объем звукового вывода с помощью двух трекбаров. Когда пользователь перемещает трекбары, должны слышаться левый и правый аудиоканалы, регулирующие свои уровни соответственно.

Вот разбор кода:

1. Процедура TrackBar1Change вызывается каждый раз, когда пользователь перемещает один из трекбаров.
2. Процедура получает текущие позиции обоих трекбаров с помощью переменных a и b.
3. Затем она комбинирует эти позиции в единое 32-битное значение s, сместив нижние 16 бит a (которое представляет левый аудиоканал) и OR-ая его с верхними 16 битами b (которое представляет правый аудиоканал).
4. Функция waveOutSetVolume вызывается для установки уровня звука для устройства вывода волнового потока с помощью рассчитанного значения s.

Чтобы это работать, вам нужно убедиться, что оба трекбара имеют свойство Max, установленное на 65535 (максимальное значение для 16-битного слова).

Альтернативное решение:

Вместо ручной комбинации позиций трекбаров и вызова waveOutSetVolume, можно использовать компонент TWaveOut в Delphi, который предоставляет более удобный способ управления звуковым выводом.

Вы можете создать объект TWaveOut и установить свойство Volume с помощью позиций трекбаров. Это позволит регулировать уровень обоих аудиоканалов независимо.

Вот пример:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  WaveOut.Volume.Left := TrackBar1.Position;
  WaveOut.Volume.Right := TrackBar2.Position;
end;

Замечание: это предполагает, что у вас есть компонент TWaveOut, названный WaveOut на вашей форме. Вам нужно создать его и установить его свойства соответствующим образом.

Надеюсь, это поможет! Пожалуйста, не стесняйтесь задавать вопросы или выражать свои concerns.

Статья описывает программный способ изменения громкости звука с помощью компонентов TrackBar и процедуры waveOutSetVolume в дельфии.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Аудио ::