!!!怎样写个在线播放音乐的程序,请高手看下!!!

le_yuan 2004-09-17 03:28:37
我想让网页动起来,于是突发奇想,歌的目录是D;/music/独角戏.wnp,我的机子上什么放歌的软件都有,REALONE,WINAMP,media player,谁能写段程序给我在线听歌呀,好期待呀
...全文
113 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
lry1983 2004-09-18
  • 打赏
  • 举报
回复
我也要.jsplee@126.com
谢谢!~
sjtsh 2004-09-18
  • 打赏
  • 举报
回复
zdltsh@hotmail.com
别忘了给我发一份
谢谢!!!
hourger 2004-09-18
  • 打赏
  • 举报
回复
还有我!
hourger@hotmail.com
zbulrush 2004-09-18
  • 打赏
  • 举报
回复
也发个给我吧
sying_lw@hotmail.com
cocohui 2004-09-18
  • 打赏
  • 举报
回复
发个JAVABEAN 给我吧。。你这么牛! amjiahe(黄雀)

cocohui2002@163.com
amjiahe 2004-09-18
  • 打赏
  • 举报
回复
我有这个的javabean,我发个到你的hotmail吧
zbulrush 2004-09-17
  • 打赏
  • 举报
回复
你可以在网页上插入一个多媒体,打开你的歌
下面提供几中方法:

<OBJECT class=OBJECT id=MediaPlayer height=50 width=150 align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95><PARAM NAME="AudioStream" VALUE="-1"><PARAM NAME="AutoSize" VALUE="0"><PARAM NAME="AutoStart" VALUE="0"><PARAM NAME="AnimationAtStart" VALUE="-1"><PARAM NAME="AllowScan" VALUE="-1"><PARAM NAME="AllowChangeDisplaySize" VALUE="-1"><PARAM NAME="AutoRewind" VALUE="0"><PARAM NAME="Balance" VALUE="0"><PARAM NAME="BaseURL" VALUE=""><PARAM NAME="BufferingTime" VALUE="5"><PARAM NAME="CaptioningID" VALUE=""><PARAM NAME="ClickToPlay" VALUE="-1"><PARAM NAME="CursorType" VALUE="0"><PARAM NAME="CurrentPosition" VALUE="-1"><PARAM NAME="CurrentMarker" VALUE="0"><PARAM NAME="DefaultFrame" VALUE=""><PARAM NAME="DisplayBackColor" VALUE="0"><PARAM NAME="DisplayForeColor" VALUE="16777215"><PARAM NAME="DisplayMode" VALUE="0"><PARAM NAME="DisplaySize" VALUE="4"><PARAM NAME="Enabled" VALUE="-1"><PARAM NAME="EnableContextMenu" VALUE="-1"><PARAM NAME="EnablePositionControls" VALUE="-1"><PARAM NAME="EnableFullScreenControls" VALUE="0"><PARAM NAME="EnableTracker" VALUE="-1">

<PARAM NAME="Filename" VALUE="http://www.cec.zju.edu.cn/goodknight/show/music/loveagain.mp3">
//换成你的歌地址
<PARAM NAME="InvokeURLs" VALUE="-1"><PARAM NAME="Language" VALUE="-1"><PARAM NAME="Mute" VALUE="0"><PARAM NAME="PlayCount" VALUE="1"><PARAM NAME="PreviewMode" VALUE="0"><PARAM NAME="Rate" VALUE="1"><PARAM NAME="SAMILang" VALUE=""><PARAM NAME="SAMIStyle" VALUE=""><PARAM NAME="SAMIFileName" VALUE=""><PARAM NAME="SelectionStart" VALUE="-1"><PARAM NAME="SelectionEnd" VALUE="-1"><PARAM NAME="SendOpenStateChangeEvents" VALUE="-1"><PARAM NAME="SendWarningEvents" VALUE="-1"><PARAM NAME="SendErrorEvents" VALUE="-1"><PARAM NAME="SendKeyboardEvents" VALUE="0"><PARAM NAME="SendMouseClickEvents" VALUE="0"><PARAM NAME="SendMouseMoveEvents" VALUE="0"><PARAM NAME="SendPlayStateChangeEvents" VALUE="-1"><PARAM NAME="ShowCaptioning" VALUE="0"><PARAM NAME="ShowControls" VALUE="-1"><PARAM NAME="ShowAudioControls" VALUE="-1"><PARAM NAME="ShowDisplay" VALUE="0"><PARAM NAME="ShowGotoBar" VALUE="0"><PARAM NAME="ShowPositionControls" VALUE="-1"><PARAM NAME="ShowStatusBar" VALUE="-1"><PARAM NAME="ShowTracker" VALUE="-1"><PARAM NAME="TransparentAtStart" VALUE="0"><PARAM NAME="VideoBorderWidth" VALUE="0"><PARAM NAME="VideoBorderColor" VALUE="0"><PARAM NAME="VideoBorder3D" VALUE="0"><PARAM NAME="Volume" VALUE="-600"><PARAM NAME="WindowlessVideo" VALUE="0">
<embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src='http://www.cec.zju.edu.cn/goodknight/show/music/love.mp3' width=150 height=50></embed></OBJECT>


