TTrackBar对TShockwareFlash播放控件与进度同步(Delphi)
来源:互联网 发布:淘宝代运营怎么卖服务 编辑:程序博客网 时间:2024/05/17 08:49
在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,功能完成。
- TTrackBar对TShockwareFlash播放控件与进度同步(Delphi)
- TShockWareFlash控件用Timer控件与TrackBar同步存在的问题(delphi)
- AVAudioPlayer实现音乐播放+歌词与播放进度同步
- 音乐播放与进度拖拽原理
- Opencv中视频播放与进度控制
- delphi自带Tmediaplayer控件循环播放
- Android开发播放视频控制进度的控件VideoView
- asf与vga同步播放
- vga 与 asf 同步播放
- seekbar 控制音乐播放进度~之musicplay与seekbar关系
- GetCurrentDirectory与Delphi对话框控件
- delphi控件安装与删除
- delphi控件安装与删除
- delphi控件安装与删除
- delphi控件安装与删除
- delphi控件安装与删除
- SeekBar 垂直,进度点与thumb指示同步对齐
- 与后台同步--实时获取上传/导入进度
- dreamweaver在onLoad运行RecordsetFind.htm时出错
- 一个网站木马的学习1
- sqlplus 启动报错,Error 6 initializing SQL*Plus
- VCL已死,RAD已死(6) - 结语与预测
- Java Web层框架比较—— 比较JSF、Spring MVC、Stripes、Struts 2、Tapestry和Wicket
- TTrackBar对TShockwareFlash播放控件与进度同步(Delphi)
- C#技巧:网页表单自动填写技术(gmail为例)
- 求助!
- 一个在线ajax教程
- SCEA_Common Architectures and Protocols
- 如何学好J2EE
- 什么是Scrum?
- Eclipse插件开发面试题
- CRM下午茶(四):销售成熟度与CRM