[RMXP] 扩展音频模块 v1.03 - Project1

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
# 作者：紫苏
#==============================================================================
$mciSendString = Win32API.new("winmm", "mciSendStringW", ['P', 'P', 'I', 'L'], 'L')
$mciGetErrorString = Win32API.new("winmm", "mciGetErrorStringW", ['L', 'P', 'I'], 'L')
$: << Dir.getwd
#==============================================================================
# ■ AudioEx
#------------------------------------------------------------------------------
# 　进行有关音乐，声音处理的扩展音频模块。
#==============================================================================
module AudioEx
#--------------------------------------------------------------------------
# ● 快速播放（集合打开、播放设备、设置音量、速度、淡入等操作）
# device : 设备名称（标识）
# filename : 文件路径
# volume : 音量（0-1000）
# speed : 速度（500-1500）
# fade : 淡入（true | false）
#--------------------------------------------------------------------------
def self.quickPlay(device, filename, volume = 1000, speed = 1000, fade = 0)
open(device, filename)
play(device)
setVolume(device, volume)
setSpeed(device, speed)
fade_in(device, fade, 0, volume)
end
#--------------------------------------------------------------------------
# ● 暂停一个设备的播放（可淡出）
# device : 设备名称（标识）
# fade : 淡出时间（秒）
#--------------------------------------------------------------------------
def self.suspend(device, fade = 1)
fade_out(device, fade, getVolume(device), 0, 1)
end
#--------------------------------------------------------------------------
# ● 恢复一个设备的播放（可淡入）
# device : 设备名称（标识）
# fade : 淡入时间（秒）
#--------------------------------------------------------------------------
def self.continue(device, fade = 1)
resume(device)
fade_in(device, fade, 0, getVolume(device))
end
#--------------------------------------------------------------------------
# ● 发送 open 命令，从文件打开一个设备
# device : 设备名称（标识）
# filename : 文件路径
#--------------------------------------------------------------------------
def self.open(device, filename)
error = $mciSendString.call("open \"#{filename}\" type mpegvideo alias #{device} wait".to_unicode, 0, 0, 0)
raise AudioExException.new(error) if error != 0
set(device, "time format milliseconds")
# 准备播放
cue(device)
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 play 命令，播放设备
# device : 设备名称（标识）
# flags : 命令标记
#--------------------------------------------------------------------------
def self.play(device, flags = "")
# 如果设备无法播放就抛出异常
if capability(device, "can play") == "false"
raise AudioExException, "设备无法播放。"
end
error = $mciSendString.call("play #{device} #{flags}".to_unicode, 0, 0, 0)
raise AudioExException.new(error) if error != 0
end
#--------------------------------------------------------------------------
# ● 淡入一个设备（音量从低到高的渐变）
# device : 设备名称（标识）
# sec : 淡入的时间（秒，近似值）
# from : 开始淡入的音量
# to : 淡入后的音量
#--------------------------------------------------------------------------
def self.fade_in(device, sec = 1, from = 0, to = 1000)
return if sec == 0
# 开启调节音量的线程
Thread.new {
begin
increment = to / sec / 10
volume = from
while volume < to
setVolume(device, volume)
volume += increment
sleep 0.08
end
setVolume(device, to)
rescue Exception => ex
p "淡出时发生了异常：", ex
end
}
end
#--------------------------------------------------------------------------
# ● 淡出一个设备（音量从高到低的渐变）
# device : 设备名称（标识）
# sec : 淡出的时间（秒，近似值）
# from : 开始淡出的音量
# to : 淡出后的音量
# end_proc : 淡出结束后的操作
# ※ 0 = 关闭, 1 = 暂停, 2 = 停止, 其它 = 无操作
#--------------------------------------------------------------------------
def self.fade_out(device, sec = 1, from = 1000, to = 0, end_proc = 0)
# 开启调节音量的线程
Thread.new {
begin
if sec != 0
volume = from
decrement = volume / sec / 10
while volume > to
setVolume(device, volume)
volume -= decrement
sleep 0.08
end
setVolume(device, to)
end
case end_proc
when 0: close(device) # 淡出后关闭设备
when 1: setVolume(device, from) # 将音量调整回淡出之前
pause(device) # 淡出后暂停设备
when 2: stop(device) # 淡出后停止设备
end
rescue Exception => ex
p "淡出时发生了异常：", ex
end
}
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 pause 命令，暂停设备
# device : 设备名称（标识）
#--------------------------------------------------------------------------
def self.pause(device)
error = $mciSendString.call("pause #{device}".to_unicode, 0, 0, 0)
raise AudioExException.new(error) if error != 0
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 resume 命令，恢复设备
# device : 设备名称（标识）
#--------------------------------------------------------------------------
def self.resume(device)
error = $mciSendString.call("resume #{device}".to_unicode, 0, 0, 0)
raise AudioExException.new(error) if error != 0
end
#--------------------------------------------------------------------------
# ● 向MCI 设备发送 seek 命令，移动当前位置指针
# device : 设备名称（标识）
# pos : 位置（毫秒）
#--------------------------------------------------------------------------
def self.seek(device, pos)
error = $mciSendString.call(
(case pos
when -1
"seek #{device} to end"
when 0
"seek #{device} to start"
else
"seek #{device} to #{pos}"
end).to_unicode,
0, 0, 0)
raise AudioExException.new(error) if error != 0
play(device)
end
#--------------------------------------------------------------------------
# ● 设置 MCI 设备左右声道平均音量
# device : 设备名称（标识）
# volume : 音量（0-1000）
#--------------------------------------------------------------------------
def self.setVolume(device, volume)
volume = [[volume, 0].max, 1000].min
setAudio(device, "volume to #{volume}")
end
#--------------------------------------------------------------------------
# ● 获取 MCI 设备左右声道平均音量
# device : 设备名称（标识）
#--------------------------------------------------------------------------
def self.getVolume(device)
return status(device, "volume").to_i
end
#--------------------------------------------------------------------------
# ● 设置 MCI 设备播放速度
# device : 设备名称（标识）
# speed : 速度（500-1500）
#--------------------------------------------------------------------------
def self.setSpeed(device, speed)
speed = [[speed, 500].max, 1500].min
set(device, "speed #{speed}")
end
#--------------------------------------------------------------------------
# ● 设置 MCI 设备暂停超时
# device : 设备名称（标识）
# time : 超时（毫秒）
#--------------------------------------------------------------------------
def self.timeout(device, time)
set(device, "pause #{time}")
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 stop 命令，停止设备
# device : 设备名称（标识）
#--------------------------------------------------------------------------
def self.stop(device)
error = $mciSendString.call("stop #{device}".to_unicode, 0, 0, 0)
raise AudioExException.new(error) if error != 0
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 close 命令，关闭设备
# device : 设备名称（标识）
#--------------------------------------------------------------------------
def self.close(device)
error = $mciSendString.call("close #{device}".to_unicode, 0, 0, 0)
raise AudioExException.new(error) if error != 0
end
#--------------------------------------------------------------------------
# ● 获取 MCI 设备当前位置（毫秒）
# device : 设备名称（标识）
#--------------------------------------------------------------------------
def self.position(device)
return status(device, "position").to_i
end
#--------------------------------------------------------------------------
# ● 获取 MCI 设备媒体长度（毫秒）
# device : 设备名称（标识）
#--------------------------------------------------------------------------
def self.length(device)
return status(device, "length").to_i
end
#--------------------------------------------------------------------------
# ● 获取 MCI 设备状态（"not ready", "paused", "playing", and "stopped"）
# device : 设备名称（标识）
#--------------------------------------------------------------------------
def self.mode(device)
return status(device, "mode")
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 status 命令，获取设备状态信息
# device : 设备名称（标识）
# flags : 命令标记
#--------------------------------------------------------------------------
def self.status(device, flags)
buf = " " * 256
error = $mciSendString.call("status #{device} #{flags}".to_unicode, buf, 256, 0)
raise AudioExException.new(error) if error != 0
buf.strip!
# 返回 UTF-8 编码格式的设备状态信息
return buf.to_UTF8
end
###############################################################################
# #
# 　以下函数在普通情况下不需要直接调用，仅供有兴者参考、试验。 #
# 使用方法请自行参考 MSDN 有关 MCI Command String（命令字符串）的部分。 #
# #
###############################################################################
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 setaudio 命令，设置音频相关信息
# device : 设备名称（标识）
# flags : 命令标记
#--------------------------------------------------------------------------
def self.setAudio(device, flags)
error = $mciSendString.call("setaudio #{device} #{flags}".to_unicode,
0, 0, 0)
raise AudioExException.new(error) if error != 0
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 cue 命令，准备播放
# device : 设备名称（标识）
# flags : 命令标记
#--------------------------------------------------------------------------
def self.cue(device)
error = $mciSendString.call("cue #{device}".to_unicode, 0, 0, 0)
raise AudioExException.new(error) if error != 0
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 capability 命令，获取设备兼容性相关信息
# device : 设备名称（标识）
# flags : 命令标记
#--------------------------------------------------------------------------
def self.capability(device, flags)
buf = " " * 256
error = $mciSendString.call("capability #{device} #{flags}".to_unicode,
buf, 256, 0)
raise AudioExException.new(error) if error != 0
buf.strip!
return buf.to_UTF8
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 info 命令，获取设备信息
# device : 设备名称（标识）
# flags : 命令标记
#--------------------------------------------------------------------------
def self.info(device, flags)
buf = " " * 256
error = $mciSendString.call("info #{device} #{flags}".to_unicode,
buf, 256, 0)
raise AudioExException.new(error) if error != 0
buf.strip!
return buf.to_UTF8
end
#--------------------------------------------------------------------------
# ● 向 MCI 设备发送 set 命令，设置设备相关属性
# device : 设备名称（标识）
# flags : 命令标记
#--------------------------------------------------------------------------
def self.set(device, flags)
error = $mciSendString.call("set #{device} #{flags}".to_unicode, 0, 0, 0)
raise AudioExException.new(error) if error != 0
end
end
#==============================================================================
# ■ AudioExException
#------------------------------------------------------------------------------
# 　扩展音频模块异常类。
#==============================================================================
class AudioExException < Exception
#--------------------------------------------------------------------------
# ● 初始化异常类对象
# code : MCI 错误代码
#--------------------------------------------------------------------------
def initialize(code)
return super if code.class == String
@msg = " " * 512
# 返回 MCI 错误信息
$mciGetErrorString.call(code, @msg, 256)
@msg = @msg.to_UTF8
end
#--------------------------------------------------------------------------
# ● 返回异常对象的字符串描述
#--------------------------------------------------------------------------
def to_s
# 如果没有传递 MCI 错误代码的话就返回父类的错误信息
return @msg if @msg
return super
end
end
#==============================================================================
# ■ String
#------------------------------------------------------------------------------
# 　字符串类。可处理任意长度的字节串。（追加编码转换的定义）
#==============================================================================
class String
#--------------------------------------------------------------------------
# ● 用来编码 Ruby 字符串、解码 unicode 的两个 Windows API 函数
#--------------------------------------------------------------------------
@@MultiByteToWideChar = Win32API.new("kernel32", "MultiByteToWideChar", ['I', 'L', 'P', 'I', 'P', 'I'], 'I')
@@WideCharToMultiByte = Win32API.new("kernel32", "WideCharToMultiByte", ['I', 'L', 'P', 'I', 'P', 'I', 'P', 'P'], 'I')
#--------------------------------------------------------------------------
# ● 返回将 Ruby UTF-8 字符串对象（本身）编码为 unicode 后的字符串
#--------------------------------------------------------------------------
def to_unicode
# 65001: UTF-8 字符集编码（代码页）
len = @@MultiByteToWideChar.call(65001, 0, self, -1, 0, 0) << 1
buf =" " * len
@@MultiByteToWideChar.call(65001, 0, self, -1, buf, len)
return buf
end
#--------------------------------------------------------------------------
# ● 返回将编码为 unicode 的字符串对象（本身）解码为 UTF-8 后的字符串
#--------------------------------------------------------------------------
def to_UTF8
len = @@WideCharToMultiByte.call(65001, 0, self, -1, 0, 0, 0, 0)
buf =" " * len
@@WideCharToMultiByte.call(65001, 0, self, -1, buf, len, 0, 0)
# 去掉 '\0' 字符串结束符（因为转换之后仅仅用于 Ruby 字符串）
buf.slice!(-1, 1)
return buf
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
# 作者：紫苏
#==============================================================================

复制代码