使用delphi firemonkey

Question

我一直在寻找以下任务的帮助：

什么是添加视频文件的简单方法，只需点击按钮即可在Android设备上播放视频。每次运行代码时，按下按钮时显示黑屏，然后关闭。

这是我的代码：

procedure TForm3.Button1Click(Sender: TObject);
begin
mediaplayer1.FileName :=  'c:\sapoavi2.avi';
if MediaPlayer1.Media <> nil then
begin
  MediaPlayer1.Play;
end;

另外，我有一个mediaplayer控件盒来显示视频。

任何帮助都将非常感激。

Answer 1

根据documentation

，您的方法是错误的

  

Android平台上的视频    ... Android视频文件通常是   H.263格式。有关更多信息，请参阅   http://developer.android.com/guide/appendix/media-formats.html

您应首先查看the mobile code snippets