如何显示视频进度的进度条

Question

我正在使用Delphi 5。

我可以使用TFilterGraph显示.avi或任何其他视频剪辑，但是我需要显示视频完成的进度，那么如何使用TFilterGraph来做到这一点。

我需要立即运行下一个视频，所以我怎么能这样做。

Answer 1

您应该从图形对象请求 IMediaSeek 接口，然后调用其 GetPositions 方法来学习播放中的当前位置。

您也可以从同一个图形对象请求 IMediaEvent 接口，然后在主循环中获取图形事件。您将在播放结束时获得EC_COMPLETE事件。