我有一个Delphi XE6 FireMonkey项目,打算在iOS和Android设备上播放视频。
在我的表格中,我有TMediaPlayerControl和TMediaPlayer控件。
我播放视频的代码(传入)是
MediaPlayer1.FileName := TPath.GetDocumentsPath + PathDelim + s;
Label1.Text := IntToStr(MediaPlayer1.Media.VideoSize.Truncate.X) + 'x' +
IntToStr(MediaPlayer1.Media.VideoSize.Truncate.Y) +
'px ' + IntToStr(MediaPlayer1.Media.Duration div MediaTimeScale) + 'ms';
TrackBar1.Max := MediaPlayer1.Media.Duration;
MediaPlayer1.Play;
目的是标签将显示视频的分辨率,轨道栏将显示视频的长度。
然而,Label显示为0x0,轨迹栏的值为0。
现在,如果我设置了TMediaPlayerControl的MediaPlayer属性,即
MediaPlayerControl1.MediaPlayer := MediaPlayer1;
视频根本不播放。什么都没发生。如果我清除了该属性,那么视频确实会播放,但只能在屏幕中间的不受控制的窗口中播放,完全忽略TMediaPlayerControl。
此代码适用于FireMonkey Windows应用程序,但它似乎不适用于iOS或Android。
我做了一些根本错误的事情还是刚刚破产?在这种情况下,你如何在FireMonkey for iOS / Android中播放视频?
谢谢!