Android实例-MediaPlayer播放音乐和视频(XE8+小米2)

结果：

1.播放视频需要手动放入MediaPlayerControl1控件，设置MediaPlayerControl1.MediaPlayer := MediaPlayer1;

2.播放声音文件正常，但播放器视时发现，第一边正常第二边就报错了(哪位大神知道的，请M我哦，先谢谢了)。

3.打包时需要打入MP3与MP4文件，路径为"assets\internal\"。

PS:20160421用XE10编译在夜神上一切正常，但在小米手机2上第一边正常，第二边卡，但不报错了。

实例代码：

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
   FMX.Controls.Presentation, FMX.StdCtrls, FMX.Media, FMX.Layouts;

 type
   TForm1 = class(TForm)
     MediaPlayer1: TMediaPlayer;
     Label1: TLabel;
     Timer1: TTimer;
     Layout2: TLayout;
     Layout3: TLayout;
     Button1: TButton;
     Button2: TButton;
     Button3: TButton;
     TrackBar1: TTrackBar;
     TrackBar2: TTrackBar;
     Label2: TLabel;
     Label3: TLabel;
     Layout4: TLayout;
     MediaPlayerControl1: TMediaPlayerControl;
     Layout1: TLayout;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure TrackBar1Change(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure TrackBar2Change(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation
 uses
   System.IOUtils;//需要引入
 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 //执行暂停按钮
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   MediaPlayer1.Stop;
   Timer1.Enabled := false;
   Button2.Enabled := true;
   Button1.Enabled := false;
 end;

 //执行播放按钮
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   MediaPlayer1.FileName := TPath.GetDocumentsPath + '/abc.mp3';//指定要打开的文件当然，指定 SD 卡中其它目录是文件也是可以的。
   MediaPlayer1.CurrentTime := trunc((TrackBar1.Value * MediaPlayer1.Duration) / );// 播放进度调整为进度条指示位置
   MediaPlayer1.Volume := TrackBar2.Value;//音量也调整到音量指示值
   MediaPlayer1.Play;//播放
   Timer1.Enabled := true;
   Button2.Enabled := false;
   Button1.Enabled := true;
 end;

 procedure TForm1.Button3Click(Sender: TObject);
 begin
   MediaPlayer1.FileName := IncludeTrailingPathDelimiter(TPath.GetDocumentsPath) + 'abc.mp4';//指定要播放的视频文件
   MediaPlayer1.Play;
   Timer1.Enabled := true;
 end;

 //设置视频在哪里显示
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   MediaPlayerControl1.MediaPlayer := MediaPlayer1;
 end;

 procedure TForm1.Timer1Timer(Sender: TObject);
 var
   handler: TNotifyEvent;
 begin
   handler := TrackBar1.OnChange;
   TrackBar1.OnChange := nil;//暂时取消其 OnChange 事件
   TrackBar1.Value := int((MediaPlayer1.CurrentTime / MediaPlayer1.Duration) * );
   //更新进度条的指示
   Label2.Text := inttostr(trunc(MediaPlayer1.CurrentTime / )) + ':' +
   inttostr(trunc(MediaPlayer1.CurrentTime /  -
   trunc(MediaPlayer1.CurrentTime / ) * ));
   //显示声音文件所剩下的播放时间，分：秒
   Label3.Text := inttostr(trunc(MediaPlayer1.Duration / )) + ':' +
   inttostr(trunc(MediaPlayer1.Duration /  - trunc(MediaPlayer1.Duration /
   ) * ));//显示声音文件总的播放时间，分：秒
   TrackBar1.OnChange := handler; //还原其 OnChange 事件
   //播放完毕后的处理
   if MediaPlayer1.CurrentTime >= MediaPlayer1.Duration -  then//如果播放完了
   begin
     MediaPlayer1.Stop;
     TrackBar1.Value:=;
     Button2.Enabled := true;
     Button1.Enabled := false;
     Timer1.Enabled := false;
   end;
 end;

 //滑动进度条时，改变播放进度
 procedure TForm1.TrackBar1Change(Sender: TObject);
 begin
   MediaPlayer1.CurrentTime := trunc((TrackBar1.Value * MediaPlayer1.Duration) / );
 end;

 //滑动音量调节条时，改变播放音量
 procedure TForm1.TrackBar2Change(Sender: TObject);
 begin
   MediaPlayer1.Volume := TrackBar2.Value;
 end;

 end.