Gioca a un avviso audio / un segnale acustico sulla piattaforma Delphi XE5 / Android

Question

C'è un modo per riprodurre un avviso audio / un segnale acustico sulla piattaforma Delphi XE5 / Android?

Che cosa sto cercando di ottenere è come riprodurre Avviso di sistema / BEEP Suono come l'applicazione Windows utilizzando la funzione BEEP o almeno trovare il percorso dei file audio del sistema in modo da poter eseguire un file audio specifico in base a un evento.

Answer 1

Ho finito utilizzando i file di risorse per riprodurre il mio file audio personalizzato.

Passi:

.
1. Da Delfi IDE Clicca su "Progetto".
2. Quindi seleziona "Risorse e immagini ...".
3. Scegli il tuo file multimediale e impostalo come rcData.
4. Ricorda il tuo identificativo delle risorse.

Nota: Assicurarsi che il tipo di supporto sia supportato da TMEDIAPlayer altrimenti non funzionerà.

Procedura 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');

.