procedure TMainForm.CCButton1Click(Sender: TObject);
begin
  // self.CCSuperPlayerView1.Play('自定义标题','http://fskst123456.qicp.io:9001/Ddata/[dydao.mp4');
  CCSuperPlayerView1.Play('自定义标题-点播',
    'http://1252463788.vod2.myqcloud.com/95576ef5vodtransgzp1252463788/68e3febf4564972819220421305/v.f30.mp4');

end;

procedure TMainForm.CCButton2Click(Sender: TObject);
begin
  CCSuperPlayerView1.Play
    ('http://5815.liveplay.myqcloud.com/live/5815_89aad37e06ff11e892905cb9018cf0d4.flv');
end;

procedure TMainForm.CCSuperPlayerView1PlayEvent(ASender: TObject;
  APlayEvent: TCCSuperPlayerView_PlayEvent);
var
  AEventInfo: String;
begin
  case APlayEvent of
    PLAY_EVT_CONNECT_SUCC:
      AEventInfo := '已经连接服务器';
    PLAY_EVT_RTMP_STREAM_BEGIN:
      AEventInfo := '已经连接服务器，开始拉流';
    PLAY_EVT_RCV_FIRST_I_FRAME:
      AEventInfo := '收到首帧数据';
    PLAY_EVT_PLAY_BEGIN:
      AEventInfo := '视频播放开始，如果您自己做 loading，会需要它';
    PLAY_EVT_PLAY_PROGRESS:
      AEventInfo := '播放进度事件';
    PLAY_EVT_PLAY_END:
      AEventInfo := '播放结束';
    PLAY_EVT_PLAY_LOADING:
      AEventInfo := '视频播放进入缓冲状态，缓冲结束之后会有 PLAY_BEGIN 事件';
    PLAY_EVT_START_VIDEO_DECODER:
      AEventInfo := '视频解码器开始启动';
    PLAY_EVT_CHANGE_RESOLUTION:
      AEventInfo := '视频分辨率发生变化';
    PLAY_EVT_GET_PLAYINFO_SUCC:
      ;
    PLAY_EVT_CHANGE_ROTATION:
      ;
    PLAY_EVT_GET_MESSAGE:
      ;
    PLAY_EVT_VOD_PLAY_PREPARED:
      ;
    PLAY_EVT_VOD_LOADING_END:
      ;
    PLAY_EVT_STREAM_SWITCH_SUCC:
      AEventInfo := '直播流切换完成';
  end;
  if AEventInfo <> '' then
  begin
    self.PlayEventMemo.Lines.Add(FormatDateTime('[yyyy-MM-dd HH:mm:ss]', now) +
      AEventInfo);
  end;
end;