Class: Fzeet::WebBrowser

Inherits:
Windows::WebBrowser
  • Object
show all
Defined in:
lib/fzeet/windows/shdocvw.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(parent) ⇒ WebBrowser

Returns a new instance of WebBrowser.



120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
 
# File 'lib/fzeet/windows/shdocvw.rb', line 120

def initialize(parent)
  @parent = parent

  @oips = Windows::OleInPlaceSite.new

  @oips.instance_variable_set(:@browser, self)

  class << @oips
    attr_reader :browser

    def CanInPlaceActivate
      Windows::S_OK
    end

    def GetWindow(phwnd)
      phwnd.write_pointer(browser.parent.handle)

      Windows::S_OK
    end

    def GetWindowContext(pframe, pdoc, prPos, prClip, pinfo)
      pframe.write_pointer(0)
      pdoc.write_pointer(0)
      Windows.GetClientRect(browser.parent.handle, prPos)
      Windows.GetClientRect(browser.parent.handle, prClip)

      Windows::S_OK
    end

    def OnPosRectChange(prPos)
      browser.QueryInstance(Windows::OleInPlaceObject) { |oipo|
        oipo.SetObjectRects(prPos, prPos)
      }

      Windows::S_OK
    end
  end

  @ocs = Windows::OleClientSite.new

  @ocs.instance_variable_set(:@browser, self)

  class << @ocs
    attr_reader :browser

    def QueryInterface(piid, ppv)
      if Windows::GUID.new(piid) == Windows::IOleInPlaceSite::IID
        ppv.write_pointer(browser.oips); browser.oips.AddRef

        return Windows::S_OK
      end

      super
    end
  end

  super()

  @events = Windows::WebBrowserEvents.new

  @events.instance_variable_set(:@browser, self)

  class << @events
    attr_reader :browser

    (self::VTBL.members - Windows::IDispatch::VTBL.members).each { |name|
      define_method(name) { |dispParams|
        (handlers = browser.handlers && browser.handlers[name]) && handlers.each { |handler|
          (handler.arity == 0) ? handler.call : handler.call(dispParams)
        }
      }
    }
  end

  QueryInstance(Windows::ConnectionPointContainer) { |cpc|
    FFI::MemoryPointer.new(:pointer) { |pcp|
      cpc.FindConnectionPoint(Windows::WebBrowserEvents::IID, pcp)

      @cp = Windows::ConnectionPoint.new(pcp.read_pointer)
    }
  }

  @cookie = nil
  FFI::MemoryPointer.new(:ulong) { |p| @cp.Advise(@events, p); @cookie = p.get_ulong(0) }

  QueryInstance(Windows::OleObject) { |oo|
    oo.SetClientSite(@ocs)
    oo.DoVerb(Windows::OLEIVERB_INPLACEACTIVATE, nil, @ocs, 0, @parent.handle, @parent.rect)
  }

  @parent.
    on(:size) {
      r = @parent.rect

      put_Top(r[:top]); put_Left(r[:left]); put_Width(r[:right]); put_Height(r[:bottom])
    }.

    on(:destroy) {
      @oips.Release
      @ocs.Release
      @cp.Unadvise(@cookie)
      @events.Release
      @cp.Release
      Release()
    }.

    instance_variable_set(:@__WebBrowser__, self)
end

Instance Attribute Details

#cp ⇒ Object (readonly)

Returns the value of attribute cp.



229
230
231
 
# File 'lib/fzeet/windows/shdocvw.rb', line 229

def cp
  @cp
end

#events ⇒ Object (readonly)

Returns the value of attribute events.



229
230
231
 
# File 'lib/fzeet/windows/shdocvw.rb', line 229

def events
  @events
end

#handlers ⇒ Object (readonly)

Returns the value of attribute handlers.



229
230
231
 
# File 'lib/fzeet/windows/shdocvw.rb', line 229

def handlers
  @handlers
end

#ocs ⇒ Object (readonly)

Returns the value of attribute ocs.



229
230
231
 
# File 'lib/fzeet/windows/shdocvw.rb', line 229

def ocs
  @ocs
end

#oips ⇒ Object (readonly)

Returns the value of attribute oips.



229
230
231
 
# File 'lib/fzeet/windows/shdocvw.rb', line 229

def oips
  @oips
end

#parent ⇒ Object (readonly)

Returns the value of attribute parent.



229
230
231
 
# File 'lib/fzeet/windows/shdocvw.rb', line 229

def parent
  @parent
end

Instance Method Details

#back ⇒ Object 



247
 
# File 'lib/fzeet/windows/shdocvw.rb', line 247

def back; GoBack(); self; rescue; self end

#document ⇒ Object 



254
255
256
257
258
259
260
261
262
263
264
265
266
 
# File 'lib/fzeet/windows/shdocvw.rb', line 254

def document
  disp = nil

  FFI::MemoryPointer.new(:pointer) { |pdisp|
    get_Document(pdisp)

    disp = Windows::Dispatch.new(pdisp.read_pointer)

    return disp.QueryInstance(Windows::HTMLDocument2)
  }
ensure
  disp.Release if disp
end

#forward ⇒ Object 



248
 
# File 'lib/fzeet/windows/shdocvw.rb', line 248

def forward; GoForward(); self; rescue; self end

#goto(where) ⇒ Object 



237
238
239
240
241
242
243
244
245
 
# File 'lib/fzeet/windows/shdocvw.rb', line 237

def goto(where)
  where = Windows.SysAllocString("#{where}\0".encode('utf-16le'))

  Navigate(where, nil, nil, nil, nil)

  self
ensure
  Windows.SysFreeString(where)
end

#home ⇒ Object 



249
 
# File 'lib/fzeet/windows/shdocvw.rb', line 249

def home; GoHome(); self end

#on(event, &block) ⇒ Object 



231
232
233
234
235
 
# File 'lib/fzeet/windows/shdocvw.rb', line 231

def on(event, &block)
  ((@handlers ||= {})[event] ||= []) << block

  self
end

#refresh ⇒ Object 



252
 
# File 'lib/fzeet/windows/shdocvw.rb', line 252

def refresh; Refresh(); self end

#search ⇒ Object 



250
 
# File 'lib/fzeet/windows/shdocvw.rb', line 250

def search; GoSearch(); self end