level 6
话说Qzoo没有时间
2007年09月19日 13点09分
level 6
level 6
level 6
包子特派员
楼主
# 建立窗体#
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 $keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v' $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) Graphics.update sleep(SWITCH_DELAY) Graphics.update 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 = false) # 数据不合法则退出 return true if movie_name == nil or movie_length <= 0 # 文件不存在 movie_name = Dir.getwd()+"\\"+movie_name return true unless FileTest.exist?(movie_name) # 窗口宽度(限制640*480) #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 rescue Hangup retry end # 关闭当前窗体 $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 endend$MP = MoviePlayer.new
2007年09月23日 09点09分
12
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 $keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v' $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) Graphics.update sleep(SWITCH_DELAY) Graphics.update 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 = false) # 数据不合法则退出 return true if movie_name == nil or movie_length <= 0 # 文件不存在 movie_name = Dir.getwd()+"\\"+movie_name return true unless FileTest.exist?(movie_name) # 窗口宽度(限制640*480) #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 rescue Hangup retry end # 关闭当前窗体 $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 endend$MP = MoviePlayer.new