delphi里播放flash

                       delphi里播放flash
    在flash大行其道的今天，是否想过在你的程序里也加入几幅flash炫一炫？我们就来试试，前提是你要装有flash播放软件（你的IE能显示flash），IE之所以能显示flash是安装了一个swflash.ocx控件，由Macromedia, Inc.提供，我们也用它了，win98在$Windows/System/Macromed/Flash，win2k在$Winnt/System32/Macromed/Flash下。ActiveX控件在windows里是通用的，delphi当然也支持，打开你的delphi我们开始了。选择菜单Component --> Import ActiveX Control，选择SWFlash.OCX 文件，安装，完成后在ActiveX面板里出现TShockwaveFlash控件，这是delphi对SWFlash.OCX的封装，现在我们就可以用这个控件来播放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&#