Воспроизведение звукового оповещения/звукового сигнала на платформе Delphi XE5/Android

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

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


android delphi delphi-xe5
person user2980457    schedule 17.11.2013    source источник

Ответы (1)


arrow_upward
6
arrow_downward

В итоге я использовал файлы ресурсов для воспроизведения собственного аудиофайла.

Шаги:

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

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

Дельфийская процедура:

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');
person user2980457    schedule 17.11.2013