超华丽视觉 频谱！音频增强模块 Bass For RMXP!支持音频ogg wma!

kula1900

下了 没一个顶的 ！ 我晕

1. 
   
2. #==============================================================================
   
3. # ■ Graphics
   
4. #------------------------------------------------------------------------------
   
5. # 　 重新定义Graphics 防止当机! 重要!
   
6. #==============================================================================
   
7. class << Graphics
   
8.   alias main_update update
   
9.   def update
   
10.     main_update
    
11.     $game_bass.update
    
12.   end
    
13. end
    
14. #==============================================================================
    
15. # ■ Bass
    
16. #    强大的流媒体播放 Lib For Win32 封装成RGSS脚本！会的人 或许很多吧！献丑了!
    
17. #    支持格式 WMA MP3 OGG 等...加上 Bass_DShow 可以播放视频文件
    
18. #    加上 ffdshow插件 可以播放 现在大部分主流视频!
    
19. #    Bass_DShow.dll   基于 DirectShow 开发!好了废话就说那么多吧!
    
20. #------------------------------------------------------------------------------
    
21. # 　 处理流媒体的类 其实处理这个类 应该加入线程中 这样是最好的!
    
22. #    转载时 请保留  此 ＆ 以下 信息!谢谢！
    
23. #    由于时间关系 本人不得不 离开 RMXP 几天  只能发个这个尝鲜版了!
    
24. #    最后祝大家身体健康 万事如意
    
25. #    ------------------------------------- My嬡凊丶莈孒汸姠♀誰帶蕗
    
26. #　　ＱＱ：３７００５２０７８
    
27. #    哪逺咕畱芐哋傷畩舊彯蕶!
    
28. #    落埖巳莋猦湔橆,蓅渁畩舊呮崬厾!
    
29. #    ①咟姩後哋'落葭'仍嘫浍洧洮埖嬤?
    
30. #==============================================================================
    
31. class Game_Bass
    
32.   attr_accessor :stream
    
33.   attr_accessor :fft_p  
    
34.   attr_accessor :title
    
35.   attr_accessor :singer
    
36.   #  定义常量
    
37.   BASS_DATA_FFT256    = 2147483648
    
38.   BASS_DATA_FFT512    = 2147483649
    
39.   BASS_DATA_FFT1024   = 2147483650
    
40.   BASS_DATA_FFT2048   = 2147483651
    
41.   BASS_DATA_FFT4096   = 2147483652
    
42.   BASS_DATA_FFT8192   = 2147483653
    
43.   #--------------------------------------------------------------------------
    
44.   # ● 初始化
    
45.   #--------------------------------------------------------------------------
    
46.   def initialize
    
47.     $peacks = []
    
48.     @title=""
    
49.     @singer=""
    
50.     @pluginid=0
    
51.     @stream = 0
    
52.     @fft_data = []
    
53.     for i in 0...255
    
54.       @fft_data[i] = 0
    
55.     end
    
56.     @fft_p = @fft_data.pack("d255")
    
57.     init = Win32API.new("bass.dll","BASS_Init",'iiiii','i')
    
58.     # 设备号 采样率 标志 窗口句柄 为0 则 当前句柄
    
59.     init.call(-1,44100,0,0,0)
    
60.   end
    
61.   #--------------------------------------------------------------------------
    
62.   # ● 更新
    
63.   #--------------------------------------------------------------------------
    
64.   def update
    
65.     updateapi = Win32API.new("bass.dll","BASS_Update",'i','i')
    
66.     updateapi.call(15000)    # 15000毫秒挂入 Graphics 足够了! 这句只能加毫秒
    
67.   end
    
68.   #--------------------------------------------------------------------------
    
69.   # ● 加载插件Decoder
    
70.   #--------------------------------------------------------------------------
    
71.   def loadplugin(pluginfile="")
    
72.     plugin = Win32API.new("bass.dll","BASS_PluginLoad",'pi','i')
    
73.     plugin.call(pluginfile,@pluginid)
    
74.     @pluginid=@pluginid+1
    
75.   end
    
76.   #--------------------------------------------------------------------------
    
77.   # ● 自动加载插件 枚举 \Decoder 文件下所有插件 进行 load
    
78.   #--------------------------------------------------------------------------
    
79.   def autoloadplugin
    
80.     plugin =  Win32API.new("AuxiliaryLib.dll","LoadDecoder",'v','v')
    
