delphi播放flash
Dim firstName，radioButtonValue As String
firstName=movie.GetVariable"FirstName"
radioButtonValue=movie.GetVariable("/Form/RadioButton:Value")
24、IsPlaying
语法：IsPlaying() As Boolean
说明：如果影片正在播放则返回true。
例子：
If movie.IsPlayingThen
MsgBox"影片正在播放中！"
End If
25.PercentLoaded
语法：PercentLoaded() As Long
说明：返回目前已经载入的影片的百分比。取值范围从0到100。
例子：
Dimloaded As Boolean
If movie.PercentLoaded=100 Then
loaded=true
End If
26.TCurrentFrame
语法：TCurrentFrame(target As String)As Long
说明：返回由target指定的时间轴中当前帧的号码。返回的帧号码是从0开始的，也就是说影片的第一帧为0，第二帧为1，以此类推。
例子：
Dim currentFrame As Long
currentFrame=movie.TCurrentFrame("/MovieClip")
27.TCurrentLabel
语法：TCurrentLabel(target As String)As String
说明：返回由target指定的时间轴中当前帧的标签。如果没有当前帧的标签，则返回一个空字符串。
例子：
Dim currentLabel As String
currentLabel=movie.TCurrentLabel("/MovieClip")
28.TGetProperty
语法：TGetProperty(target As String，property As Long)As String
说明：对于由target指定的时间轴，返回由property指定的属性值（字符串）。其中，property是一个代表相应属性的编号（详情请参阅附表）。
例子：
Dim nameIndex As Long
Dim name As String
nameIndex=13
name=movie.TGetProperty("/"，nameIndex)
29.TGetPropertyNum
语法：TGetPropertyNum(target As String，property As Long)As Double
说明：对于由target指定的时间轴，返回由property指定的属性值（数字）。其中，property是一个代表相应属性的编号（详情请参阅附表）。
例子：
Dim framesLoadedIndex As Long
Dim framesLoaded As Double
framesLoadedIndex=12
framesLoaded=movie.TGetProperty("/"，framesLoadedIndex)
附表：获取及设置属性。相应的每个属性的编号都可用在TGetProperty、TGetPropertyAsNumber、TSetProperty或TSetPropertyNum中，以指出将要访问的属性。
讲到这儿也就差不多了，我们已经可以对Flash影片进行绝大部分的操作了。我想，追求完美的你一定还觉得有些不满足，不肯善罢甘休，非得要十全十美不可。那我们就来看看还有些什么要做的。
三、事件篇
想想看，有些Flash影片一打开就会自动切换到全屏模式播放；有些影片打开后，你改变播放器大小，影片的画面居然不会随之改变；还有些影片播放时，Flash播放器的菜单会隐藏起来。在Flash自带的播放器里可没有“隐藏菜单”的功能吧，这是怎么回事？那就随我来，往下看，让我们听听来自Flash影片的“声音”。
1.FSCommand
语法：FSCommand(command As String，args As String)
说明：在Flash中为影片添加的FSCommand动作可以从影片中传递信息给Flash播放器，Flash播放器或包含播放器控件的网页或程序播放这个影片时就根据得到的这些信息执行相应的动作，从而实现影片内部与外部应用的交互操作。如在Flash中给一个按钮图片添加如下的Action：
on(release){
fscommand("fullscreen"，"true");
}
当Flash播放器播放这个文件时点击按钮，播放器就会切换到全屏模式。下面是Flash自带的播放器能识别的命令和它们的参数：
命令：quit
参数：无参数
作用：关闭播放器
命令：fullscreen
参数：true或false
作用：设置为true使播放器以全屏模式播放；设置为false使播放器回到一般窗口模式播放。
命令：allowscale
参数：true或false
作用：设为false将使影片不随播放器大小改变而改变，始终保持原始尺寸，相当于播放器菜单中的100%；设为true则恢复影片随播放器大小而改变的尺寸，相当于播放器菜单中的ShowAll。
命令：showmenu
参数：true或false
作用：设为true显示全部菜单，包括菜单栏和播放区的右键菜单；设为false菜单栏不显示，播放区的右键菜单中只有一项“AboutMacromediaFlashPlayer...”。
命令：exec
参数：应用程序的路径及名称
作用：执行一个指定的应用程序。如在Flash影片中添加动作为：
fscommand("exec"，"regedit");
则播放器播放影片时执行此动作会打开“注册表编辑器”程序。注意哟，Flash自带的播放器接收到这些命令后会执行相应的动作，但在控件中不会有任何反应，只能由程序在FSCommand事件中分析接收到的command和args并编程做出相应处理。
2.OnProgress
语法：Event OnProgress(percentDone As Long)
说明：发生在Flash影片下载时。percentDone是影片已下载的百分比，取值从0到100。
例子：在窗体标题栏中显示下载进度：
Private Sub movie_OnProgress(ByVal percentDone As Long)
form1.Caption="影片已下载："&percentDone&"%"
End Sub
3.OnReadyStateChange
语法：Event OnReadyStateChange(newState As Long)
说明：发生在控件的准备状态改变时。下面列出了newState可能的值：
0——正在载入
1——未初始化
2——已载入
3——正在交互
4——完成
例子：影片载入完成后出现提示信息，然后开始播放影片：
Private Sub movie_OnReadyStateChange(newState As Long)
If newState=4 Then
MsgBox"影片载入完成！"&vbCrLf&"影片总帧
数："&movie.TotalFrames
movie.Play
End If
End Sub