unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.IOUtils,
FMX.Media, FMX.StdCtrls;
type
TForm1 = class(TForm)
btnMediaPlayer: TButton;
MediaPlayer1: TMediaPlayer;
procedure btnMediaPlayerClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.btnMediaPlayerClick(Sender: TObject);
begin
MediaPlayer1.FileName := TPath.GetHomePath + '/32.wav';
if Assigned(MediaPlayer1) then MediaPlayer1.Play; //程式不報錯，也不說找不到檔案，但就是沒聲音
//if Assigned(MediaPlayer1.Media) then MediaPlayer1.Play; 用這句判斷程式就報錯
end;
end.
另外在Project -> Deployment 中增加了該單頻檔案，如下圖
上面紅色部分的代碼是否有問題啊，同樣的命令在Desktop上有效的，在Mobile中就沒效果，求教
uj5u.com熱心網友回復：
貼子快要沉了，幫你頂上去。抱歉這個問題我也不知道答案，希望高手回答。
uj5u.com熱心網友回復：
官方自帶的例子，播放你的問題有沒有聲音uj5u.com熱心網友回復：
求問下為何自帶的例子運行時都不能打開影音檔案？mp3、wmv都不能播放？uj5u.com熱心網友回復：
也許未初始化。uj5u.com熱心網友回復：
試驗了幾次，發現也許是因為是在虛擬機上執行的原因？轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/90357.html