81.     plugin.call()
    
82.   end
    
83.   #--------------------------------------------------------------------------
    
84.   # ● 打开文件 文件名 UTF-8 转 ANSI
    
85.   #--------------------------------------------------------------------------
    
86.   def openfile(filename)
    
87.     if @stream != 0 and @stream !=-1
    
88.       free=Win32API.new("bass.dll","BASS_StreamFree",'i','i')
    
89.       free.call(@stream)
    
90.     end
    
91.     open = Win32API.new("bass.dll","BASS_StreamCreateFile",'ipiii','i')
    
92.     play = Win32API.new("bass.dll","BASS_ChannelPlay",'ii','i')
    
93.     getinfo =  Win32API.new("AuxiliaryLib.dll","GetTitle","p","p")
    
94.     @title= getinfo.call(filename)
    
95.     getinfo =  Win32API.new("AuxiliaryLib.dll","GetSinger","p","p")
    
96.     @singer=getinfo.call(filename)
    
97.     play.call(@stream = open.call(0,filename.to_ansi,0,0,0),0)
    
98.     setvol(60)
    
99.     return @stream
    
100.   end
     
101.   #--------------------------------------------------------------------------
     
102.   # ● 获取文件流长度 秒模式
     
103.   #--------------------------------------------------------------------------
     
104.   def getlength
     
105.     getlengthpos = Win32API.new("AuxiliaryLib.dll","GetLength",'i','i')
     
106.     return getlengthpos.call(@stream)
     
107.   end
     
108.   #--------------------------------------------------------------------------
     
109.   # ● 获取当前位置
     
110.   #--------------------------------------------------------------------------
     
111.   def getpos
     
112.     pos = Win32API.new("AuxiliaryLib.dll","GetPos",'i','i')
     
113.     return pos.call(@stream)
     
114.   end
     
115.   #--------------------------------------------------------------------------
     
116.   # ● 获取流FFT - 频谱 功能
     
117.   #--------------------------------------------------------------------------
     
118.   # 以下纯 苦力呀 多亏了 林格斯翻译 咯 (*^__^*) 嘻嘻…… 翻译好像不咋滴
     
119.   # ~~o(>_<)o ~~ 英语学得不好就是 吃亏
     
120.   def getfftdata(fftval=256)
     
121. #     BASS_DATA_FFT256 256 样本的FFT（256返回浮点值） 下面不翻译了 能看懂了
     
122. #     BASS_DATA_FFT512 512 sample FFT (returns 512 floating-point values)  
     
123. #     BASS_DATA_FFT1024 1024 sample FFT (returns 1024 floating-point values)  
     
124. #     BASS_DATA_FFT2048 2048 sample FFT (returns 2048 floating-point values)  
     
125. #     BASS_DATA_FFT4096 4096 sample FFT (returns 4096 floating-point values)
     
126. #     BASS_DATA_FFT8192 8192 sample FFT (returns 8192 floating-point values)
     
127. #     BASS_DATA_FFT_INDIVIDUAL 执行FFT的每个通道单独的，
     
128. #                              而不是一个单一的联合的FFT。
     
129. #                              返回的数据大小（如上述）乘以通道数。
     
130. #     BASS_DATA_FFT_NOWINDOW 防止翰窗口被应用到的样本数据时执行的FFT。
     
131. #     BASS_DATA_FFT_REMOVEDC 从样本中删除任何数据时进行直流偏置的FFT。
     
132. #     BASS_DATA_AVAILABLE 查询的数据量的通道缓冲播放，或从录音。
     
133. #                         这标志不能用于解码频道，他们没有播放缓冲区。
     
134. #                         缓冲区被忽略时，使用此标志。
     
135. #     以上是数据说明部分--------------------------------------------------------
     
136. #     不管它 演示中我只取了 256 个值 而且 只用几个!图方便...因为 我手已经酸了...
     
137. #                                   %>_<%
     
138. #     ruby pack 这里参数特殊 所以 使用pack吧
     
139. #     [1.0].pack("d") => "\000\000\000\000\000\000\360?"
     
140. #     sparc (IEEE754 双精度 大Endian):
     
141. #
     
142. #     [1.0].pack("d") => "?\360\000\000\000\000\000\000"
     
143.     if fftval=256
     
144.       fftval = BASS_DATA_FFT256
     
