红鱼儿

统计

使用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中:

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

 

posted on 2018-06-26 11:37  红鱼儿  阅读(...)  评论(...编辑  收藏