本文整理自网络，侵删。
开发环境：Delphi 10.3.1 社区版。
测试环境：
A. Android 5.0;
B. Android 9.0
1. 进度条
Delphi 官方带的例子里面，关于进度条的代码：
procedure TForm1.Timer1Timer(Sender: TObject);begin if ProgressBar1.Max <> MediaPlayer1.Duration then ProgressBar1.Max := MediaPlayer1.Duration; if ProgressBar1.Value <> MediaPlayer1.CurrentTime then ProgressBar1.Value := MediaPlayer1.CurrentTime;end;在 Android 5.0 底下，进度显示正常。
在 Android 9.0 底下，进度条不显示进度。设置断点查看，每一次，MediaPlayer1.Duration 都返回 -1。
2. 播放显示：
2.1. 在 Android 5.0 底下，不放 MediaPlayerControl1，不显示视频，播放正常，有视频的声音在播放。如果用了 MediaPlayerControl1，则播放就会出现异常：Project testMediaPlayer.apk raised exception class EJNIException with message 'java.io.IOException: Prepare failed.: status=0x80000000'.
2.2. 在 Android 9.0 底下，播放显示正常。
结论：安卓下播放 MP4 视频，还是调用系统提供的视频播放器程序比较好，用 MediaPlayer 还有问题。――――――――――――――――
原文链接：https://blog.csdn.net/pcplayer/article/details/99459049 相关阅读 >>
Delphi中sendmessage给一个edit控件发送wm_settext消息
Delphi getcomputername() getusername() 获取本机当前用户名
更多相关阅读请进入《Delphi》频道 >>
