Delphi和Flash交互

delphi与flash通信交互的文本简单实现
2008-05-02 16:54
delphi与flash通信交互的文本简单实现
delphi与flash交互通信的优点在于：开发delphi应用程序时充分发挥flash表现力强的特点，只要运用得当，flash开发的色彩斑斓的界面就会出现在delphi应用程序当中，且无需delphi程序员去堆放大量浪费资源的控件。

delphi与flash交互具体存在两个问题：
1、如何能让delphi应用程序接收到flash发来的消息，并处理；
2、怎样能从delphi应用程序向flash传递命令，控制.swf文件的运行。

以下逐一解决
注：我使用的时delphi 7+flash 8, 控件使用原生的TShockwaveFlash（此控件的安装，请参见其它资料），
一、flash向delphi发送消息：
flash向delphi发送消息其实很简单，只需要运用flash中自带的fscommand命令即可，此命令在作者能见到的各版flash中都存在，
尽管后期版本从安全角度考虑不提倡使用它，但在这里此命令我们仍可以大加利用。

例如（在qqp_528flash.swf中）：
//flash中的代码
on (click){
fscommand("qqp_528","flash向delphi程序发消息了");
}
------------------
OK，以上代表flash中某一元件的单击事件会触发fscommand命令了，其中参数“qqp_528”是命令，后面的就是命令的值。

以下为在delphi中使用的接收代码：
procedure TFrmMain.Flash1FSCommand(Sender: TObject; const command,
args: WideString);
begin
If Command='qqp_528' Then
Begin
ShowMessage(args);
End;
end;
简单吧，在TShockwaveFlash控件中已经存在了专门接收命令的事件了"OnFSCommand"，其它的就很清楚了。

二、delphi向flash传递指令：
delphi方面，执行代码如下：
Flash1.SetVariable('qqp_528toflash','这是delphi向flash传的');
从这一句代码可见，被执行的flash中必需存在变量名为"qqp_528toflash"的元件，应为文本元件（必须），后面是传递的内容。

执行后会在flash中名为qqp_528toflash的文本元件中显示传入的“这是delphi向flash传的”这段内容。

另外注意，以上只是代码的片段，在执行以上代码之前千万别忘了在delphi应用程序中播放flash呀，
播放代码为：
Flash1.LoadMovie(0,'qqp_528flash.swf');
Flash1.Play;
flash与delphi间的通信
2008-07-02 23:39:08| 分类：Flash | 标签：|字号大中小订阅
Author:luhui PublishTime:2005-09-02
flash与delphi间的通信
flash的优势在于图形表现方面，但他不能对系统进行直接的底层操作。

delphi能,但他的界面一般都是灰突突的，想要开发出玫慕缑妗Ｕ媸且恍倪垦呐丁?
尤其是在善变的客户面前。

如果两者结合呢？自己想吧。

首先我们还是考虑怎样实现，原理的东西你在delphi中搞懂了,在vb,c#等是一样的。

(1)在delphi中安装控件
swflash.ocx，要能在其他环境中运行flash，一定少不了他。

你可以
在Win98的$Windows\System\Macromed \Flash中或在Win2000中的$Winnt\System32\
Macromed\Flash中找到它。

运行Delphi后，选择选单Component→Import ActiveX Control，找到SWFlash.OCX 文件进行安装。

安装完成后，ActiveX面板里出现TShockwaveFlash控件，这是Delphi对SWFlash.OCX的封装.使你能够在delphi环境中使用delphi的语言控制flash.相关截图：
图片如下：
图片如下：
图片如下：
(2)flash调用delphi
安装好后，你可以把flash控件放到窗体上，做好了把？好，现在讨论怎样通过flash调用delphi中的代码？在flash中有一个函数fscommand()他的说明是这样的：使SWF 文件能够与Flash Player 或承载Flash Player 的程序（如Web 浏览器）进行通讯。

还可使用fscommand 动作将消息传递给Macromedia Director，或者传递给Visual Basic、Visual C++ 和其它可承载ActiveX 控件的
程序。

呵呵，也就是说可以向包含swflash.ocx的外部程序传递参数。

图片如下：
fscommand("mycommand", "msg");中的两个参数可以任意修改，然后你在delphi中判断。

具体代表什么意思只有你知道。

(3)delphi调用flash
可以利用SetVariable('myinfo','val')函数，第一个参数是flash中主场景第一桢可见的变量，第二个参数是你要为变量附的值。

在delphi中如下，设置flash中的一个名为myinfo的变量值为字符串“val”
self.ShockwaveFlash1.SetVariable('myinfo','val');
这个有一个问题需要注意：
当向flash附值的时候，flash怎样知道变量的值已经改变了呢？
一般的做法是通过一个循环不断的检测变量值是否已经改变，这个显然效率很低。

一个更好的做法是
var myval = "";
this.onmyvalchange = function(prop, oldval, newval, userData) {
trace("delphi为myval附的新值为："+newval);
};
_root.watch("myval", this.onmyvalchange);
利用变量的监视，如上。

（4）其他
开发过程中可能还会遇到很多问题，比如屏蔽右键菜单，在delphi中改变窗体大小flash不能自动刷新等，
//设_root下info变量
sf.SetVariable( '_ ', edtInfo.Text);
//调用_root第1帧这代码，可在其代码中设置值使起作用
sf.TCallFrame( '_root ', 0);
...
或者，edtText为动态文件变量名可试。