Прочитать и воспроизвести файл Wav в delphi

Question

Как играть в несжатые wav-файлы в delphi? Я имею в виду чтение байта wav-файла байтом и отправку данных непосредственно в динамик. Я искал интернет и нашел некоторые функции для воспроизведения звука в течение определенного периода времени. например: myplaysoundfunc(1200, 100). это будет воспроизводить звук 1200 Гц в течение 100 миллисекунд. Но играть в wav-файл сложнее. У меня проблема с Samples per second и bits per samples.

Answer 1

Для этого вам не нужны никакие компоненты или внешние библиотеки.

Полное применение Исходный код, взятый из http://rosettacode.org/wiki/Play_recorded_sounds#Delphi:

{$APPTYPE CONSOLE} 
program PlayRecordedSounds; 
uses MMSystem; 
begin 
    sndPlaySound('SoundFile.wav', SND_NODEFAULT OR SND_ASYNC); 
end. 

С помощью этих параметров звук играет на фоне в то время как ваше приложение продолжает работать. Если вы используете SND_SYNC вместо SND_ASYNC, ваше приложение ждет завершения звука перед продолжением.

Вы также можете включить звуковую петлю, если вы добавите SND_LOOP. Эта процедура останавливает звуки, которые вы ранее играли, если не добавить SND_NOSTOP. Таким образом, старый звук продолжает играть.

Примечания:

• Это будет работать только на Windows. Для FireMonkey есть другие варианты.
• Если вы действительно хотите сыграть образец по образцу, все усложняется. В этом случае я советую использовать библиотеку, чтобы помочь вам в этом, например, Delphi ASIO/VST library.