TMediaPlayer和TMediaPlayerControl似乎不适用于Delphi FireMonkey iOS / Android?

时间:2014-05-31 01:44:11

标签: ios delphi firemonkey

我有一个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中播放视频?

谢谢!

0 个答案:

没有答案