有关DirectShow(Dspack2.31)放DVD如何进行Seek(就是拖动拖动条Slider进行定位)(100分)

有关DirectShow(Dspack2.31)放DVD如何进行Seek(就是拖动拖动条Slider进行定位)
Dspack2.31的DVD Demo上没有Slider啊。。。
请问用哪个接口进行拖动啊？？
IMediaPosition 不好使啊。。。一拖就死。。。。

IMediaSeek

仍然不好使啊？？
其他地方用不用设置啊？？
我用的是默认设置的VideoWindow 和FilterGraph

给你个DEMO
procedure TForm1.DSTrackBar1Timer(sender: TObject;
CurrentPos,
StopPos: Cardinal);
var
CurrPos : Int64;
Value, H, M, S : Integer;
MediaSeeking: IMediaSeeking;
begin

FilterGraph1.QueryInterface(IMediaSeeking, MediaSeeking);
with MediaSeekingdo

begin

GetCurrentPosition(CurrPos);
Value := Trunc(CurrPos / 10000000);
H := value div 3600;
M := (value mod 3600) div 60;
S := (value mod 3600) mod 60;
Panel2.Caption := Format('%d:%2.2d:%2.2d', [H, M, S]);
end;

If OsdChanged then

begin

DSVideoWindowEx1.ClearBack;
OsdChanged := False;
end;

end;

too qince
??
我的意思是要procedure TForm1.DSTrackBar1Change(Sender: TObject);
这个过程怎么写。。

不用呀，我的OnChange中就什么也没写，可以拖动呀！[]

？？
放的是扩展名是VOB的那种 不是MPEG2

你是以什么方式播放？？？？
是文件方式的用MediaSeeking.SetPositions
dvd方式的(FilterGraph.RenderDvd(Status, FileName);那种！）用
DVDControl2.PlayAtTime！

to yuki2003
高手。。。留下联系方式。。。详细问一下
我的QQ是 22838443 MSN:acme_genl@hotmail.com

DirectSound9.pas这东西在那里？、？？？？？？？？？？？？？