请教avi视屏播放器正确的使用方式……

xuanji

我复制了avi视频播放器的代码到脚本编辑器，main之前，按说明改了PROJECT_NAME =，然后在事件脚本里添加了$MP.play("logo.avi",14,false,true)  但是测试时显示程序第100行有错误。是我的脚本不对吗，还是有什么操作没做？我查脚本的时候本网站上有很多教程贴都过期了。。所以找不到方法，求正确的脚本！

复制的脚本如下：
[pre lang="Ruby"]
　　# ------------------------------------------------------------------------
　　# 高精度计时器 by FantasyDR
　　# ------------------------------------------------------------------------
　　# E-mail: fnd@163.net
　　# ------------------------------------------------------------------------
　　# 2005.10.18
　　# ------------------------------------------------------------------------
　　# 该类已经被定义为全局变量 $sys_timer
　　# 如果只需要精确到毫秒，请设置初始化参数为true
　　# decimal属性设置返回时间值的小数位数。
　　# ------------------------------------------------------------------------
　　# 下面是一些有用的方法列表，调用时写：$sys_timer.方法名
　　# 例如 $sys_timer.clear()
　　# ------------------------------------------------------------------------
　　# clear() ：计时器清零
　　# now() ：获取当前经过的时间，单位毫秒
　　# now_s() ：获取当前经过的时间，单位秒
　　# ------------------------------------------------------------------------
　　class SystemTimer
　　attr_accessor:decimal #小数位数设定，默认为3

　　def initialize(use_GetTime=false)
　　# 初始化，根据系统选择不同精度计时器
　　@qpFrequency = Win32API.new("kernel32","QueryPerformanceFrequency",'p','L')
　　@qpCounter = Win32API.new("kernel32","QueryPerformanceCounter",'p','L')
　　@tGetTime = Win32API.new("winmm","timeGetTime",'','L')

　　@decimal=3
　　@perf_cnt=" " * 8
　　@time_start=" " * 8
　　@time_now=" " * 8

　　result = @qpFrequency.call(@perf_cnt)

　　if use_GetTime
　　result = 0
　　end

　　if result!=0
　　@perf_flag=true
　　else
　　@perf_flag=false
　　@perf_cnt=[1000,0].pack('LL')
　　end

　　#设置时间比例因数
　　@time_scale=@perf_cnt.unpack('LL')
　　@time_scale[0] /= 1000.0
　　@time_scale[1] /= 1000.0

　　#起始时间清零
　　self.clear()
　　end

　　#-=====================-#
　　# 计时器清零
　　#-=====================-#
　　def clear()
　　if @perf_flag
　　@qpCounter.call(@time_start)
　　else
　　@time_start=[@tGetTime.call(),0].pack('LL')
　　end
　　end

　　#-==============================-#
　　# 获取当前经过的时间，单位毫秒
　　#-==============================-#
　　def now()
　　now_time = 0.0e1
　　now_time += self.timer() - self.start()
　　now_time /= self.scale()
　　return self.debug(now_time)
　　end

　　#-==============================-#
　　# 获取当前经过的时间，单位秒
　　#-==============================-#
　　def now_s()
　　now_time = 0.0e1
　　now_time += self.timer() - self.start()
　　now_time /= (self.scale()*1000)
　　return self.debug(now_time)
　　end

　　#-==============================-#
　　# 帧错...
　　#-==============================-#
　　def debug(now_time)
　　if @decimal>0
　　now_time = (now_time * (10**@decimal)).floor/(10.0**@decimal)
　　else
　　now_time = now_time.floor
　　end
　　return now_time

　　#以下用于debug模式
　　if now_time < 0
　　p "Timer Wrong!! Clear...",now_time,\
　　@perf_flag,@qpCounter,@tGetTime,
　　@time_now.unpack('LL')[0],@time_now.unpack('LL')[1],
　　@time_start.unpack('LL')[0],@time_start.unpack('LL')[1]
　　self.clear()
　　return 0.0
　　else
　　return now_time
　　end
　　end

　　#-=====================-#
　　# 获取时间比例因数
　　#-=====================-#
　　def scale()
　　return @time_scale[0]+\
　　@time_scale[1]*0xffffffff
　　end

　　#-=====================-#
　　# 获取起始滴答数
　　#-=====================-#
　　def start()
　　return @time_start.unpack('LL')[0]+\
　　@time_start.unpack('LL')[1]*0xffffffff
　　end

