如果你的浏览器能够播放Flash动画的话,将你机器中的相应OCX组件导入到Delphi中即可像一般的组件一样使用,具体的文件名称我忘记了,你搜索以下该论坛,有好多类似的帖子。
解决方案 »
- interbase 时间段查询
- 关于读取INI文件的问题,请求详解
- 超容易问题,高手绝对拿分!
- 将几个自然数排序输出[冒泡法排序]
- 我想问一下怎么样才能在dbgrid里面显示当前行数???
- 查询分析器语句转换为SQL.Add
- 请那位给小弟取个英文名字(不要灌水),谢谢!
- 请问ereport控件的报表格式怎样制作?
- 请教在线程中创建excel对象的问题!
- delphi dll高手们请进,我想用dll把一个数据模块包含进
- 如何实现将已存在的word文档中的内容保持原有格式读入RichEdit控件中
- 大家来看 ----------------关于消息------------------------在线等
in2000中的System32 MacromedFlash中找到它。ActiveX控件在Windows里是通用的,Delphi也同样支持。 运行Delphi后,选择选单Component→Import ActiveX Control,找到SWFlash.OCX 文件进行安装。安装完成后,ActiveX面板里出现TShockwaveFlash控件,这是Delphi对SWFlash.OCX的封装,现在我们就可以用这个控件来播放Flash了。拖一个Flash过来,放在Form上,指定其Movie属性为d: est.SWF,并按F9键加以运行即可。怎么样,运行效果不错吧?下面,笔者将具体介绍TShockwaveFlash主要属性、方法和事件,以便于读者开发。 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:背景色,-1为默认颜色; Loop:是否循环; Movie:指定播放的flash文件路径,可以为一个URL。 TShockwaveFlash主要方法如下: 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为按窗口百分比。 TShockwaveFlash主要事件如下: OnProgress(int percent):读取一个flash时触发; OnReadyStateChange(int state):状态改变时触发。states的值可以为0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete。 更加详细的帮助请参见网页www.macromedia.com/support/flash/。