您的位置:首页 > 编程语言 > Delphi

TTrackBar对TShockwareFlash播放控件与进度同步(Delphi)

2008-12-26 15:48 477 查看
在Delphi中,使用TShockwareFlash控件时,希望对其进行播放进度控制,即,可以拖动播放,像视频播放软件的控制条一样。在这里可以使用TTrackBar控件实现。而问题在于,如何才能让TrackBar的位置与Flash的播放同步呢,因为TShockwareFlash控件中,没有帧改变的事件,设想其有FrameChange之类的事件,但没有。这里可以采用一个比较傻瓜的办法,就是采用Timer控件,在Shockware播放的同时,开启计时器,设定一定时间,让TrackBar的进度位置与Shockware的帧同步。具体实现代码如下:

//Flash开始播放时
shckwvflshTest.Movie := Test.swf;
//获取当前播放Flash的总帧数和当前播放的帧,将其设置为TrackBar的总长度
trckbrFlashProgress1.Min := 0;
trckbrFlashProgress1.Max := shckwvflshTest.TotalFrames;
//让记时器开始,计时器初始时Enable设为False
tmrTestFlash.Enabled:=True;

//拖动TrackBar时,让Flash前进或后退
procedure TfrmOSTeacherMain.trckbrFlashProgress1Change(Sender: TObject);
var
gotoFrame: Integer;//前进到的帧
begin
//Flash播放前进到相应帧
gotoFrame := trckbrFlashProgress1.Position;
shckwvflshTest.GotoFrame(gotoFrame);//跳到相应的帧
shckwvflshTest.Play();//继续播放
end;

//TrackBar跟着Flash播放步进
procedure TfrmOSTeacherMain.tmrTestFlashTimer(Sender: TObject);
begin
trckbrFlashProgress1.Position := shckwvflshTest.FrameNum;//TrackBar进度位置设为Shockware当前帧
end;

OK,功能完成。
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: