Как проиграть WAV без MediaPlayer

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

uses
  mmsystem;

// PLAY
sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC);

// Loop Mode (зацикливание)
sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC + SND_LOOP);

//STOP
sndPlaySound(nil, SND_ASYNC);

Here is the translation of the text into Russian:

Классический код Delphi! Единица mmsystem используется для воспроизведения файлов WAV без необходимости в компоненте MediaPlayer. Функция sndPlaySound используется для воспроизведения звуковых файлов.

Вот разбивка кода: 1. sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC);: Воспроизводит файл WAV 'C:\DELPHIWORLD.WAV' асинхронно. 2. sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC + SND_LOOP);: П.looping файл WAV, добавляя флаг SND_LOOP ко второму аргументу функции sndPlaySound. Это будет воспроизводить файл в циклическом режиме до тех пор, пока он не будет остановлен или другой звук не будет воспроизведен. 3. sndPlaySound(nil, SND_ASYNC);: Останавливает любые текущие звуки.

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

Альтернативное решение: Если вы хотите более современный способ воспроизведения файлов WAV в Delphi без использования единицы mmsystem, вы можете использовать компонент TMediaPlayer или третьестороннюю библиотеку, например, FMX.Media.

Например, с помощью TMediaPlayer, вы создадите экземпляр компонента и установите свойство FileName в путь к вашему файлу WAV. Затем вызовите метод Play, чтобы начать воспроизведение файла.

Код:

uses
  FMX.Media;

var
  MediaPlayer: TMediaPlayer;
begin
  MediaPlayer := TMediaPlayer.Create(nil);
  MediaPlayer.FileName := 'C:\DELPHIWORLD.WAV';
  MediaPlayer.Play;
end;

Обратите внимание, что TMediaPlayer является частью фреймворка FireMonkey, поэтому он доступен только в Delphi XE2 и более поздних версиях. Если вы используете раннюю версию Delphi, вам может потребоваться использовать третьестороннюю библиотеку или оставаться с единицей mmsystem.

В статье описывается способ проигрывания WAV-файлов в Delphi без использования библиотеки MediaPlayer.

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

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