Delphi与Flash之间互调函数

Delphi是一种基于Object Pascal语言的可视化开发环境，而flash 是Adobe公司专门为制作动画而开发的，目前的flash中可以使用脚本语言Action Script 3.0进行编程控制flash动画。Action Script 3.0脚本语言处理数据的能力远远低于Delphi，而Delphi处理图像和动画的能力不如Flash，本文将介绍Delphi如何通过Shock wave flash ActiveX 控件与flash进行交互。

 

1.flash与外部环境交互的基础

Flash脚本语言Action Script 3.0以前的版本不提供函数与外部容器进行交互，因此本文将介绍Action Script 3.0提供的类ExternalInterface，该类提供了两个方法addCallback和call。其中addCallback是添加外部容器可以调用的flash函数，call是直接调用外部容器的函数，而在本文这个容器指的就是Shock wave flash ActiveX控件。下面介绍一下这两个函数的具体使用方法。

(1)function addCallback(functionName :String,closure :Function):void

第一个参数functionName是flash向外部容器注册的函数名；第二个参数closure是flash中定义的具体函数。下面程序清单是addCallback函数的例子。

程序清单一：

function add(i :int, j:int):int
{
    return i + j;
}
ExternalInterface.addCallback(”GetTotal”, add);

程序清单一中add函数是flash中定义的具体函数，而GetTotal是外部容器调用的函数名。

(2)function call(functionName:String, … arguments):*

第一个参数是调用外部函数的名称，第二个参数是个变参，可以不传递或传递多个参数。程序清单二显示了没有参数和有参数的调用。

程序清单二：

ExternalInterface.call(”GetData”);
ExternalInterface.call(”Multy”, 5, 3);

程序清单二中第一条语句调用的是没有参数的函数，第二条语句是调用两个参数的函数。

 

2.flash与Shock wave flash ActiveX控件的交互

Delphi与flash之间的交互是通过Shock wave flash ActiveX控件的方法和事件来体现的。Shock wave flash ActiveX控件的事件OnFlashCall对应Action Script 3.0中类ExternalInterface的call方法，Shock wave flash ActiveX控件的方法CallFunction将调用通过Action Script 3.0中类ExternalInterface的addCallback注册的函数。Shock wave flash ActiveX控件的事件OnFlashCall函数的定义如下:

procedure  OnFlashCall(Sender:TObject;request:WideString);

这个事件处理函数的request参数是个XML格式的字符串。

Shock wave flash ActiveX控件的方法CallFunction的定义如下:

function  CallFunction(request:WideString):WideString;

这个函数的参数request和返回值都是XML格式的字符串。Action Script 3.0如何构造XML字符串请参照Flash CS 3.0的帮助文档中的”外部API的XML格式”。

3.Delphi中实现解析和封装函数和数据XML的类

本节将提供Delphi实现的类TXMLParse，该类能够解析Shock wave flash ActiveX控件的事件OnFlashCall函数的request参数，也能够将函数以及参数封装成Flash能够理解的XML格式的字符串。TXMLParase通过有参数的构造函数来解析XML字符串，通过类函数EncodeData封装数据或函数调用。EncodeData函数通过多态实现了封装不同数据类型和封装函数调用的功能。类TXMLParase的定义如下：

TParamType = (PTNone, PTNumber, PTBoolean, PTString);

  TXMLParase = class

  private

    FXML : IXMLDocument; 

    FArgments : IXMLNode; //参数节点

    function GetParamCount : integer;

    function GetParamType(i : integer) : TParamType;

  public

    constructor Create(xml : WideString); overload;

    destructor Destroy; override;   

    function GetNumber(i : integer) : real;

    function GetString(i : integer) : String;

    function GetBoolean(i : integer) : Boolean;

    function GetFuncName : String;

    class function EncodeData(Data:integer):WideString; overload;

    class function EncodeData(Data:real):WideString; overload;

    class function EncodeData(Data:String):WideString; overload;

    class function EncodeData(Data:boolean):WideString; overload;

    class function EncodeData(args:array of const):Widestring; overload;

    class function EncodeData(Func:String;args:array of const) : WideString; overload;    

    property Count : integer read GetParamCount;

    property ParamType[i : integer] : TParamType read GetParamType;

  end;

