在flash中控制delphi程序的方法|flash做好后怎么播放

　　[摘要]通过介绍Flash动画如何传递命令和参数给Delphi,从而实现通过丰富的flash动画界面,控制delphi程序运行的目的。 　　[关键词]flashDelphi传递命令
　　中图分类号:TP3文献标识码:A文章编号:1671-7597(2009)1120032-01
　　
　　在delphi中尽管有许多第三方界面控件,但制作一个能够与flash相媲美的绚丽的程序界面确实不容易。既然这样,那么我们能不能采用flash制作程序界面,在flash界面中控制delphi程序的运行与显示呢?
　　熟悉delphi的朋友一定都知道,在delphi中我们可以通过安装shockwaveflash这个控件来实现在delphi程序中flash动画的播放、元件的控制。反过来我们能不能在flash动画中来控制delphi程序呢?毫无疑问,这一定是能够做到的。我们不但可以用flash动画来封装delphi应用程序的界面,并且可以通过flash动画来控制delphi程序的运行。
　　要想让flash动画控制delphi程序,我们必须先在flash动画的设计过程中加入一些action script(简称as)脚本语言,在flash的as中有一个叫做fscommand()的函数,它的主要功能就是发送FScommand命令,例如使动画全屏播放,隐藏动画菜单,更重要的就是可以与外部文件和程序进行通信,(而在delphi程序中,我们就是利用的shockwaveflash控件的fscommand()过程来完成这一通信过程,实现信息发送的功能),并且根据发送出来的不同的命令及参数来实现对delphi程序的控制。
　　下面我就以一个简单的程序来说明:
　　1.首先建立一个名为shili的flash文件,在主场景中放进一个名为“显示一”的按钮和一个名为“显示二”的按钮。
　　2.然后分别为这两个按钮加入as:
　　//发送xianshi命令,这个命令名可以自定义。
　　on(release){ //“显示一”按钮释放后向程序发送参数
　　on(release){ //“显示二”按钮释放后向程序发送参数
　　fscommand("xianshi ","2");}
　　这段as的主要作用是:当鼠标点击按钮后发送“xianshi"命令,“1”、“2”是fscommand()函数的参数,其书写和大小在as中和delphi程序中必须保持一致。这样动画中的工作就完成了,生成动画文件存储在与下面生成的delphi程序同一目录下,接下来的就是delphi中的事了。
　　3.在Delphi中使用FlashActiveX控件
　　要在Delphi中播放flash依赖于FlashActiveX控件,所以我们要先安装它。运行Delphi后,选择选单Component→Import ActiveX Control,找到SWFlash.OCX(或者Shockwaveflash.ocx) 文件进行安装。安装完成后,ActiveX面板里出现TShockwaveFlash控件,这是Delphi对FlashActiveX控件的封装,现在我们就可以用这个控件来播放Flash了。
　　4.建立delphi程序
　　新建一Delphi工程,在Form中添加flash控件。
　　设置ShockwaveFlash1的 align属性值为alclient,使flash界面随窗口大小而调整
　　在FormCreate事件中添加
　　ShockwaveFlash1.Movie:=GetCurrentdir+"\shili.swf";//载入生成的flash文件。
　　在ShockwaveFlash1控件的onFSCommand事件中填写如下代码:
　　procedure TFrmMain.Flash1FSCommand(Sender: TObject; const command,args: WideString);
　　这样,程序就完成了。程序运行的时候单击flash动画中按钮,按钮会传递命令和参数给delphi程序,delphi程序中ShockwaveFlash1控件的onFSCommand事件会接收flash动画传递的命令和参数,分析判断后执行相应的功能。这种方式能够满足程序既要丰富的界面显示功能,又要强大的数据处理和数据库功能的要求。
本文为全文原貌 未安装PDF浏览器用户请先下载安装 原版全文