unit Unit1;interfaceuses
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中就没效果,求教
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中就没效果,求教
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货