TCCSuperPlayerView讓Delphi支持app視頻播放！

本文轉載自查看原文 2019-03-09 20:01 1170 ChinaCock

今天ChinaCock發布了新版，完美支持視頻播放！新版本中，發布了新的控件TCCSuperPlayerView，以支持視頻播放。

這是一個可視控件，拖放到Form上，調整好大小與位置，就可以調用他的Play方法來播放指定位置的視頻文件：

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;

一般的情況下，我們播放的都是視頻服務器上的視頻資源，對於本地的視頻，Play方法同樣支持，這就更適用於將視頻文件下載到本地，然后離線播放的場景。

關於支持的視頻格式，你更可放心，世面上常見的格式，基本都支持，如：mp4,flv,HLS（m3u8）等，即支持播放 hls、mp4 格式的點播視頻和 RTMP、http-flv、hls 協議的直播視頻。

該組件不僅支持錄制好的視頻，還支持直播，對於現在的網紅直播，同樣支持，如果你有直播平台，完全可以該組件實現客戶端播放，聽着是不是很爽！

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

更專業點說，點播就是播放錄制好的直播是主播流推觀眾端實時拉流，這個播放器全都支持喲！
此外，該播放控件還支持事件，為了簡單，直接將Demo中的代碼貼過來，相信你也一看就明白：

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;