Permalink
Cannot retrieve contributors at this time
| <html> | |
| <head> | |
| <title>HTA OLE Viewer</title> | |
| <!-- | |
| The original sciprt is written by M. Suketa for vruby as soleb.rb | |
| --> | |
| <script language="RubyScript.2.1"> | |
| class OLEINFO | |
| @members = [] | |
| def typelibs | |
| WIN32OLE_TYPE.typelibs.select{|t| | |
| t.size > 0 | |
| }.sort | |
| end | |
| def ole_classes(tlib) | |
| WIN32OLE_TYPE.ole_classes(tlib).collect {|t| | |
| t.name | |
| }.sort | |
| end | |
| def ole_members(tlib, klass) | |
| @members = [] | |
| k = WIN32OLE_TYPE.ole_classes(tlib).find {|t| | |
| t.name == klass | |
| } | |
| return [] if !k | |
| @members = (k.ole_methods + k.variables).sort{|m1, m2| | |
| m1.name <=> m2.name | |
| } | |
| end | |
| def ole_class_info(tlib, klass) | |
| k = WIN32OLE_TYPE.ole_classes(tlib).find {|t| | |
| t.name == klass | |
| } | |
| return "" if !k | |
| "#{k.ole_type} #{k.name}\r\n" + | |
| " GUID : #{k.guid}\r\n" + | |
| " PROGID : #{k.progid}\r\n" + | |
| " DESCRIPTION : #{k.helpstring}\r\n\r\n" | |
| end | |
| def method_info(m) | |
| info = "" | |
| info += "Event " if m.event? | |
| info += m.invoke_kind | |
| info += " " | |
| info += m.return_type | |
| info += " " | |
| info += m.name | |
| info += "\r\n" | |
| info += " Dispatch ID : #{m.dispid}\r\n" | |
| info += " DESCRIPTION : #{m.helpstring}\r\n" | |
| m.params.each_with_index do |param, i| | |
| pinfos = [] | |
| pinfos.push "IN" if param.input? | |
| pinfos.push "OUT" if param.output? | |
| pinfos.push "OPTION" if param.optional? | |
| pinfo = "arg#{i+1} - #{param.ole_type} #{param.name} [#{pinfos.join(',')}]" | |
| pinfo += " = #{param.default}" if param.default | |
| info += " #{pinfo}\r\n" | |
| end | |
| info += "\r\n" | |
| info += " Event Interface : #{m.event_interface}\r\n" if m.event? | |
| info | |
| end | |
| def variable_info(m) | |
| info = "\r\n #{m.variable_kind} #{m.ole_type} #{m.name}" | |
| info += " = #{m.value}" if m.value | |
| info | |
| end | |
| def ole_member_info(tlib, klass, member) | |
| k = WIN32OLE_TYPE.ole_classes(tlib).find {|t| | |
| t.name == klass | |
| } | |
| return "" if !k | |
| m = @members.find do |mm| | |
| mm.name == member | |
| end | |
| return "" if !m | |
| if m.kind_of?(WIN32OLE_METHOD) | |
| return method_info(m) | |
| else | |
| return variable_info(m) | |
| end | |
| end | |
| end | |
| def change_sel(e, active) | |
| e.style.backgroundColor = active ? 'blue': 'white' | |
| e.style.color = active ? 'white' : 'black' | |
| end | |
| def sel_changed(div) | |
| elem = Window.event.srcElement | |
| return div if elem.children.length > 1 | |
| return nil if elem.innerHTML.strip.empty? | |
| if div | |
| change_sel(div, false) | |
| end | |
| change_sel(elem, true) | |
| elem | |
| end | |
| def clear_text(id) | |
| Window.document.getElementById(id).innerHTML = '' | |
| end | |
| def tlib_sel_changed | |
| return unless @current_typelib = sel_changed(@current_typelib) | |
| begin | |
| Window.document.getElementById('classinfo').innerHTML = | |
| make_list(@oleinfo.ole_classes(@current_typelib.innerHTML)) | |
| clear_text('info') | |
| rescue => e | |
| clear_text('classinfo') | |
| clear_text('memberinfo') | |
| Window.document.getElementById('info').innerHTML = e.message | |
| end | |
| @current_member = @current_class = nil | |
| end | |
| def class_sel_changed | |
| return unless @current_class = sel_changed(@current_class) | |
| Window.document.getElementById('memberinfo').innerHTML = | |
| make_list(@oleinfo.ole_members(@current_typelib.innerHTML, @current_class.innerHTML)) | |
| Window.document.getElementById('info').innerHTML = | |
| @oleinfo.ole_class_info(@current_typelib.innerHTML, @current_class.innerHTML) | |
| @current_member = nil | |
| end | |
| def member_sel_changed | |
| return unless @current_member = sel_changed(@current_member) | |
| Window.document.getElementById('info').innerHTML = | |
| make_list([@oleinfo.ole_class_info(@current_typelib.innerHTML, @current_class.innerHTML), | |
| @oleinfo.ole_member_info(@current_typelib.innerHTML, @current_class.innerHTML, | |
| @current_member.innerHTML).gsub("\r\n", "<br />")]) | |
| end | |
| def make_list(a) | |
| '<div>' + a.join('</div><div>') + '</div>' | |
| end | |
| def init_info | |
| ri = WIN32OLE.new('ruby.object.2.1') | |
| Window.document.getElementById('footer').innerHTML = "powerd by #{RUBY_VERSION}-p#{RUBY_PATCHLEVEL}" | |
| @oleinfo = OLEINFO.new | |
| @current_typelib = nil | |
| Window.document.getElementById('tlibinfo').innerHTML = make_list(@oleinfo.typelibs) | |
| end | |
| </script> | |
| </head> | |
| <body onload="init_info()"> | |
| <div id="tlibinfo" onclick="tlib_sel_changed()" | |
| style="height: 30%; max-height: 300px; border-style: inset; overflow: scroll"> | |
| </div> | |
| <div style = "height: 30%"> | |
| <div id="classinfo" onclick="class_sel_changed()" | |
| style="height: 100%; float: left; width: 45%; border-style: inset; overflow: scroll"> | |
| </div> | |
| <div id="memberinfo" onclick="member_sel_changed()" | |
| style="height: 100%; border-style: inset; overflow: scroll"> | |
| </div> | |
| </div> | |
| <div id="info" style="height: 30%; border-style: inset; overflow: scroll"> | |
| </div> | |
| <hr/> | |
| <div id="footer" style="margin-left: 80%"></div> | |
| </body> | |
| </html> |