Delphi XE5 / Androidプラットフォームで音声アラート/ビープ音を再生する

Question

Delphi XE5 / Androidプラットフォームの音声アラート/ビープ音を再生する方法はありますか？

私が実現しようとしているのは、BEEP機能を使用してWindowsアプリケーションのようにシステムアラート/ビープ音を再生するか、少なくともシステムのオーディオファイルのパスを見つけることができるため、イベントに基づいて特定のオーディオファイルを実行できます。

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

.