Как играть в системный звук в Delphi FireMonkey XE4?

Question

Я хочу играть звук в обоих окнах и MAC OS X. Для воспроизведения звука в Windows, используется что-то вроде этого:

PlaySound('C:\Windows\Media\Windows Default.wav', 0, SND_FILENAME + SND_ASYNC); 

я уверен, что я должен использовать TMediaPlayer.

Answer 1

Вы правильно, вы можете использовать TMediaPlayer компонент, документация четко говорится:

TMediaPlayer воспроизведения аудио файлов и аудио компонент видео файла.

Чтобы указать файл мультимедиа, который будет воспроизводиться текущим TMediaPlayer, задает свойство FileName. Имя файла должно содержать путь к файлу , поэтому его можно локализовать в памяти и в расширении. Вызвать Воспроизвести и Остановить способы начать воспроизведение медиафайла или остановить или приостановить рабочий файл мультимедиа. Текущая позиция определяется через свойство CurrentTime.

TMediaPlayer также предоставляет файлы мультимедиа , такие как Duration, VideoSize, Volume или State.

Относительно поддерживаемых форматов файлов (TMediaCodecManager).

В документации говорится следующее:

Используйте TMediaCodecManager для доступа, управления и регистрации кодеков быть используется при воспроизведении мультимедийных файлов.

The поддерживаемых мультимедийных файлов форматов являются носителями форматов для каждой платформы:

Для Windows:
Аудио форматы: .wma, .mp3, .wav
Видео форматы: .avi, .wmv

для Mac OS/прошивки:
Аудио форматов: .mp3, .caf
видео форматов: .mov, .m4v, .mp4

Используя TMediaCodecManager, можно зарегистрировать специальные медиакодеки для расширения поддержки аудио/видео.

Быстрый пример:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
MediaPlayer1.FileName := 'D:\test.mp3'; 
MediaPlayer1.Play; 
end; 

Вы должны иметь возможность воспроизводить файлы mp3 в FireMonkey на разных платформах, но это выходит за рамки этого вопроса.