【转自红鱼儿】使用ALVideoPlayerSurface制作视频播放器

头两天介绍了开源控件包alcinoe，现在利用其中的ALVideoPlayerSurface视频播放控件，实作一个视频播放器。

首先，建一个fmx项目，然后从组件面版，拖放一个TAlVideoPlayerSurface组件。

设置对齐方式为Client，占整个窗大小，然后再放一个Button，实现Click事件：

procedure TForm3.Button1Click(Sender: TObject);
begin

    if ALVideoPlayerSurface1.VideoPlayer.state in [vpsIdle] then begin
      ALVideoPlayerSurface1.VideoPlayer.setLooping(true);
     ALVideoPlayerSurface1.VideoPlayer.prepare('http://distribution.bbb3d.renderfarming.net/video/mp4/bbb_sunflower_1080p_30fps_normal.mp4', True{AutoStartWhenPrepared}); // << no sound on ios, don't know why :(
    end;

end;

在Libraries中，增加三个jar库：

这三个库在alcinoe组件的lib目录中，如D:\Component\alcinoe\lib\jar。

最后，我们还要使用作者修改的Delphi官方源代码，这个代码在下面这个目录

D:\Component\alcinoe\demos\ALFmxControls\_source\embarcadero\tokyo

手工将这个目录加入到项目的Search path中：

编译并运行，可以正常播放视频了，效果没得说。

 

来源：https://www.cnblogs.com/motomsc/p/11979367.html