通过类TXMLParase的构造函数就可以实现对Shock wave flash ActiveX控件的OnFlashCall的request参数完成解析，通过方法GetFuncName获取Flash调用的函数名，属性Count获取函数的参数个数，属性ParamType[i]获取第i个参数的类型，通过GetNumber、GetString、GetBoolean三个函数分别获取数字型、字符串型和Boolean型的参数值。类TXMLParase定义了类函数EncodeData，EncodeData是运用面向对象的多态性原理，设计了针对integer、real、String和Boolean等元数据类型的XML封装，通过定义函数

function EncodeData(Func:String;args:array of const):WideString;

可以直接通过EncodeData函数对Flash的函数调用进行XML格式封装。

 

4.运用TXMLParase类实现Delphi与Flash之间的交互

本节在Delphi 2007环境下运用Shock wave flash ActiveX控件和Delphi类TXMLParase来实现数字抽奖。

首先在Flash CS 3.0中新建一个基于Action Script 3.0的Flash文档，在文档的第一帧中添加一个动态文本，并给动态文本命名为”mytest”，在第一帧中添加动作源码：

function Run(flag:Boolean):void

{

if (flag)

   addEventListener(Event.ENTER_FRAME, onEnterFrame);

else

 removeEventListener(Event.ENTER_FRAME,onEnterFrame);

}

ExternalInterface.addCallback(”Running”, Run);

function onEnterFrame(event:Event):void

{

   mytest.text = ExternalInterface.call(”GetText”, 100);

}

其中函数”Run”是具有一个Boolean型形参flag的函数，当flag的值为true时，就通过”addEventListener”函数添加帧事件函数”onEnterFrame”；当flag为false时，通过”removeEventListener”函数去掉帧事件函数。在帧事件函数中，通过类”ExternalInterface”的”call”函数调用外部API函数”GetText”给动态文本”mytest”的”text”属性赋值，其中参数100表示从0到100中随机抽取一个数字。

下面的代码是用Delphi 2007编写的如何用Shock wave flash ActiveX控件让flash调用”Run”开始抽奖和结束抽奖，如何随机抽取0到100之间的数字。

procedure TForm1.Button1Click(Sender : TObject);

var

  S : WideString;

begin

   S := TXMLParase.EncodeData(’Running’,[true]);

   Shockwaveflash1.CallFunction(S);

end;

procedure TForm1.Button2Click(Sender : TObject);

var

  S : WideString;

begin

  S := TXMLParase.EncodeData(’Running’, [false]);

  Shockwaveflash1.CallFunction(S);

end;

procedure TForm1.Shockwaveflash1FlashCall(Sender :TObject;

const request :WideString);

var

  XML : TXMLParase;

begin

  try

XML := TXMLParase.Create(request);

if (XML.GetFuncName = ’GetText’) then

begin

  Shockwaveflash1.SetReturnValue(TXMLParase.

EncodeData(Random(Floor(XML.GetNumber(0)))));

end;

  finally

FreeAndNil(XML);

  End;

end;

上面的代码中，事件函数Button1Click和Button2Click通过Shockwaveflash1.CallFunction调用flash中的Run函数，在TShockwaveFlash控件的”OnFlashCall”事件中通过类TXMLParase的实例来解析字符串参数”request”，通过方法GetFuncName函数和GetNumber、GetString、GetBoolean函数获取flash中通过ExternalInterface.call的函数名和数字、字符串、布尔参数。通过TShockwaveflash控件的一个方法”SetReturnValue”设置ExternalInterface.call的返回值。