Delphi--Flash

delphi与flash交互具体存在两个问题：

1、如何能让delphi应用程序接收到flash发来的消息，并处理；

2、怎样能从delphi应用程序向flash传递命令，控制.swf文件的运行。

一、flash向delphi发送消息：

flash向delphi发送消息运用flash中自带的fscommand命令即可。

第一步（flash中Button添加script）：

on (release) {

var userCode = editCode.text

var userName = editName.text;

fscommand("btSubmit", userCode+","+userName); //这样传入args

}

flash中某一元件的单击事件会触发fscommand命令了，其中参数“btSubmit”是命令，后面的就是命令的值。

以下为在delphi中使用的接收代码：

procedure TFrmMain.Flash1FSCommand(Sender: TObject; const command,

args: WideString);

begin

If Command='btSubmit' Then

ShowMessage(args);

end;

在TShockwaveFlash控件中已经存在了专门接收命令的事件了"OnFSCommand"，其它的就很清楚了。

二、delphi向flash传递指令：

delphi方面，执行代码如下：

Flash1.SetVariable('btSubmittoflash','这是delphi向flash传的');

flash中必需存在变量名为"btSubmittoflash"的元件，应为文本元件（必须），后面是传递的内容。执行后会在flash中名为btSubmittoflash的文本元件中显示传入的“这是delphi向flash传的”这段内容。

三、由于播放Flash的时候，点击右键会出现诸如放大，缩小的flash控件的字样，所以最好屏蔽右键。

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);

var

mPoint : TPoint;

begin

//if IsChild(Flash1.Handle, Msg.Hwnd) then

if ((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then

begin

GetCursorPos(mPoint);

//如果去掉下面这行就是屏蔽右键菜单，不去掉为自定义右键菜单

PopupMenu1.Popup(mPoint.X, mPoint.Y);

Handled:=True;

end;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

Application.OnMessage := ApplicationEvents1Message; //屏蔽Flash右键菜单，或弹出自定义右键菜单

end;

＝＝＝＝＝＝＝＝＝＝＝（背景透明）＝＝＝＝＝＝＝＝＝＝＝＝

wmode参数值为transparent