　　#-=====================-#
　　# 获取当前的嘀哒数
　　#-=====================-#
　　def timer()
　　if @perf_flag
　　@qpCounter.call(@time_now)
　　else
　　@time_now=[@tGetTime.call(),0].pack('LL')
　　end
　　return @time_now.unpack('LL')[0]+\
　　@time_now.unpack('LL')[1]*0xffffffff
　　end
　　end
　　#-------------------------------------#
　　# 初始化自身成一个全局变量
　　#-------------------------------------#
　　$sys_timer=SystemTimer.new()
　　#-------------------------------------#

　　#==============================================================================
　　# 本脚本来自www.66RPG.com，使用和转载请保留此信息
　　#==============================================================================

　　#==============================================================================
　　# ☆★☆ AVI播放器 ☆★☆
　　#------------------------------------------------------------------------------
　　# - FantasyDR
　　# - 2006.3.12
　　#------------------------------------------------------------------------------
　　# MSN: FantasyDR_SJL@hotmail.com
　　#------------------------------------------------------------------------------
　　# Note:
　　#
　　#   1.在下方 PROJECT_NAME = 后面填写你的游戏工程名.
　　#
　　#   2.在游戏中,调用脚本事件播放你的视频文件,如果一行写不下可以在逗号后换行.
　　#
　　#   $MP.play(movie_name, movie_length,
　　#            skip, fullscr,
　　#            x, y, width, height, loop)
　　#
　　# 参数说明:
　　#
　　#     movie_name   : 视频文件名(*.avi),必须
　　#     movie_length : 电影时间,单位是秒,必须
　　#             skip : 是否可以按A键跳过,true/false,默认是true
　　#          fullscr : 是否强制为全屏幕播放,true/false,默认是false
　　#              x,y : 视频播放的左上角坐标,默认是0,0
　　#     width,height : 视频的宽度,可以任意.默认是640,480
　　#             loop : 循环播放,true/false,默认是true
　　#
　　# 例如播放logo.avi,时间13秒,禁止跳过,强制全屏,范围(是0,0)-(640,480),循环播放
　　#        $MP.play("logo.avi",13,false,true)
　　#==============================================================================

　　# ★★★请先这里填写游戏的工程名★★★
　　#AVG
　　PROJECT_NAME = "GAME"

　　#==============================================================================
　　# ■ Win32API
　　#------------------------------------------------------------------------------
　　#  需要用到的API
　　#==============================================================================

　　# 切换到全屏延时
　　SWITCH_DELAY = 0.1

　　# API使用的一些常数
　　WS_EX_TOPMOST = 0x8
　　WS_EX_TOOLWINDOW= 0x80
　　WS_VISIBLE = 0x10000000
　　WS_POPUP = 0x80000000
　　GWL_HINSTANCE = (-6)
　　WM_CLOSE = 0x10
　　WS_CHILD = 0x40000000
　　WS_NONE = 0x16000000
　　CP_ACP = 0
　　CP_UTF8 = 65001

　　# 字符编码转换API
　　$MP_m2w = Win32API.new('kernel32', 'MultiByteToWideChar', '%w(i,l,p,i,p,i)', 'i')
　　$MP_w2m = Win32API.new('kernel32', 'WideCharToMultiByte', '%w(i,l,p,i,p,i,p,p)', 'i')

　　# 按键API
　　$MP_keybd = Win32API.new('user32', 'keybd_event', '%w(i,i,l,l)', 'v')

　　# 视频播放API
　　$MP_mciSendString = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')

　　# 锁定窗口
　　# hWnd,ifEnable
　　$MP_EnableWindow = Win32API.new('user32','EnableWindow','%w(l,l)','L')

　　# 激活窗口
　　# hWnd
　　$MP_SetActiveWindow = Win32API.new('user32','SetActiveWindow','%w(l)','L')

　　# 当前活动窗口
　　$MP_GetActiveWindow = Win32API.new('user32','GetActiveWindow','%w()','L')

　　# hWnd,wMsg,wParam,lParam
　　$MP_PostMessage = Win32API.new('user32','PostMessage','%w(l,l,l,p)','L')

　　# 获取当前窗口句柄
　　$MP_FindWindowEX = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')

　　# 获取屏幕坐标
　　$MP_ClientToScreen = Win32API.new("user32", "ClientToScreen", 'ip', 'i')

　　# 获取hInt
　　$MP_GetWindowLong= Win32API.new('user32','GetWindowLong','%w(l,l)','L')

　　# 获取类名
　　# hWnd,lpClassName,maxCount
　　$MP_GetClassName= Win32API.new('user32','GetClassName','%w(l,p,l)','L')

　　# 建立窗体
　　# ExStyle,ClassName,WindowName,
　　# style,x,y,width,height
　　# 0,0,hInstance,0
　　$MP_CreateWindowEX = Win32API.new('user32','CreateWindowEx','%w(l,p,p,l,l,l,l,l,l,l,l,p)','L')

