delphi与FLASH通信

原文地址：http://jstzjjk.blog.163.com/blog/static/21589924720135148598257/

导入Flash控件，控件位于(system32 or sysWow64)\Macromed\Flash下，是一个ocx控件

一、FLASH发消息给DELPHI

    例如在按钮中执行fscommand命令，发出信息；  delphi中有Onfscommand事件，可以接收

二、DELPHI给Flash发消息

    Flash1.SetVarial

   Flash1.GetVarial

  Flash1.CallFunction
flash端，必须添加一个外部接口，才能在DELPHI中用CallFunction调用
①添加一个文本框text_txt以显示效果
②ActionScript代码为
function show(str1:String,str2:String):Void{
      test_txt.text=str1+" : "+str2;
}
flash.external.ExternalInterface.addCallback("show",this,show);//添加一个外部接口

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;