如何在DELPHI中加载FLASH 文件?

badboy1982 2002-12-09 10:33:59
如何在DELPHI中加载FLASH 文件,在加载后,如何通过delphi控制flash的播放帧数?
...全文
107 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiufengy 2002-12-10
  • 打赏
  • 举报
回复
up
hanly2008 2002-12-10
  • 打赏
  • 举报
回复
安装了一个由Macromedia公司提供的swflash.ocx控件。ActiveX控件在windows里是通用的,delphi当然也支持,打开你的delphi,选择菜单Component里的Import ActiveX Control选项,再选择SWFlash.OCX 文件(C:\WINDOWS\SYSTEM\MACROMED\FLASH),进行安装,完成后,在ActiveX面板里会出现TShockwaveFlash控件,这是delphi对SWFlash.OCX的封装。现在,我们就可以用这个控件来播放flash了。拖一个flash过来放在form上,指定其Movie属性为d:\test.SWF,按F9,一切OK。delphi编程就是这么轻松、简捷。

  TShockwaveFlash

  属性:

  ReadyState——读一个flash文件时的状态。

  0=Loading,1=Uninitialized,2=Loaded,3=Interactive,4=Complete。

  TotalFrames——总帧数,只有当ReadyState=4时才能访问。

  FrameNum——当前播放的帧。

  Playing——播放或暂停一个flash。

  Quality——指定当前渲染的质量,0=Low,1=High,2=AutoLow,3=AutoHigh。

  ScaleMode——缩放模式,0=ShowAll,1=NoBorder,2= ExactFit。

  AlignMode——对齐模式,Left=+1,Right=+2,Top=+4,Bottom=+8。

  BackgroundColor——背景色,red×65536+green×256+blue,-1为默认颜色。

  Loop——是否循环。

  Movie——指定播放的flash文件路径,可以为一个URL。

  方法:

  Play()——开始播放动画。

  Stop()——停止播放动画。

  Back()——播放前一帧动画。

  Forward()——播放后一帧动画。

  Rewind()——播放第一帧动画。

  SetZoomRect(int left, int top, int right, int bottom)——设置缩放的区域。

  Zoom(int percent)——按百分比缩放。

  Pan(int x, int y, int mode)——缩放播放面板。模式为:0-按像数,1-按窗口百分比。

  事件:

  OnProgress(int percent)——读取一个flash时触发。

  OnReadyStateChange(int state)——状态改变时触发。
states 可以为 0=Loading,1=Uninitialized,2=Loaded,3=Interactive,4=Complete。

5,939

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