28,391
社区成员
发帖
与我相关
我的任务
分享誓、100分明晚结帐；望、高手助人为乐。
我现在正在做一个RealPlayer的音频点播系统，遇到了
一点问题，请高手指点：
原因是客户端如果没有安装RealPlayer，就没有试听歌
曲时所用到的RealAudio组件。
我想在页面中加入一些代码，用来检测客户端是否安装
了RealPlayer，或者说是否安装注册了RealAudio组件，
如果没有，我就把服务器上的组件下载到客户端并注册
一下，以达到成功运行页面的目的。
不知道我说清楚了没有，您明白吗？
注：就好像北京线线通的可乐吧网站www.kele8.com，
当您第一次进入此站，总要自动安装一个插件。
一点问题，请高手指点：
原因是客户端如果没有安装RealPlayer，就没有试听歌
曲时所用到的RealAudio组件。
我想在页面中加入一些代码，用来检测客户端是否安装
了RealPlayer，或者说是否安装注册了RealAudio组件，
如果没有，我就把服务器上的组件下载到客户端并注册
一下，以达到成功运行页面的目的。
不知道我说清楚了没有，您明白吗？
注：就好像北京线线通的可乐吧网站www.kele8.com，
当您第一次进入此站，总要自动安装一个插件。
...全文
请发表友善的回复…
发表回复
arclala 2002-11-10
- 打赏
- 举报
检测用户是否安装RealPlayer播放器
在页面的<head></head>部分加入以下JavaScript代码，用以检测用户是否安装RealPlayer播放器：
<SCRIPT LANGUAGE=JavaScript>
<!--
var RealMode=0;
var RealPlayer5=0;
var RealPlayer4=0;
var RealPlayerG2=0;
if (navigator.userAgent.indexOf("MSIE")< 0 ){
numPlugins = navigator.plugins.length;
for (i = 0; i < numPlugins; i++){
plugin = navigator.plugins[i];
if (plugin.name.substring(0,10)=="RealPlayer"){
RealMode=1;
}
}
}
// 以下代码通过VBScript的CreateObject()函数动态的创建RealPlayer对象
document.write('<SCRIPT LANGUAGE=VBScript\> \n');
document.write('on error resume next \n');
document.write('RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n');
document.write('RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))\n');
document.write('RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))\n');
document.write('</SCRIPT\> \n');
if ( RealPlayerG2 || RealPlayer5 || RealPlayer4 ){
//可以在此处添加<object>对象
}else if ( RealMode ){ // NetScape浏览器用户
// 可以在此处加入<embed>对象
}else{
window.location.replace("install.htm"); // 转入install.htm页面指导用户进行安装
}
-->
</Script>
在页面的<head></head>部分加入以下JavaScript代码，用以检测用户是否安装RealPlayer播放器：
<SCRIPT LANGUAGE=JavaScript>
<!--
var RealMode=0;
var RealPlayer5=0;
var RealPlayer4=0;
var RealPlayerG2=0;
if (navigator.userAgent.indexOf("MSIE")< 0 ){
numPlugins = navigator.plugins.length;
for (i = 0; i < numPlugins; i++){
plugin = navigator.plugins[i];
if (plugin.name.substring(0,10)=="RealPlayer"){
RealMode=1;
}
}
}
// 以下代码通过VBScript的CreateObject()函数动态的创建RealPlayer对象
document.write('<SCRIPT LANGUAGE=VBScript\> \n');
document.write('on error resume next \n');
document.write('RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n');
document.write('RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)")))\n');
document.write('RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)")))\n');
document.write('</SCRIPT\> \n');
if ( RealPlayerG2 || RealPlayer5 || RealPlayer4 ){
//可以在此处添加<object>对象
}else if ( RealMode ){ // NetScape浏览器用户
// 可以在此处加入<embed>对象
}else{
window.location.replace("install.htm"); // 转入install.htm页面指导用户进行安装
}
-->
</Script>
