Flash与JavaScript信息交互

　2006-11-29 19:14:48　来源：WEB开发网　　　

核心提示：网上提供的这方面资料太少了，研究一两天，Flash与JavaScript信息交互，做了个例子，大家可以参考！<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb23

网上提供的这方面资料太少了，研究一两天，做了个例子，大家可以参考！

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Flash与3D信息交互</title>
<style type="text/CSS">

</style>
</head>
<body >
<p>
　　　 
　　　 <object ID="TEInformationWindow" classid="CLSID:3a4f9193-65a8-11d5-85c1-0001023952c1" width="300" height="400"></object>
　　　 
　　　 <object ID="TE3DWindow" classid="CLSID:3a4f9192-65a8-11d5-85c1-0001023952c1" width=650 height="400"></object>
　　　 
　　　 <object ID="TE" CLASSId="CLSID:3a4f9191-65a8-11d5-85c1-0001023952c1"></object>
</p>

<table width="937" border="1" align="left">
<tr>
　 <td width="369" align="center">
　　　 <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="300" height="150" id="Flash1" align="middle">
　　　　　 <param name="allowScriptaccess" value="sameDomain" />
　　　　　 <param name="movie" value="http://www.cncms.com/f2.swf" />
　　　　　 <param name="quality" value="high" />
　　　　　 <param name="bgcolor" value="#ffffff" />
　　　　　 <embed src="http://www.cncms.com/f2.swf" quality="high" bgcolor="#ffffff" width="300" height="150" name="Flash1" swLiveConnect="true" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
　　　 </object>
　 </td>

　 <td width="282" align="center">
　　　 <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="300" height="150" id="myFlash" align="middle">
　　　　　 <param name="allowScriptAccess" value="sameDomain" />
　　　　　 <param name="movie" value="http://www.cncms.com/f4.swf" />
　　　　　 <param name="quality" value="high" />
　　　　　 <param name="bgcolor" value="#ccffff" />
　　　　　 <embed src="http://www.cncms.com/f4.swf" quality="high" bgcolor="#ccffff" width="300" height="150" name="myFlash" swLiveConnect="true" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
　　　 </object>
　 </td>
　 <td width="264" colspan="2" align="left">
　　　 <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" id="btn1" width="100" height="50" align="middle">
　　　　　 <param name="allowScriptAccess" value="sameDomain" />
　　　　　 <param name="movie" value="http://www.cncms.com/btn1.swf" />
　　　　　 <param name="quality" value="high" />
　　　　　 <param name="bgcolor" value="#ffffff" />
　　　　　 <embed src="http://www.cncms.com/btn1.swf" quality="high" bgcolor="#ffffff" width="100" height="50" swLiveConnect=true id="btn1" name="btn1" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />
　　　 </object>
</td>
</tr>
<tr>
<td width="369" height="200" align="center">
</td></tr>
</table>
</html>
<script language="javaScript">
　
　 var ITerraExplorer = null;
　 var IPlane = null;
　 var IMenu = null;
　 var IObjectManager = null;
　 var IRender=null;
　 var ZoomMode = 0;
　 var zoom_array = new Array();
　 //浏览器设置
　 var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;
　
//初始化
function Init()
{
　 var temp;
　 ITerraExplorer = TE.interface("ITerraExplorer5");
　 IPlane = TE.interface("IPlane5");
　 IInformationTree = TE.interface("IInformationTree5");
　 IMenu = TE.interface("IMenu");
　 IObjectManager = TE.interface("IObjectManager5");
　 ITerraExplorer.Load("2.fly");
　 IRender=TE.interface("IRender5");
}
//飞到某个地方--------------------------------------------------------------------------------------------------
// 处理 Flash 影片中的所有 FSCommand 消息
function myFlash_DoFSCommand(args1,args2)　
{
　 var myFlashObj = InternetExplorer ? myFlash : document.myFlash;
　 var tX0,tZ0;
　 tX0 =args1;
　 tZ0 =args2;
　 FlyToWhere(tX0,tZ0);
}
// Internet Explorer 的挂钩
if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 &&
　 navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1)
{
　 document.write('<SCRIPT LANGUAGE=VBScript\> \n');
　 document.write('on error resume next \n');
　 document.write('Sub myFlash_FSCommand(ByVal command, ByVal args)\n');
　 document.write(' call myFlash_DoFSCommand(command, args)\n');
　 document.write('end sub\n');
　 document.write('</SCRIPT\> \n');
}

function FlyToWhere(tX0,tZ0)
{
　 //创建文本对象
　 var LabelInfo = new Object();
　 LabelInfo.Text = "经度　 :　 "+tX0+"　纬度　 :　 "+tZ0;
　 LabelInfo.Scale = 1;
　 LabelInfo.BgColor = 236;

　 IObjectManager.CreateLabel (LabelInfo, tX0, tZ0, 2000.0 );
　 IPlane.FlyTo (tX0,tZ0,2000.0,117.98,0, -35,"Oval" );
}
//飞到某地------------------------------------------------------------------------------------------------------
function btn1_DoFSCommand(command, args) {
　 var btn1Obj = InternetExplorer ? document.all.btn1 : document.btn1;
　 var tX0;
　 tX0 =args;
　 klmy();
}
// Internet Explorer 的挂钩
if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1 && navigator.userAgent.indexOf("Windows") != -1 && navigator.userAgent.indexOf("Windows 3.1") == -1)
{
　 document.write('<script language=\"VBScript\"\>\n');
　 document.write('On Error Resume Next\n');
　 document.write('Sub btn1_FSCommand(ByVal command, ByVal args)\n');
　 document.write('　 Call btn1_DoFSCommand(command, args)\n');
　 document.write('End Sub\n');
　 document.write('</script\>\n');
}

function klmy()
{
　 //创建文本对象
　 var LabelInfo = new Object();
　 LabelInfo.Text = "中国 "
　 LabelInfo.Scale = 1;
　 LabelInfo.BgColor = 236;

　 IObjectManager.CreateLabel (LabelInfo, 87, 45, 2000.0 );
　 IPlane.FlyTo (87,45,2000.0,117.98,0, -35,"Oval" );
}
//-------------------------------------------------------------------------------------------------------------------

</script>

http://www.cnblogs.com/support/archive/2006/11/28/575473.html