在VOD中如何得知VOB、DAT、MPG文件是否放完，各位大侠是否可以提供DEMO？ ( 积分: 100 )

在VOD中如何得知VOB、DAT、MPG文件是否放完，各位大侠是否可以提供DEMO？

在VOD中如何得知VOB、DAT、MPG文件是否放完，各位大侠是否可以提供DEMO？

看是用什么控件制作播放
如果用dspack
可以在FilterGraph的onGraphComplete事件得知文件播放结束

procedure TForm1.Button1Click(Sender: TObject);
begin

if FilterGraph1.Active then

FilterGraph1.RenderFile('c:/myvideo.asf') ;
FilterGraph1.Play;

end;


end.
procedure TForm1.FilterGraph1GraphComplete(sender: TObject;
Result: HRESULT;
Renderer: IBaseFilter);
begin

ShowMessage('文件播放结束') ；

end;