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