导入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;