3、再点击Toggle Mode切换回来,就可以看到效果。

rm、flash等文件同理,只是代码不同罢了,具体代码如下:

rm文件:

<object classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA height=145 width=193 id=RP1>
<param name="controls" value="ImageWindow">
<param name="console" value="Clip1">
<param name="autostart" value="false">
<param name="src" value="http://goodknight.blogbus.com/goodknight.rm">
<param name="nologo" value="false">
<param name="NOLABELS" value="true">
<param name="RESET" value="FALSE">
<param name="OPEN" value="FALSE">
<param name="END" value="TRUE">
</object>

flash文件:

<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=3,0,0,0" ID=t003 WIDTH=300 HEIGHT=200>
<PARAM NAME="PLAY" VALUE="false">
<PARAM NAME="LOOP" VALUE="false">
<PARAM NAME="QUALITY" VALUE="high">
<PARAM NAME="BGCOLOR" VALUE="#FFFFFF">
<EMBED SRC="http://goodknight.blogbus.com/goodknight.swf" WIDTH="300" HEIGHT="200" PLAY="false" LOOP="false" QUALITY="high" BGCOLOR="#FFFFFF" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?   
P1_Prod_Version=ShockwaveFlash"> 
</EMBED>
</OBJECT>

wma文件:

<OBJECT classid="CLSID:05589FA1-C356-11CE-BF01-00AA0055595A">
<PARAM NAME="Appearance" VALUE="0">
<PARAM NAME="AutoStart" VALUE="0">
<PARAM NAME="src" VALUE="http://goodknight.blogbus.com/goodknight.wma">
<PARAM NAME="Volume" VALUE="0">
</OBJECT>

wmv文件:

<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=500 height=350 >
<param name=ShowStatusBar value=-1>
<param name=Filename value=http://aaa.wmv>
<embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=http://goodknight.blogbus.com/goodknight.wmv width=500 height=350></embed>
</object>
        破天惊工作室delphi源代码          自制安装程序           2/5/2004            作者:破天惊 开发环境:     Delphi7+WinXP 说明:  一个用delphi写的安装程序.  经常在网上看到一些网友询问用什么工具来作安装程序,或是某某安装程序的用法.想了一下,其实也很好作.  主要原理是把要安装的文件作成资源文件,安装时再把资源文件从程序是释放出来.如果对资源文件不熟的话,制作的rc文件附在其中,可以看一下.由于时间的关系,所以在背景音乐播放方面有一点遗憾,只把代码加上了,但是没有加入资源文件,所以如果有兴趣的话,你可以加入一份wav播放看一下.  此外还加入了版本检测的功能,主要是利用注册表,在安装时要先读取注册表,如果发现以前安装过本软件则读取其路径,为本次安装提供方便,如果发现已安装的版本高于些版本则出现提示(由自己来定).  安装一般的程序时,这样的实例已经够了,但是大家知道,如果用到数据库的话,那么一定要带上引擎的,但是这个实例中没有涉及到,有时间的话,我会再写一个出来的.  自己作的安装程序最大的一个好处就是界面可以由自己来定义,但是没办法,我的美工有点差,所以没有什么特别之处,如果有同志能作出好的界面或是有建设性的意见,欢迎联系.  最后要作一点重要的说明,关于那个"神奇的demo"--那不是我作的.可能是九九年(也可能不准确)<<电脑爱好者>>上有一大篇关于它的文章,demo是由几个国外的多媒体高手合作完成的,最后经过了超超超高度的压缩,在不到六十四K的文件里装下了几分钟的仿3D动画,另外还有精美的音效.可以说这是一个奇迹.前不久才不小心从网上下载了下来,和大家分享. 涉及到的知识: 1.注册表的使用; 2.资源文件的制作,使用; 3.多线程中api播放wav; 4.快捷方式; 包含文件:  声明:  本代码,属免费源代码.可用于任何形式的传播.在传播过程中如果有必要,你完全可以不理会本代码的完整性.  破天惊工作室,欢迎交流: E-Mail:Tresss@sohu.com

81,092

社区成员

发帖
与我相关
我的任务
社区描述
Java Web 开发
社区管理员
  • Web 开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