Delphi FMX TMediaPlayer 播放Resource中的音频文件

向死而生Jay

于 2023-02-27 11:24:51 发布

阅读量507

点赞数

分类专栏： FMX 文章标签： android windows

本文链接：https://blog.csdn.net/qq_42729221/article/details/129237082

版权

该代码段展示了如何在Delphi应用程序中从资源加载音频文件（如btn1.wav），使用TResourceStream创建资源流并保存到文件系统，然后根据不同的操作系统平台（Android,iOS,macOS,Windows）播放音频。在Windows上，还需要停止当前播放并重置播放位置。

摘要由CSDN通过智能技术生成

@Delphi FMX TMediaPlayer 播放Resource中的音频文件

1.加载音频文件

procedure TMainFrm.LoadWav;
var
  ResourceStream: TResourceStream;
  strFileName: string;
begin
  {$IFDEF ANDROID}
    strFileName := TPath.Combine(TPath.GetPublicPath , 'btn1.wav');
  {$ELSE}
  {$IFDEF IOS}
    strFileName := TPath.Combine(TPath.GetHomePath, 'btn1.wav');
  {$ELSE}
    //Result := TPath.GetTempPath + '/' + AName;
    //Result := TPath.Combine(TDirectory.GetCurrentDirectory(), AName);      //开机启动时 GetCurrentDirectory 没准备好
    strFileName := TPath.Combine(ExtractFileDir(ParamStr(0)) , 'btn1.wav');
  {$ENDIF}
  {$ENDIF}
  ResourceStream := TResourceStream.Create(HInstance, 'btn1_wav', RT_RCDATA);
  try
    ResourceStream.SaveToFile(strFileName);
    mpSound.FileName := strFileName;
  finally
    ResourceStream.Free;
  end;
end;