Delphi与Flex交互

1、在Delphi中安装Flash控件

运行Delphi，选择菜单中的Component -> Import ActiveX Control，找到Shockwave Flash (Version 1.0)并安装，默认安装到ActiveX面板。

安装完成后，ActiveX面板就会出现TShockwaveFlash控件，这是Delphi对C:/WINDOWS/system32/Macromed/Flash/Flash10i.ocx的封装，现在我们就可以用这个控件来播放Flash了。

2、TShockwaveFlash的重要属性和事件

属性：

Movie: Flash文件的绝对路径，网上说可以为URL。

事件：

OnFlashCall: 在Flex中调用ExternalInterface.call时触发，参数request的格式为

<invoke name="funcName" returntype="xml"><arguments><string>param1</string><number>2</number></arguments></invoke>

OnFSCommand: 在Flex中调用fscommand时触发，两个参数command和args分别对应Flex调用时的2个参数。

OnReadyStateChange: 当Flash的状态发生改变时触发。网上说有5个状态（0=Loading, 1=Uninitialized, 2=Loaded, 3=Interactive和4=Complete），但经试验发现只有Interactive和Complete，且Complete总共触发了2到3次（一般情况下会触发2次，此时Stage已经加载进来，有背景。若为Application或任意添加一个ViewStack并设置backgroundImage，backgroundImage的图片可以不存在，则在Flex的creationComplete时会触发第3次）。若Flash文件不存在（如设置了相对路径），则只会触发一次Interactive。

3、建Flex工程

新建一个Flex Application，取名DelphiFlex。Flex代码如下：

 <?xml version="1.0" encoding="utf-8"?><mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" initialize="init()" creationComplete="complete()"><mx:Style>Application{backgroundImage: "assets/images/this_image_doesnt_exist.jpg"; /*也可直接在属性里设置backgroundImage*/}</mx:Style><mx:Script><![CDATA[import mx.collections.HierarchicalData;import mx.binding.utils.BindingUtils;import mx.printing.PrintDataGrid;import mx.printing.FlexPrintJob;import mx.collections.ArrayCollection;[Bindable]public var arr:ArrayCollection = null;private function invokeByExternal(arg1:String, arg2:int):*{txt.text = arg1 + arg2;return 'returnByFlex';}private function init():void{ExternalInterface.addCallback('callFlex', invokeByExternal);}public function complete():void{fscommand('creationComplete');}private function btnCall_clickHandler():void{var o:* = ExternalInterface.call('callDelphi', 'param1', 2);txt.text = o + ''; // the result is null, because there's nowhere to set result in delphi}private function btnCommand_clickHandler(event:MouseEvent):void{fscommand(event.target.label, 'some args');}]]></mx:Script><mx:TextInput id="txt" x="10" y="10" editable="false"/><mx:Button id="btnCall" label="Call Delphi" x="10" y="40" click="btnCall_clickHandler()"/><mx:Button id="btnCommand" label="Flex Set Command To Delphi" x="10" y="70" click="btnCommand_clickHandler(event)"/></mx:Application>

在initialize事件中注册回调函数是因为准备在Delphi的OnReadyStateChange中调用该方法。如果是在creationComplete中注册回调函数，OnReadyStateChange就算newState第3次等于4时调用该方法仍会出错，可能是因为creationComplete未执行或正在执行。

4、建Delphi测试程序

新建一个Delphi工程，拖一个TShockwaveFlash控件过来，再放一个TButton和TEdit控件，TButton的label设为Call Flex。Delphi代码如下：

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, ShockwaveFlashObjects_TLB;type TForm1 = class(TForm) ShockwaveFlash1: TShockwaveFlash; txt: TEdit; btn: TButton; procedure FormCreate(Sender: TObject); procedure ShockwaveFlash1FlashCall(Sender: TObject; const request: WideString); procedure ShockwaveFlash1FSCommand(Sender: TObject; const command, args: WideString); procedure btnClick(Sender: TObject); procedure ShockwaveFlash1ReadyStateChange(Sender: TObject; newState: Integer); private fFlexCompleteCount: Integer; function CallFlex(aFuncName, arg1: string; arg2: Integer): string; public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}function TForm1.CallFlex(aFuncName, arg1: string; arg2: Integer): string;var vFuncBody: string;begin vFuncBody := '<invoke name="' + aFuncName + '" returntype="xml"><arguments><string>' + arg1 + '</string><number>' + IntToStr(arg2) + '</number></arguments></invoke>'; Result := ShockwaveFlash1.CallFunction(vFuncBody);end;procedure TForm1.FormCreate(Sender: TObject);begin // 若只设置为'DelphiFlex.swf'，Flash播放不了 ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'DelphiFlex.swf'; // 由于必须是绝对路径，所以只能在此处设置end;procedure TForm1.ShockwaveFlash1FlashCall(Sender: TObject; const request: WideString);begin txt.Text := request; // <invoke name="callDelphi" returntype="xml"><arguments><string>param1</string><number>2</number></arguments></invoke>end;procedure TForm1.ShockwaveFlash1FSCommand(Sender: TObject; const command, args: WideString);begin if (command = 'creationComplete') then begin // some initialize flex code here CallFlex('callFlex', 'initData', 2); end else begin txt.Text := command + ':' + args; end;end;procedure TForm1.btnClick(Sender: TObject);var vResult: string;begin vResult := CallFlex('callFlex', 'something set by delphi', 2); txt.Text := vResult; // <string>returnByFlex</string>end;procedure TForm1.ShockwaveFlash1ReadyStateChange(Sender: TObject; newState: Integer);const Complete = 4; LoadingCompleteCount = 2; CreationCompleteCount = 3;begin ShowMessage(IntToStr(newState)); if (newState = Complete) then begin Inc(fFlexCompleteCount); // 若Flex不加backgroundImage，则只会触发2次，所以下面的代码不一定会得到执行 if (fFlexCompleteCount = CreationCompleteCount) then begin // other initialize flex code here // 会在ShockwaveFlash1FSCommand的initData之前执行，所以最终Flash显示的是initData2 CallFlex('callFlex', 'initUI', 2); end; end;end;end.

5.、Delphi若要在Flash加载完设置一些内容，最好是在Flex的creationComplete事件中触发事件，然后Delphi调用Flex的方法。因为OnReadyStateChange并不稳定。

6、Delphi调用Flex时可以有返回值，因为ShockwaveFlash1.CallFunction有返回值。Flex调用Delphi时由于OnFlashCall不能设置返回值，所以Flex取不到返回值。