145.     elsif fftval=512
     
146.       fftval = BASS_DATA_FFT512
     
147.     elsif fftval=1024 # 眼睛开始花了!
     
148.       fftval = BASS_DATA_FFT1024
     
149.     elsif fftval=2048
     
150.       fftval = BASS_DATA_FFT2048
     
151.     elsif fftval=4096
     
152.       fftval = BASS_DATA_FFT4096
     
153.     elsif fftval=8192
     
154.       fftval = BASS_DATA_FFT8192
     
155.     else
     
156.       return nil
     
157.     end
     
158.     fft = Win32API.new("bass.dll","BASS_ChannelGetData",'ipi','i')
     
159.     fft.call(@stream,@fft_p,fftval)
     
160.     return @fft_p
     
161.   end
     
162.   #--------------------------------------------------------------------------
     
163.   # ● 解开包
     
164.   #--------------------------------------------------------------------------
     
165.   def getpack(no=4)
     
166.     return getfftdata.unpack("d"+no.to_s)
     
167.   end
     
168.   #--------------------------------------------------------------------------
     
169.   # ● 暂停播放
     
170.   #--------------------------------------------------------------------------
     
171.   def pause
     
172.     act=Win32API.new("bass.dll","BASS_ChannelPause",'i','i')
     
173.     act.call(@stream)
     
174.   end
     
175.   #--------------------------------------------------------------------------
     
176.   # ● 恢复播放
     
177.   #--------------------------------------------------------------------------
     
178.   def recovery
     
179.     play = Win32API.new("bass.dll","BASS_ChannelPlay",'ii','i')
     
180.     play.call(@stream,0)
     
181.   end
     
182.   #--------------------------------------------------------------------------
     
183.   # ● 停止播放
     
184.   #--------------------------------------------------------------------------
     
185.   def stop
     
186.     stop = Win32API.new("bass.dll","BASS_ChannelStop",'i','i')
     
187.     stop.call(@stream)
     
188.   end
     
189.   #--------------------------------------------------------------------------
     
190.   # ● 取播放状态
     
191.   #--------------------------------------------------------------------------
     
192.   def getstatus
     
193.     active = Win32API.new("bass.dll","BASS_ChannelIsActive",'i','i')
     
194.     return active.call(@stream)
     
195.   end
     
196.   #--------------------------------------------------------------------------
     
197.   # ● 取播放状态文本
     
198.   #--------------------------------------------------------------------------
     
199.   def getstatusstr
     
200.     active = Win32API.new("bass.dll","BASS_ChannelIsActive",'i','i')
     
201.     string = "未知状态"
     
202.     case active.call(@stream)
     
203.     when 0
     
204.       string ="停止播放"
     
205.     when 1
     
206.       string ="正在播放"
     
207.     when 2
     
208.       string ="等待播放"
     
209.     when 3
     
210.       string ="暂停播放"
     
211.     end
     
212.     return string
     
213.   end
     
214.   #--------------------------------------------------------------------------
     
215.   # ● 前进后退
     
216.   #--------------------------------------------------------------------------
     
217.   def seek(pos=0)
     
218.     setpos = Win32API.new("AuxiliaryLib.dll","seek",'ii','v')
     
219.     setpos.call(@stream,pos)
     
220.   end
     
221.   #--------------------------------------------------------------------------
     
222.   # ● 置音量
     
223.   #--------------------------------------------------------------------------
     
224.   def setvol(vol=100)
     
225.     setvol = Win32API.new("AuxiliaryLib.dll","SetVol",'ii','v')
     
226.     setvol.call(@stream,vol)
     
227.   end
     
228.   #--------------------------------------------------------------------------
     
229.   # ● 取音量
     
230.   #--------------------------------------------------------------------------
     
231.   def getvol
     
232.     getvol = Win32API.new("AuxiliaryLib.dll","GetVol",'i','i')
     
233.     return getvol.call(@stream)
     
234.   end
     
235.   #--------------------------------------------------------------------------
     
236.   # ● 置播放位置
     
237.   #--------------------------------------------------------------------------
     
238.   def seek_to(pos = 0)
     
239.     to = Win32API.new("AuxiliaryLib.dll","To",'ii','v')
     
240.     getvol.call(@stream,to)
     
241.   end
     
242. end

复制代码

