Как отобразить индикатор выполнения видео?

Question

Я использую Delphi 5.

Я могу отображать.avi или любые другие видеоклипы, используя TFilterGraph, но мне нужно отобразить прогресс завершения видео, так как я могу сделать это с помощью TFilterGraph,

Мне нужно немедленно запустить следующее видео, так как я могу это сделать.

Answer 1

Вам следует запросить интерфейс IMediaSeeking у графического объекта, а затем вызвать его метод GetPositions, чтобы узнать текущую позицию в воспроизведении.

Также вы можете запросить интерфейс IMediaEvent из того же графического объекта и затем в вашем основном цикле получить графические события. Вы получите событие EC_COMPLETE в момент окончания воспроизведения.