　　#==============================================================================
　　# ■ MoviePlayer
　　#------------------------------------------------------------------------------
　　#  处理视频播放画面的类。
　　#==============================================================================

　　class MoviePlayer
　　#--------------------------------------------------------------------------
　　# ● 初始化
　　#     project_name : 工程名称
　　#--------------------------------------------------------------------------
　　def initialize(project_name = PROJECT_NAME)
　　@sys_timer=SystemTimer.new()
　　buffer = "\0\0" * project_name.size
　　@project_name = "\0" * project_name.size

　　$MP_m2w.call(CP_UTF8, 0, project_name, -1, buffer, project_name.size)
　　$MP_w2m.call(CP_ACP,0,buffer,-1,@project_name,project_name.size,0,0)

　　@hWnd = $MP_FindWindowEX.call(0,0,nil,@project_name)
　　@hInt = $MP_GetWindowLong.call(@hWnd,GWL_HINSTANCE)
　　@class_name = " " * 256
　　$MP_GetClassName.call(@hWnd,@class_name,256)
　　end
　　#--------------------------------------------------------------------------
　　# ● 是否已经全屏幕
　　#--------------------------------------------------------------------------
　　def is_full?
　　# 播放起始坐标
　　point = [0, 0].pack('ll')
　　if $MP_ClientToScreen.call(@hWnd, point) == 0
　　return false
　　end
　　x, y = point.unpack('ll')
　　if x == 0 and y == 0
　　return true
　　else
　　return false
　　end
　　end
　　#--------------------------------------------------------------------------
　　# ● 切换全屏
　　#--------------------------------------------------------------------------
　　def switch_full
　　$MP_keybd.call (0xA4, 0, 0, 0)
　　$MP_keybd.call (13, 0, 0, 0)
　　$MP_keybd.call (13, 0, 2, 0)
　　$MP_keybd.call (0xA4, 0, 2, 0)
　　sleep(SWITCH_DELAY)
　　for i in 1..3
　　Graphics.update
　　end
　　end
　　#--------------------------------------------------------------------------
　　# ● 播放电影
　　#     movie_name : 视频文件名(*.avi)
　　#     movie_length : 电影时间,单位是秒
　　#     skip : 是否可以按键跳过
　　#     fullscr : 是否强制为全屏幕播放
　　#     x,y,width,height: 播放的位置以及宽度
　　#     loop : 循环播放
　　#--------------------------------------------------------------------------
　　def play(movie_name,movie_length,
　　skip = true,fullscr = false,
　　x = 0,y = 0,width = 640,height = 480,loop = true)
　　# 数据不合法则退出
　　return true if movie_name == nil or movie_length <= 0
　　# 文件不存在
　　return true unless FileTest.exist?(movie_name)

　　# 窗口宽度
　　width -= (x + width)- 640 if (x + width) > 640
　　height -= (y + height)- 480 if (y + height) > 480

　　if fullscr and !is_full?
　　self.switch_full
　　end

　　fullscr = self.is_full?

　　# 播放起始坐标
　　point = [x, y].pack('ll')
　　if $MP_ClientToScreen.call(@hWnd, point) == 0
　　return true
　　end
　　x, y = point.unpack('ll')
　　return true  if (x + width) < 0 or (y+height) < 0

　　if fullscr
　　wnd = $MP_CreateWindowEX.call(WS_EX_TOPMOST,@class_name,@project_name,
　　WS_VISIBLE | WS_POPUP,x,y,width,height,
　　0,0,@hInt,0)
　　else
　　wnd = $MP_CreateWindowEX.call(WS_EX_TOOLWINDOW,@class_name,@project_name,
　　WS_VISIBLE | WS_POPUP,x,y,width,height,
　　0,0,@hInt,0)
　　end
　　# 窗体建立失败
　　return true if wnd == 0

　　# 屏蔽原窗体
　　$MP_EnableWindow.call(@hWnd,0)

　　$MP_mciSendString.call("open \"" + movie_name + "\"" +
　　" alias FILE style 1073741824 parent " +\
　　wnd.to_s,0,0,0)
　　if loop
　　$MP_mciSendString.call("play FILE repeat window",0,0,0)
　　else
　　$MP_mciSendString.call("play FILE window",0,0,0)
　　end

