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,功能完成。
//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,功能完成。
相关文章推荐
- PictureBox控件作播放时间进度条演示,不会闪烁,并且和Slider控件同步
- delphi自带Tmediaplayer控件循环播放
- delphi中使用mediaplayer控件播放音乐
- delphi播放flash
- 使用WebBrowser控件播放Flash网页相关问题解决方法
- Delphi播放Gif和Flash动画的方法
- delphi播放flash
- 组态王中播放FLASH动画控件的使用
- Android 视频播放与进度条同步
- C# TrackBar控件使用
- Delphi中多线程用Synchronize实现VCL数据同步显示 解决在线程中操作控件出现问题
- Delphi中WebBrowser控件打开Flash网站报“Invalid floating point operation”
- C# TrackBar 控件调节 窗体透明度及颜色渐变
- WPF中使用VLC播放控件制作多屏同步视频
- 在flash控件中设置使用透明背景播放影片
- OpenCV Trackbar 实现播放视频代码遇到的问题 cvQueryFrame cvCreateFileCapture cvCreateTrackbar cvSetTrackbarPos
- 【Delphi】从内存(MemoryStream)使用WMP(WindowsMediaPlayer)控件播放视频音频(Play Video with WMP from MemoryStream)
- 在Delphi里播放Flash
- AVAudioPlayer实现音乐播放+歌词与播放进度同步
- 基于FFmpeg的视频播放控件 WPF 支持调整进度