Class: Fzeet::Windows::HTMLXMLHttpRequest

Inherits:
Object
  • Object
show all
Defined in:
lib/fzeet/windows/mshtml/Common.rb

Instance Attribute Summary collapse

Instance Method Summary collapse

Instance Attribute Details

#handlers ⇒ Object (readonly)

Returns the value of attribute handlers.



448
449
450
 
# File 'lib/fzeet/windows/mshtml/Common.rb', line 448

def handlers
  @handlers
end

Instance Method Details

#old_open ⇒ Object 



504
 
# File 'lib/fzeet/windows/mshtml/Common.rb', line 504

alias old_open open

#on(event, &block) ⇒ Object 



450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
 
# File 'lib/fzeet/windows/mshtml/Common.rb', line 450

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

	__send__("put_on#{event}", VARIANT.new.tap { |v|
		v[:vt] = VT_DISPATCH

		v[:pdispVal] = @dcallbacks.push(DCallback.new.tap { |dcb|
			dcb.instance_variable_set(:@request, self)
			dcb.instance_variable_set(:@event, event)

			def dcb.Invoke(*args)
				@request.handlers[@event].each { |handler|
					(handler.arity == 0) ? handler.call : handler.call(*args)
				}

				S_OK
			end
		}).last
	}) unless @handlers[event].length > 1

	self
end

#open(url, method = 'get') ⇒ Object 



506
507
508
509
510
511
512
513
514
515
516
517
518
519
 
# File 'lib/fzeet/windows/mshtml/Common.rb', line 506

def open(url, method = 'get')
	old_open(
		bstr = Windows.SysAllocString("#{method}\0".encode('utf-16le')),
		bstr2 = Windows.SysAllocString("#{url}\0".encode('utf-16le')),
		VARIANT.new.tap { |v| v[:vt] = VT_BOOL; v[:boolVal] = -1 },
		VARIANT.new,
		VARIANT.new
	)

	self
ensure
	Windows.SysFreeString(bstr)
	Windows.SysFreeString(bstr2)
end