　　@sys_timer.clear()
　　step = 0.1
　　begin
　　loop do
　　# 如果在窗口模式
　　unless fullscr
　　# 变成全屏
　　if self.is_full?
　　break
　　else
　　Graphics.update
　　end
　　end
　　#sleep(step)
　　if skip
　　Input.update
　　break if Input.trigger?(Input::A)
　　end
　　if @sys_timer.now_s >= movie_length
　　break
　　end
　　if $MP_GetActiveWindow.call() != wnd
　　$MP_SetActiveWindow.call(wnd)
　　end
　　end
　　Graphics.update
　　# 关闭当前窗体
　　$MP_PostMessage.call(wnd,WM_CLOSE,0,0)
　　$MP_mciSendString.call("close FILE",0,0,0)
　　$MP_EnableWindow.call(@hWnd,1)
　　$MP_SetActiveWindow.call(@hWnd)
　　return true
　　rescue Hangup
　　retry
　　end
　　end
　　end

　　$MP = MoviePlayer.new
[/pre]

xuanji

……我还以为这个售价是像百度知道一样 给回答者经验值的呢。。。{:2_248:}

多谢提醒。。

xuanji

我搜了很多视屏播放器的脚本，可是有的帖子给的网址已过期，有的帖子给的代码我复制后说脚本有错误……总之没有找到能用的。求可用的视频播放器脚本！发网址请检查链接能否打开。。代码希望是可以正确运行的。

谢谢各位资源帝和大神！

taroxd

https://rpg.blue/thread-306831-1-1.html

（我没有用过）

美丽晨露

不知道楼主需要播放什么格式的视频文件。
个人比较推荐这个范例内的脚本。使用起来不难。
就是有些遗留的问题难以解决······

SWF播放器.zip (3.66 MB, 下载次数: 141)

2015-1-6 19:06 上传

点击文件名下载附件

guoxiaomi

这个100行一看就是有问题嘛，把99行和100行删掉试试？

xuanji

xuanji 发表于 2015-1-6 14:36
我搜了很多视屏播放器的脚本，可是有的帖子给的网址已过期，有的帖子给的代码我复制后说脚本有错误……总之 ...

原来还有这样的情况？额又长知识了，我完了去试一试，多谢提醒~@89444640  

xuanji

taroxd 发表于 2015-1-6 17:18
https://rpg.blue/thread-306831-1-1.html

（我没有用过）

不懂~我最近才开始接触RMXP实属新手…先收藏着~

xuanji

美丽晨露 发表于 2015-1-6 19:06
不知道楼主需要播放什么格式的视频文件。
个人比较推荐这个范例内的脚本。使用起来不难。
就是有些遗留的问 ...

你好我想再问一下哈，RMXP对swf导出属性有要求吗？比如帧频什么的？我用了这个播放器脚本可是把里面的视屏换成我自己做的动画，播放速度特别快，是不是因为我的帧频没有对上？

Thylakoid

这个问题我个人姑且算有一点实践经验，就把我知道的都说一下吧。

一、AVI

顶楼贴出的高精度计时器和avi播放器脚本，我以前在默认工程中都尝试使用过，是没有问题的。楼主可以在默认工程里试一下，如果在默认工程运行中正常而在自己的工程中就出错，那应该就是和自己整合的其他脚本起冲突了。因为我自己的浏览器兼容性有问题，论坛里像顶楼这样分出颜色的代码我都无法复制，所以我无法替你试了。

二、swf

这个脚本我也用过。视频播放不正常，我认为不是脚本的问题、也不是你的视频的问题，是那个名为flash.ocx的播放控件版本过低的问题。我看了一下5楼上传的附件里flash.ocx文件的创建时间，是2003年，是个超旧的版本，当然驾驭不了你用今天的制作工具导出的视频。所以你上网找一个新版的控件把它替换掉就好了。2013年的时候我用的版本是flash10l.ocx，到今天应该更新到11系列了吧。

三、两个脚本的比较

观看效果上：如果你的swf文件是用格式转换器转出来的，而且体积比AVI小，理论上画质也会更差，至少我用的时候是这样。尤其在一些转场和带有镜头特效的特写上，swf有很明显的像素块，而AVI不仅清晰，播放还很流畅，当然前提是你AVI视频文件本身的质量足够好。

应用效果上：AVI播放脚本的缺陷很多。最大的问题就是编码和解码。你导出视频时用的编码方式在别人的电脑上未必解析得出来，因为对方可能没有对应的解码器。到了视频播放的时候，别人就看不到。要解决的话，你得知道自己用的是哪种编码方式，并且把对应的解码器放在作品里一起发给别人，类似强制别人安装插件那种感觉。但swf的播放脚本就没有这个问题，只要在根目录里带着RMFlash.dll文件和那个扩展名为.ocx的flash播放控件就够了。另外，AVI视频在播放途中是不能随意切换全屏和窗口的，否则就会出错。而swf可以任意切换。

所以相对而言，swf播放脚本用起来更加稳定。而AVI脚本呢，更加能满足自我或者内部关系很好的群体对画面的追求，如果作品是无差别公开分享的话，它的缺陷就显得不亲切了。