纯脚本不使用DLL就读取窗口消息

yangff

晴兰 发表于 2011-12-21 23:16
哦哦 原来如此 那也行 这个可以当C函数指针用
不过直接用RGSS3的Ruby写回调还是麻烦T_T ...

1. 
   
2. module DL
   
3.   SEM = Mutex.new
   
4. 
   
5. 
   
6. 
   
7.   def set_callback_internal(proc_entry, addr_entry, argc, ty, abi = nil, &cbp)
   
8.     if( argc < 0 )
   
9.       raise(ArgumentError, "arity should not be less than 0.")
   
10.     end
    
11.     addr = nil
    
12. 
    
13. 
    
14.       SEM.synchronize{
    
15.         ary = proc_entry[ty]
    
16.         (0...MAX_CALLBACK).each{|n|
    
17.           idx = (n * DLSTACK_SIZE) + argc
    
18.           if( ary[idx].nil? )
    
19.             ary[idx] = cbp
    
20.             addr = addr_entry[ty][idx]
    
21.             break
    
22.           end
    
23.         }
    
24.       }
    
25. 
    
26.     addr
    
27.   end
    
28. 
    
29.   def set_cdecl_callback(ty, argc, &cbp)
    
30.     set_callback_internal(CdeclCallbackProcs, CdeclCallbackAddrs, argc, ty, &cbp)
    
31.   end
    
32. 
    
33.   def set_stdcall_callback(ty, argc, &cbp)
    
34. 
    
35.       set_callback_internal(StdcallCallbackProcs, StdcallCallbackAddrs, argc, ty, &cbp)
    
36. 
    
37.   end
    
38. 
    
39.   def remove_callback_internal(proc_entry, addr_entry, addr, ctype = nil)
    
40. 
    
41. 
    
42.       index = nil
    
43.       if( ctype )
    
44.         addr_entry[ctype].each_with_index{|xaddr, idx|
    
45.           if( xaddr == addr )
    
46.             index = idx
    
47.           end
    
48.         }
    
49.       else
    
50.         addr_entry.each{|ty,entry|
    
51.           entry.each_with_index{|xaddr, idx|
    
52.             if( xaddr == addr )
    
53.               index = idx
    
54.             end
    
55.           }
    
56.         }
    
57. 
    
58.       if( index and proc_entry[ctype][index] )
    
59.         proc_entry[ctype][index] = nil
    
60.         return true
    
61.       else
    
62.         return false
    
63.       end
    
64.     end
    
65.   end
    
66. 
    
67.   def remove_cdecl_callback(addr, ctype = nil)
    
68.     remove_callback_internal(CdeclCallbackProcs, CdeclCallbackAddrs, addr, ctype)
    
69.   end
    
70. 
    
71.   def remove_stdcall_callback(addr, ctype = nil)
    
72.     remove_callback_internal(StdcallCallbackProcs, StdcallCallbackAddrs, addr, ctype)
    
73.   end
    
74. 
    
75.   alias set_callback set_cdecl_callback
    
76.   alias remove_callback remove_cdecl_callback
    
77. end
    

复制代码

没测试过

yangff

晴兰 发表于 2011-12-21 23:20
新人先把大大的代码复制下来学习中

object_id???

鑫晴

看不懂..