Подключить WaveOut к Delphi

Question

Я пытаюсь подключить Delphi к Windows VolumeControl API для отображения звука WaveOut. я нашел следующий код, но он не работает:

function Wave_SuportaControleVolume: boolean; 
var 
    Caps: TWaveOutCaps; 
begin 
    if WaveOutGetDevCaps(WAVE_MAPPER, @Caps, 
     SizeOf(Caps)) = MMSYSERR_NOERROR then 
    Result := Caps.dwSupport and WAVECAPS_VOLUME <> 0 
    else 
    Result := false; 
end; 

type 
    TVolume = record 
    Esquerdo: Word; 
    Direito: Word; 
    end; 

function Wave_ObterVolume: TVolume; 
begin 
    waveOutGetVolume(integer(WAVE_MAPPER), @Result); 
end; 

procedure Wave_DefinirVolume(Volume: TVolume); 
begin 
    waveOutSetVolume(integer(WAVE_MAPPER), LongWord(Volume)); 
end; 

Когда я использую этот код, значение Wave_ObterVolume не всегда 65535, независимо от того, что я делаю.

Моя цель очень проста: Я хочу видеть значение звука в качестве индикатора выполнения, когда я воспроизвожу файлы MP4 или MP3. У меня уже есть компонент компоновки и таймера, который должен отображаться на индикаторе выполнения. Фактически, для этого я использовал бы какой-то компонент VUMER.

Подробнее: Использование Delphi 7. Я знаю, это очень старый, но это мой доступный инструмент.

Итак, вопрос в том, какой код я использую для доступа к Windows VolumeControl от WaveOut?

Answer 1

The documentation говорит:

Значение 0xFFFF представляет собой полный объем, а значение 0x0000 тишина.

Похоже, что громкость полностью заполнена.

Вы не проверяете возвращаемое значение всех вызовов API. Это ошибка. Всегда проверяйте возвращаемые значения и применяйте соответствующую обработку ошибок.

Answer 2

Боюсь, что код, который вы используете, не даст вам желаемых результатов. Зачем?

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

Теперь, чтобы вы могли получить визуальное представление воспроизводимого звука, вам действительно необходимо записать этот звук, а затем получить значение звука из записанных данных.

Если вы находитесь в Windows XP, вы делаете это просто путем записи звука с канала «Выход программного обеспечения», но если вы находитесь в Windows Vista и новее, это больше не возможно, если вы не используете некоторые необоснованные программные драйверы. Зачем?

Все звуковые драйверы, созданные для Windows Vista или новее, не должны записываться с канала «выхода программного обеспечения», поскольку в прошлом это часто использовалось для распространения любых мер защиты цифровых прав. Например, Pepole просто воспроизводил контент с цифровой защитой в Windows Media Player, а затем записывал звук в другую программу. Это означало, что все механизмы цифровой защиты были просто устаревшими.