ChinaCock10.3.3激情版3的TCCSuperPlayerView，让app视频。
。。
在以前的⽂章中，有写过功能，随着ChinaCock10.3.3激情版3的发布，使得视频播放更完美的与app集成。接下来，我们看看如何使⽤这个控件的新功能。
在这个版本中，作者新增加⼀个事件OnBackPress，当⽤户按下视频播器上⾯的<；返回时触发，其中参数APlayMode，指当前视频播放器的播放模式，AHandled：开发者来控制是否触发OnRequestPlayMode事件。为True时，不触发。下⾯是我的实现代码：
procedure TPlayVideoForm.CCSuperPlayerView1BackPress(ASender: TObject; APlayMode: TCCSuperPlayerView_PLAYMODE;
var AHandled: Boolean);
begin
// 将AHandled设置为True 控件则不会执⾏返回按钮的操作，就可以⾃⼰根据⾃⼰的业务情况编写点击返回按钮需要⼲的事情
AHandled := false;
case APlayMode of
TCCSuperPlayerView_PLAYMODE.PLAYMODE_WINDOW:
begin
// showmessage('您在窗⼝模式下点击了返回！');
self.CCSuperPlayerView1.OnPause;
Close;
AHandled := True;
end;
TCCSuperPlayerView_PLAYMODE.PLAYMODE_FULLSCREEN:
begin
if Application.FormFactor.Orientations = [TFormOrientation.Portrait] then
begin
self.CCSuperPlayerView1.OnPause;
Close;
AHandled := True;
end;
// showmessage('您在全屏模式下点击了返回！');
end;
TCCSuperPlayerView_PLAYMODE.PLAYMODE_FLOAT:
begin
// showmessage('您在浮窗模式下点击了返回！');
end;
end;
end;
当播放器处在PlayMode_Window，或者处在PlayMode_FullScreen并且是竖屏时，点返回，中⽌播放并返回到上⼀个界⾯。
下⾯是处理的OnRequestPlayMode事件：
procedure TPlayVideoForm.CCSuperPlayerView1RequestPlayMode(ASender: TObject; APlayMode: TCCSuperPlayerView_PLAYMODE);
begin
if APlayMode = TCCSuperPlayerView_PLAYMODE.PLAYMODE_FULLSCREEN then
begin
self.FullScreen := True;
CCSuperPlayerView1.Parent := self;
CCSuperPlayerView1.Align := TAlignLayout.Contents;
Application.FormFactor.Orientations := [TFormOrientation.Landscape];
end
else if APlayMode = TCCSuperPlayerView_PLAYMODE.PLAYMODE_WINDOW then
begin
self.FullScreen := false;
CCSuperPlayerView1.Parent := self.PlayerViewContainorLayout;
CCSuperPlayerView1.Align := TAlignLayout.Contents;
CC.Comm.App_BringToFront('com.kinglandsoft.zhlm');
Application.FormFactor.Orientations := [TFormOrientation.Portrait];
end
else if APlayMode = TCCSuperPlayerView_PLAYMODE.PLAYMODE_FLOAT then
begin
CC.Comm.App_SendToBack;
end;
end;
在这个事件中，处理视频播放器在不同模式下，app的适应情况。当进⼊FullScreen时，设置应⽤全屏并横置屏幕，达到和市⾯的app播放⼀样的效果。在Widows模式，对屏幕做竖向处理。
最后，我们还要处理⼀下硬件返回，当⽤户按下这个返回键时，如果在全屏下，⾃动返回到竖屏，进⼊Window状态，再点返回，则返回到上⼀界⾯。不多说，直接看代码：
procedure TPlayVideoForm.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
if (Key = vkHardwareBack) then
begin
case CCSuperPlayerView1.PlayMode of
TCCSuperPlayerView_PLAYMODE.PLAYMODE_WINDOW:
begin
// showmessage('您在窗⼝模式下点击了返回！');
self.CCSuperPlayerView1.OnPause;
Close;
end;
TCCSuperPlayerView_PLAYMODE.PLAYMODE_FULLSCREEN:
begin
// RequestPlayMode⽅法会触发OnRequestPlayMode事件.
CCSuperPlayerView1.RequestPlayMode(TCCSuperPlayerView_PLAYMODE.PLAYMODE_WINDOW);
// showmessage('您在全屏模式下点击了返回！');
end;
TCCSuperPlayerView_PLAYMODE.PLAYMODE_FLOAT:
begin
CCSuperPlayerView1.RequestPlayMode(TCCSuperPlayerView_PLAYMODE.PLAYMODE_WINDOW);
// showmessage('您在浮窗模式下点击了返回！');
end;
end;
Key := 0;
end;
这⾥，⽤到了RequestPlayMode⽅法，这个⽅法会触发OnRequestPlayMode事件。这也是该版本实现的⽅法。
上⾯，我们控制了播放窗⼝间以及播放窗⼝与app间的切换，合理的使⽤播放窗⼝上的“返回”以及硬键盘的返回键，接下来，我们还要考虑⼀种情况，就是app进⼊后台，⽐如⼿机来电的处理，要⾃动暂停播放，当⽤户重回app时⾃动播放。你总不能让⽤户在接电话时，还要听到播放器的声⾳。
如何捕获到应⽤进⼊后台及返回呢？ChinaCock为我们提供了TCCFMXNativeActivityObserver，利⽤其提供的事件，可以⽅便的捕获到。如下图，进⼊后台，触发OnPause事件，返回时触发OnResume。
有了对应的事件，代码就容易了，直接从ChinaCock的Demo中拿过来，注释都写好了。
procedure TPlayVideoForm.CCFMXNativeActivityObserver1Pause(ASender: TObject);
begin
// 浮窗播放不暂停播放
if CCSuperPlayerView1.PlayMode <> TCCSuperPlayerView_PLAYMODE.PLAYMODE_FLOAT
then
begin
self.CCSuperPlayerView1.OnPause; // 这样app进⼊后台后就不会播放
end;
end;
procedure TPlayVideoForm.CCFMXNativeActivityObserver1Resume(ASender: TObject);
begin
self.CCSuperPlayerView1.OnResume; // 这样app返回前台继续播放
end;
适应app与后台切换的⾃动暂停与播放，再往下来，就是窗⼝风格的设计了，做⼀个全⿊的窗⼝是很有必要的。如下图，设置
Fill.Color=Black，⼀个全⿊的窗⼝就出来了。
这就完事了，没有，⼀个完美的设计，还要适应屏上⾯的状态条及底部的虚拟导航条（俺⽤的华为⼿机），这时候，就需要ChinaCock的TCCSystemBar组件，。
现在我们放置⼀个TCCSystemBar，然后在Form.OnCreate事件中设置状态条及导航条的⾼度：
function TPlayVideoForm.GetNavigationBarHeight: Single;
begin
Result := 0;
if self.CCSystemBar1.checkNavigationBarShow then
begin
Result := NavigationBarPointHeight;
end
end;
procedure TPlayVideoForm.FormCreate(Sender: TObject);
begin
CCSystemBar1.TranslucentStatusBar; // 适应android 4.4.4
StatusBar.Height := StatusBarPointHeight;
NavigatorBar.Height := GetNavigationBarHeight;
end;
这时候，窗⼝的设计图如下：
其中,StatusBar是⼀个置项的Layout，NavigatorBar是⼀个置底的Layout，分别⽤来占⽤状态条及导航条的位置。
对于华为的虚拟导航条，⽤户还可以控制隐藏与显⽰，这怎么办呢？看似⿇烦，处理起来简单，我们⽤⼀个Timer来控制，定时设置NavigatorBar的⾼度：
procedure TPlayVideoForm.Timer1Timer(Sender: TObject);
begin
if Self.Visible then
NavigatorBar.Height := GetNavigationBarHeight;//适应隐藏与显⽰虚拟导航条.
end;
间隔1秒触发⼀次就好了！
再负点责任，让Timer该⼯作时⼯作，不该⼯作时休息，⽤Form.OnShow及OnHide事件处理：
procedure TPlayVideoForm.FormHide(Sender: TObject);
begin
NavigatorBarTimer.Enabled:=False;
end;
procedure TPlayVideoForm.FormShow(Sender: TObject);
begin
NavigatorBarTimer.Enabled;//⾃动适应虚拟导航条的隐藏与显⽰
if Screen.ActiveForm <> nil then
Screen.ActiveForm.Focused := nil;
CCSuperPlayerView1.ResetPlayer;
CCSuperPlayerView1.Play('返回', url);
end;
再有⼀项设计需要实现，那就是⾃动记忆⽤户的播放进度，当⽤户重复播放同⼀视频时，能⾃动从上次的播放的位置开始。
先取播放的位置，新版本TCCSuperPlayerView提供了⼀个事件OnPlayProgressEvent，其中，参数AProgress为进度，ADuration为视频的总时长，单位都是毫秒。接管这个事件，⽤变量FPosition1来保存播放进度，代码如下：
procedure TPlayVideoForm.CCSuperPlayerView1PlayProgressEvent(ASender: TObject;
AProgress, ADuration: Integer);
begin
FPosition1:=AProgress;
end;
有了播放进度，接下来是如何在播放时，⾃动跳转到这个位置呢？新版本TCCSuperPlayerView提供了⼀个事件OnPlayPrearedEvent，这个事件在调⽤Play⽅法后触发，实现⼀下这个事件的代码：
procedure TPlayVideoForm.CCSuperPlayerView1PlayPreparedEvent(ASender: TObject);
begin
if FPosition>0then
CCSuperPlayerView1.SeekTo(Round(FPosition/1000));
end;
statusbar是什么意思当播放进度⼤于0时，进⾏跳转，这⾥⽤到的SeekTo⽅法也是此版本实现的。需要注意，SeekTo的参数是秒。眼神好的朋友也许已经看到，这⾥我⽤的FPosition变量，⽽不是在OnPlayProgressEvent中捕获到进度的变量FPosition1，多了个1。为什么呢？因为当调⽤Play⽅法时，会在OnPlayPrearedEvent前触发PlayProgressEvent，造成这个FPosition1被改变，不再是上次保留的进度。
现在再看⼀下播放视频的代码：
procedure TPlayVideoForm.Start;
begin
if FOldURL = url then//如果是上次播放视频，⾃动从上次播放位置开始
begin
FPosition:=FPosition1;//取上次播放进度并⽤FPosition来调⽤SeekTo⽅法
CCSuperPlayerView1.Play('返回', url);
end
else
begin
FOldURL := url;
FPosition:=0;//播放⼀个新视频时，进度清0，避免触发的PrepareEvent中从上次播放进度开始.
CCSuperPlayerView1.Play('返回', url);
end;
end;
代码我注释了，相信朋友你⼀看就明⽩。写到这⾥，如何⾃动记忆上次播放位置也算完成，但只是实现⽤户连续重复播放⼀个视频时有效，⽤户播放多个视频时，只能记忆最后⼀个视频的进度。如果⾃动记忆多个视频，需要保存每个视频的播放进度，我计划⽤本地表来保存，这⾥就不再写了。
⾄此，⼀个⾼度与app集成，堪称完美的播放器功能就实现了！
在实现的过程中，得到ChinaCock作者的⼤⼒⽀持，再此感谢作者的努⼒与付出！再次感谢！！另外，
作者计划在下⼀版本中，更好的⽀持记忆进度并按照记忆的进度进⾏播放，期待了...
如果你也想让⾃⼰的app具有如此完美的功能，记得进223717588，但要知道，这是付费的控件。
后记：2021/02/02，今天升级app到ChinaCock10.4.1爱国如家版，遇到播放器闪退，最后解决⽅法是需要发布
tencent_LiteAVSDK_Player.jar，原来版本这个⽂件叫tencent_LiteAVSDK.jar。作者在这个版本，实际上已经写了说明：只⽤播放器功能，安卓下加⼊此jar和此⽬录下的so即可。也就是说，需要重新发布X:...\ChinaCock\FMX\sdk\tencent\superplayer⽬录下的⽂件。好了，天下太平，感谢作者。
发表评论