Juega una alerta de sonido / pitido en la plataforma Delphi XE5 / Android

Question

¿Hay alguna forma de jugar una alerta de sonido / pitido en la plataforma Delphi XE5 / Android?

Lo que estoy tratando de lograr es cómo reproducir la alerta del sistema / pitido sueno como la aplicación de Windows mediante la función BEEP o al menos encuentra la ruta de los archivos de audio del sistema para que pueda ejecutar un archivo de audio específico basado en un evento.

Answer 1

Terminé usando archivos de recursos para reproducir mi archivo de audio personalizado.

pasos:

1. de Delphi IDE haga clic en "Proyecto".
2. luego seleccione "Recursos e imágenes ...".
3. Elija su archivo multimedia y configúrelo como RCDATA.
4. Recuerde su identificador de recursos.

Nota: Asegúrese de que el tipo de medio esté compatible con TMEDIAPLAYER, de lo contrario, no funcionará.

Procedimiento 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;

Uso:

PlayAudio('Resource_1');