delphi怎么播放flash

在Delphi里播放Flash
首先，你的机器里要装有Flash播放软件（你的IE能显示Flash）。IE之所以能显示Flash是安装了
由Macromedia公司提供的swflash.ocx控件，我们可以在Win98的$Windows\System\Macromed \Flash中
或在Win2000中的$Winnt\System32\ Macromed\Flash中找到它。ActiveX控件在Windows里是通用的，
Delphi也同样支持。

首先，你的机器里要装有Flash播放软件（你的IE能显示Flash）。IE之所以能显示Flash是安装了
由Macromedia公司提供的swflash.ocx控件，我们可以在Win98的$Windows\System\Macromed \Flash中
或在Win2000中的$Winnt\System32\ Macromed\Flash中找到它。ActiveX控件在Windows里是通用的，
Delphi也同样支持。

运行Delphi后，选择选单Component→Import ActiveX Control，找到SWFlash.OCX 文件进行安装。
安装完成后，ActiveX面板里出现TShockwaveFlash控件，这是Delphi对SWFlash.OCX的封装，现在我们
就可以用这个控件来播放Flash了。拖一个Flash过来，放在Form上，指定其Movie属性为d:\test.SWF，
并按F9键加以运行即可。怎么样，运行效果不错吧？下面，笔者将具体介绍TShockwaveFlash主要属性、
方法和事件，以便于读者开发。

TShockwaveFlash主要属性如下：

ReadyState：读一个flash文件时的状态，其中包括0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete；
TotalFrames：总帧数，只有当Ready