附件下 由于 Music 都是 流行歌曲 而且 3种格式 mp3 wma ogg 所以包 比较大!
版务...附件上不上...上千脑了 ...
下载地址:http://down.qiannao.com/space/fi ... /Project1.rar/.page

enghao_lim

嗯，是不难理解，不过我对音乐的概念是——不要太走音，沙就好了。所以耳朵直接听不出差别。不过这调用的api还真乱……(@@)

新手小白

24.#    ------------------------------------- My嬡凊丶莈孒汸姠♀誰帶蕗

25.#　　ＱＱ：３７００５２０７８

26.#    哪逺咕畱芐哋傷畩舊彯蕶!

27.#    落埖巳莋猦湔橆,蓅渁畩舊呮崬厾!

28.#    ①咟姩後哋'落葭'仍嘫浍洧洮埖嬤?

这是......
乱码啊

kula1900

回复 新手小白 的帖子

这个是注释 无关紧要的呀?

新手小白

虽然我又不会转载,但是
很好奇......
乱码的东西
主要是下一句
或许太多心了......

21.#    转载时 请保留  此 ＆ 以下 信息!谢谢！

22.#    由于时间关系 本人不得不 离开 RMXP 几天  只能发个这个尝鲜版了!

23.#    最后祝大家身体健康 万事如意

24.#    ------------------------------------- My嬡凊丶莈孒汸姠♀誰帶蕗

25.#　　ＱＱ：３７００５２０７８

26.#    哪逺咕畱芐哋傷畩舊彯蕶!

27.#    落埖巳莋猦湔橆,蓅渁畩舊呮崬厾!

28.#    ①咟姩後哋'落葭'仍嘫浍洧洮埖嬤?
啊,电脑现在只能访问很少一些网站
连Google都打不开......

补充:115也是
再补充:最可疑的是千脑我没有缓存,可是却有图标啊

kula1900

回复 新手小白 的帖子

路由器么？ 可能开的时间太长 重启下 清掉路由器的缓存吧!

kula1900

:) 有呀...你要？易语言的 要么？因为涉及 MeidaInfo.dll 所以...呵呵...
.版本 2
.支持库 krnlnex

.程序集 程序集1
.程序集变量 媒体信息, 媒体信息
.程序集变量 i, 整数型

.子程序 _启动子程序, 整数型, , 请在本子程序中放置动态链接库初始化代码

媒体信息.载入库 ()
返回 (0)  ' 返回值被忽略。

.子程序 _临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

.子程序 GetLength, 整数型, 公开
.参数 流, 整数型

返回 (BASS_ChannelBytes2Seconds (流, BASS_ChannelGetLength (流, 0)))

.子程序 GetPos, 整数型, 公开
.参数 流, 整数型

返回 (BASS_ChannelBytes2Seconds (流, BASS_ChannelGetPosition (流, 0)))

.子程序 GetHwnd, 整数型, 公开

返回 (FindWindow (“RGSS Player”, 读配置项 (取运行目录 () ＋ “\Game.ini”, “Game”, “Title”, “”)))

.子程序 GetTitle, 文本型, 公开
.参数 Path, 文本型
.局部变量 转路径, 文本型
.局部变量 歌手, 文本型
.局部变量 歌曲, 文本型

转路径 ＝ UTF8转ANSI (到字节集 (Path))
转路径 ＝ 转换路径 (转路径)
.如果真 (转路径 ≠ “不存在!”)
    歌曲 ＝ 媒体信息.获取指定信息 (转路径, “Inform”, “General;%Title%”)
    .如果真 (歌曲 ＝ “”)
        取信息 (转路径, 歌手, 歌曲)
    .如果真结束
    返回 (到文本 (ANSI转UTF8 (歌曲)))
.如果真结束
返回 (到文本 (ANSI转UTF8 (“文件不存在!”)))

.子程序 取信息
.参数 路径, 文本型
.参数 歌手, 文本型, 参考
.参数 歌曲, 文本型, 参考
.局部变量 ID3V1, MP3_ID3V1
.局部变量 转换类, 转换类

取信息II (路径, 歌手, 歌曲)
.如果真 (歌曲 ＝ “”)
    取信息III (路径, 歌曲)
.如果真结束
.如果真 (歌手 ＝ “”)
    取信息III (路径, , 歌手)
.如果真结束
.如果真 (歌曲 ＝ “”)
    歌曲 ＝ 转换类.路径取标题 (路径)
