向Flash传递数组 ( 积分: 100 )

在程序中使用ShockwaveFlash，向Flash中传递变量用 ShockwaveFlash1.SetVariable成功。
可是向Flash中传入数组却失败，不知正确的方法。下面是测试源码：
Flash源码：
_root下有一动态本，名：Edit1
在_root第一帧的代码：
MyAry = new Array();
_root.onEnterFrame = function() {
_root.Edit1.Text = MyAry[0]+MyAry[1];
};


Delphi中的源码：
procedure TForm1.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.LoadMovie(0,'C:/Documents and Settings/5678go/桌面/a.swf');
ShockwaveFlash1.Play;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with ShockwaveFlash1 do
begin
ShockwaveFlash1.SetVariable('MyAry[0]','0');
ShockwaveFlash1.SetVariable('MyAry[1]','1');
end;
end;​

在程序中使用ShockwaveFlash，向Flash中传递变量用 ShockwaveFlash1.SetVariable成功。
可是向Flash中传入数组却失败，不知正确的方法。下面是测试源码：
Flash源码：
_root下有一动态本，名：Edit1
在_root第一帧的代码：
MyAry = new Array();
_root.onEnterFrame = function() {
_root.Edit1.Text = MyAry[0]+MyAry[1];
};


Delphi中的源码：
procedure TForm1.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.LoadMovie(0,'C:/Documents and Settings/5678go/桌面/a.swf');
ShockwaveFlash1.Play;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with ShockwaveFlash1 do
begin
ShockwaveFlash1.SetVariable('MyAry[0]','0');
ShockwaveFlash1.SetVariable('MyAry[1]','1');
end;
end;​