DSPack 移动到视频中间的能力

问题描述

我基于 DSPack 附带的 PlayWin 演示构建了一个媒体播放器应用程序。我已经在 Delphi 10.4 Sydney 中构建了这个。我关注的主要文件类型是 *.mp4。所有这些都运行良好。

我想提供移动到当前播放视频的中间并继续播放到视频结尾的功能。

我在 StackOverflow 上进行了广泛的搜索，并尝试了任何看起来正确的解决方案。没有任何效果。

我目前的尝试是：

procedure TMediaPlayer.btnMoveToMidVideoClick(Sender: TObject);
Var
  sgBefore: String;
  sgAfter: String;
  MediaSeeking: IMediaSeeking;
  Start: Int64;
  Stop: Int64;
begin
  FilterGraph.Active := true;
  VideoWindow.FilterGraph:= FilterGraph;
  FilterGraph.RenderFile('S:\iTube Studio Downloaded\6.5 HP Greyhound Engine\6_5HP_Best Way To Clean a Honda Style Carburetor - Vide0.mp4');
  FilterGraph.QueryInterface(IMediaSeeking,MediaSeeking);

  Start := 1200519 div 2;
  Stop := 1200519;

  MediaSeeking.SetPositions(Start,AM_SEEKING_AbsolutePositioning,Stop,AM_SEEKING_AbsolutePositioning);

  FilterGraph.Play;
end;

我不知道从哪里获取开始和停止值。

谁能弄清楚如何移动到当前正在播放的视频的中间？

迪克·马利

提前致谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphi position video