一播放Flash
首先你的机器里要装有Flash播放软件（你的IE能显示Flash）IE之所以能显示Flash是安装了由Macromedia公司提供的swflashocx控件我们可以在Win的$Windows\System\Macromed \Flash中或在Win中的$Winnt\System\ Macromed\Flash中找到它 ActiveX控件在Windows里是通用的Delphi也同样支持
运行Delphi后选择选单Component→Import ActiveX Control找到SWFlashOCX 文件进行安装安装完成后ActiveX面板里出现TShockwaveFlash控件这是Delphi对SWFlashOCX的封装现在我们就可以用这个控件来播放Flash了拖一个Flash过来放在Form上指定其Movie属性为d:\testSWF并按F键加以运行即可怎么样运行效果不错吧？
下面笔者将具体介绍TShockwaveFlash主要属性方法和事件以便于读者开发
TShockwaveFlash主要属性如下
ReadyState读一个Flash文件时的状态其中包括=Loading=Uninitialized=Loaded=Interactive和=Complete
TotalFrames总帧数只有当ReadyState =
时才能访问该属性
FrameNum当前播放的帧
Playing播放或暂停一个Flash
Quality指定当前渲染的质量包括=Low =High=AutoLow=AutoHigh
ScaleMode缩放模式=ShowAll= NoBorder = ExactFit
AlignMode对齐模式Left=+Right=+Top=+Bottom=+
BackgroundColor背景色为默认颜色
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)缩放播放面板其中模式为按像数为按窗口百分比
TShockwaveFlash主要事件如下
OnProgress(int percent)读取一个Flash时触发
OnReadyStateChange(int state)状态改变时触发states的值可以为=Loading=Uninitialized=Loaded=Interactive和=Complete
