Играйте в звуковую оповещение / звуковой сигнал на платформе Delphi Xe5 / Android

Question

Есть ли способ воспроизвести звуковой сигнал / звуковой сигнал на платформе Delphi XE5 / Android?

Что я пытаюсь достичь, - это как воспроизвести систему оповещения / звуковой сигнал, как приложение Windows, используя функцию BEEP, или, по крайней мере, найдите путь аудиофайлов системы, чтобы я мог выполнить определенный аудиофайл на основе события.

Answer 1

Я закончил использовать файлы ресурсов для воспроизведения моего пользовательского аудиофайла.

<Сильные> Шаги:

1. от Delphi IDE Нажмите на «Проект».
2. Выберите «Ресурсы и изображения ...».
3. Выберите свой медиафайл и установите его как rcdata.
4. запомнить ваш идентификатор ресурса.

Примечание: Убедитесь, что тип носителя поддерживается Tmediaplayer, в противном случае он не будет работать.

Delphi Процедура:

procedure PlayAudio(ResourceID: string);
var
  ResStream: TResourceStream;
  TmpFile: string;
begin
  ResStream := TResourceStream.Create(HInstance, ResourceID, RT_RCDATA);
  try
    TmpFile := TPath.Combine(TPath.GetTempPath, 'tmp.mp3');

    ResStream.Position := 0;
    ResStream.SaveToFile(TmpFile);
    MediaPlayer1.FileName := TmpFile;

    MediaPlayer1.Play;

  finally
    ResStream.Free;
  end;
end;

.

Использование:

PlayAudio('Resource_1');

.