RM视频播放器 [2011-4-20更新异步模式 可以融合进 RM 画面]

yangff

蕾米莉亚·斯卡雷特 发表于 2011-4-18 21:37
那啥, 我的做法是直接在 RM 的窗口上描绘刷新的话, 没有创建子窗口.

不过使用子窗口来覆盖掉原 RM 窗口的 ...

不用啊……子窗体的位置就是相对父窗体的吧……

蕾米莉亚·斯卡雷特

回复 yangff 的帖子

都说了, 现在的做法没有子窗口~~

yangff

蕾米莉亚·斯卡雷特 发表于 2011-4-19 14:56
回复 yangff 的帖子

都说了, 现在的做法没有子窗口~~

我的意思是这样……
诡异的vx……视屏居然1桢都没掉……Flash你敢不敢别这么蛋疼……
video_full.rar (1.43 MB, 下载次数: 914)

2011-4-19 16:05 上传

点击文件名下载附件

蕾米莉亚·斯卡雷特

回复 yangff 的帖子

居然可以? = =
求原理~~~

定制 Game.exe 可不行~~~

-----------------------------------

了解了, 创建窗口什么的. 恩, 咱试试整合一下~~~

yangff

蕾米莉亚·斯卡雷特 发表于 2011-4-19 16:39
回复 yangff 的帖子

居然可以? = =

1. 
   
2. #==============================================================================
   
3. # ■ Kernel
   
4. #------------------------------------------------------------------------------
   
5. # 　该模块中定义了可供所有类使用的方法。Object 类中包含了该模块。
   
6. #==============================================================================
   
7. 
   
8. module Kernel
   
9.   #--------------------------------------------------------------------------
   
10.   # ● 需要的 Windows API 函数
    
11.   #--------------------------------------------------------------------------
    
12.   #没有定制的Game的话……
    
13. GetWindowLong=Win32API.new('User32','GetWindowLongA','ll','l')
    
14. SetWindowLong= Win32API.new('User32','SetWindowLongA','lll','l')
    
15. GetWindowThreadProcessId = Win32API.new("user32", "GetWindowThreadProcessId", "LP", "L")
    
16.   GetWindow = Win32API.new("user32", "GetWindow", "LL", "L")
    
17.   GetClassName = Win32API.new("user32", "GetClassName", "LPL", "L")
    
18.   GetCurrentThreadId = Win32API.new("kernel32", "GetCurrentThreadId", "V", "L")
    
19.   GetForegroundWindow = Win32API.new("user32", "GetForegroundWindow", "V", "L")#CreateWindowEx(
    
20.   $hInstance=Win32API.new("Kernel32","GetModuleHandleA","","l").call()
    
21. #DWORD dwExStyle，LPCTSTR IpClassName，
    
22. #LPCTSTR lpWindowName，DWORD dwStyle，
    
23. #int x，int y,int nWidth，int nHeight，
    
24. #HWND hWndParent，HMENU hMenu，
    
25. #HANDLE hInstance，LPVOID lpParam);
    
26.   module WS
    
27.     EX_MDICHILD=0x40
    
28.     EX_WINDOWEDGE=0x100
    
29.     #CHILD=0x40000000
    
30.     #VISIBLE=0x10000000
    
31.      OVERLAPPED      = 0x00000000
    
32. POPUP          =  0x80000000
    
33. CHILD          =  0x40000000
    
34. MINIMIZE       =  0x20000000
    
35. VISIBLE        =  0x10000000
    
36. DISABLED        = 0x08000000
    
37. CLIPSIBLINGS    = 0x04000000
    
38. CLIPCHILDREN    = 0x02000000
    
39. MAXIMIZE        = 0x01000000
    
40. CAPTION         = 0x00C00000   
    
41. BORDER          = 0x00800000
    
42. DLGFRAME        = 0x00400000
    
43. VSCROLL         = 0x00200000
    
44. HSCROLL         = 0x00100000
    
45. SYSMENU         = 0x00080000
    
46. THICKFRAME      = 0x00040000
    
47. GROUP           = 0x00020000
    
48. TABSTOP         = 0x00010000
    
49. MINIMIZEBOX    = 0x00020000
    
50.   end
    
51.   @hh=0
    
52.   CWE = Win32API.new('user32','CreateWindowEx','lppllllllllp','l')
    
53.   def self.make_window(x,y,width,height) #return hwnd
    
54.     #p $hInstance
    
55.     CWE.call(WS::EX_WINDOWEDGE,'RGSS Player','CWebB',WS::CHILD|WS::VISIBLE,x,y,width,height,get_hWnd,0,$hInstance,0)
    
56.     #CreateWindowEx.call(1, "Edit", "", W, 0, 0, w, h, GetActiveWindow.call, 1, GetModuleHandle.call(nil), 1)
    
57.   end
    
58. 
    
59.   #--------------------------------------------------------------------------
    
60.   # ● 获取窗口句柄
    
61.   #--------------------------------------------------------------------------
    
62.   def self.get_hWnd
    
63.     return @hh if @hh!=0
    
64.     # 获取调用线程（RM 的主线程）的进程标识
    
65.     threadID = GetCurrentThreadId.call
    
66.     # 获取 Z 次序中最靠前的窗口
    
67.     hWnd = GetWindow.call(GetForegroundWindow.call, 0)
    
68.     # 枚举所有窗口
    
69.     while hWnd != 0
    
70.       # 如果创建该窗口的线程标识匹配本线程标识
    
71.       if threadID == GetWindowThreadProcessId.call(hWnd, 0)
    
72.         # 分配一个 11 个字节的缓冲区
    
73.         className = " " * 11
    
74.         # 获取该窗口的类名
    
75.         GetClassName.call(hWnd, className, 12)
    
76.         # 如果匹配 RGSS Player 则跳出循环
    
77.         break if className == "RGSS Player"
    
78.       end
    
79.       # 获取下一个窗口
    
80.       hWnd = GetWindow.call(hWnd, 2)
    
81.     end
    
82.     return @hh=hWnd
    
83.   end
    
84. end
    
85. os=GetWindowLong.call(Kernel.get_hWnd,-16)
    
86. SetWindowLong.call(Kernel.get_hWnd,-16,os | 33554432)
    

复制代码

那就这样……

zh99998

4-20更新
v3.0.0420 视频与RM画面共存

亿万星辰

这个更新好，我可以继续更新下我签名里的东西……

link006007

恩  好东西  。。 好久没来

yangff

zh99998 发表于 2010-11-27 14:47
独占模式:

异步什么的开个线程自动释放吧……再加个Proc什么的……

蕾米莉亚·斯卡雷特

异步的写法感觉是给会写点点脚本的人准备的. 个人感觉.

Ruby 的多线程有点感觉.......

不过, Ruby 多线程怎么写?  忘记了.

咱等下更新下好了.