.如果真结束
.如果真 (歌手 ＝ “”)
    歌手 ＝ “未知”
.如果真结束
返回 ()

.子程序 转换路径, 文本型
.参数 路径, 文本型

.如果 (取反 (文件是否存在 (路径)) ＝ 真)
    返回 (取运行目录 () ＋ “\” ＋ 路径)
    .如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\” ＋ 路径)))
        返回 (“不存在!”)
    .如果真结束
    返回 (取运行目录 () ＋ “\” ＋ 路径)
.否则
    返回 (路径)
.如果结束


.子程序 GetSinger, 文本型, 公开
.参数 Path, 文本型
.局部变量 转路径, 文本型
.局部变量 歌手, 文本型
.局部变量 歌曲, 文本型

转路径 ＝ UTF8转ANSI (到字节集 (Path))
转路径 ＝ 转换路径 (转路径)
.如果真 (转路径 ≠ “不存在!”)
    歌手 ＝ 媒体信息.获取指定信息 (转路径, “Inform”, “General;%Performer%”)
    .如果真 (歌手 ＝ “”)
        取信息 (转路径, 歌手, 歌曲)
    .如果真结束
    返回 (到文本 (ANSI转UTF8 (歌手)))
.如果真结束
返回 (到文本 (ANSI转UTF8 (“未知”)))

.子程序 取信息II
.参数 路径, 文本型
.参数 歌手, 文本型, 参考
.参数 歌曲, 文本型, 参考
.局部变量 ID3V1, MP3_ID3V1

读ID3V1 (路径, ID3V1)
歌手 ＝ ID3V1.歌手名
歌曲 ＝ ID3V1.歌曲名
.如果真 (ID3V1.歌手名 ≠ “”)
    歌手 ＝ ID3V1.歌手名
.如果真结束
.如果真 (ID3V1.歌曲名 ≠ “”)
    歌曲 ＝ ID3V1.歌曲名
.如果真结束


.子程序 取信息III
.参数 路径, 文本型
.参数 歌手, 文本型, 参考 可空
.参数 歌曲, 文本型, 参考 可空
.局部变量 ID3V1, MP3_ID3V2

读ID3V2 (路径, ID3V1)
歌手 ＝ ID3V1.歌手名
歌曲 ＝ ID3V1.歌曲名
.如果真 (ID3V1.歌手名 ≠ “”)
    歌手 ＝ ID3V1.歌手名
.如果真结束
.如果真 (ID3V1.歌曲名 ≠ “”)
    歌曲 ＝ ID3V1.歌曲名
.如果真结束


.子程序 SetPos, , 公开
.参数 流, 整数型
.参数 小数, 整数型

BASS_ChannelSetPosition (流, BASS_ChannelSeconds2Bytes (流, 小数), 0)

.子程序 seek, , 公开
.参数 流, 整数型
.参数 位置, 整数型

BASS_ChannelSetPosition (流, BASS_ChannelSeconds2Bytes (流, BASS_ChannelBytes2Seconds (流, BASS_ChannelGetPosition (流, 0)) ＋ 位置), 0)

.子程序 GetPath, 文本型, 公开

返回 (到文本 (ANSI转UTF8 (取运行目录 ())))

.子程序 SetVol, , 公开
.参数 流, 整数型
.参数 vol, 整数型

BASS_ChannelSetAttribute (流, #BASS_ATTRIB_VOL, vol ÷ 100)

.子程序 GetVol, 整数型, 公开
.参数 流, 整数型
.局部变量 vold, 小数型
.局部变量 vol, 整数型

BASS_ChannelGetAttribute (流, #BASS_ATTRIB_VOL, vold)
vol ＝ vold × 100
返回 (vol)

.子程序 To, , 公开
.参数 流, 整数型
.参数 pos, 整数型

BASS_ChannelSetPosition (流, BASS_ChannelSeconds2Bytes (流, BASS_ChannelBytes2Seconds (流, pos)), 0)

.子程序 LoadDecoder, , 公开

枚举文件 (取运行目录 () ＋ “\Decoder”, 真, 0, &load)

.子程序 load, 逻辑型, , '
.参数 路径, 文本型

BASS_PluginLoad (路径, i)
i ＝ i ＋ 1
返回 (真)

aya163

不错支持一下。

garymary

不错呀真的很牛比，可以借用呀