[pywin32-checkins] pywin32/com/win32com/test testExplorer.py, 1.6, 1.7

[Mark H. <mha...@us...>]

Update of /cvsroot/pywin32/pywin32/com/win32com/test
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17304/win32com/test

Modified Files:
	testExplorer.py 
Log Message:
Add pythoncom.ObjectFromLresult() and a test using IE.


Index: testExplorer.py
===================================================================
RCS file: /cvsroot/pywin32/pywin32/com/win32com/test/testExplorer.py,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** testExplorer.py	10 Jan 2006 06:32:18 -0000	1.6
--- testExplorer.py	19 Jul 2008 06:23:40 -0000	1.7
***************
*** 5,9 ****
--- 5,12 ----
  import os
  import win32com.client.dynamic
+ from win32com.client import Dispatch
  import win32api
+ import win32gui
+ import win32con
  import glob
  import pythoncom
***************
*** 37,53 ****
      print "IE Event tests worked."
  
! 
  def TestExplorer(iexplore):
      if not iexplore.Visible: iexplore.Visible = -1
!     try:
!         iexplore.Navigate(win32api.GetFullPathName('..\\readme.htm'))
!     except pythoncom.com_error, details:
!         print "Warning - could not open the test HTML file", details
! #       for fname in glob.glob("..\\html\\*.html"):
! #               print "Navigating to", fname
! #               while iexplore.Busy:
! #                       win32api.Sleep(100)
! #               iexplore.Navigate(win32api.GetFullPathName(fname))
!     win32api.Sleep(4000)
      try:
          iexplore.Quit()
--- 40,69 ----
      print "IE Event tests worked."
  
! def TestObjectFromWindow():
!     # Check we can use ObjectFromLresult to get the COM object from the
!     # HWND - see KB Q249232
!     # Locating the HWND is different than the KB says...
!     hwnd = win32gui.FindWindow('IEFrame', None)
!     for child_class in ['TabWindowClass', 'Shell DocObject View',
!                         'Internet Explorer_Server']:
!         hwnd = win32gui.FindWindowEx(hwnd, 0, child_class, None)
!         assert hwnd, "Couldn't find '%s" % (child_class,)
!     # But here is the point - once you have an 'Internet Explorer_Server',
!     # you can send a message and use ObjectFromLresult to get it back.
!     msg = win32gui.RegisterWindowMessage("WM_HTML_GETOBJECT")
!     rc, result = win32gui.SendMessageTimeout(hwnd, msg, 0, 0, win32con.SMTO_ABORTIFHUNG, 1000)
!     ob = pythoncom.ObjectFromLresult(result, pythoncom.IID_IDispatch, 0)
!     doc = Dispatch(ob)
!     # just to prove it works, set the background color of the document.
!     for color in "red green blue orange white".split():
!         doc.bgColor = color
!         time.sleep(0.2)
!     
  def TestExplorer(iexplore):
      if not iexplore.Visible: iexplore.Visible = -1
!     iexplore.Navigate(win32api.GetFullPathName('..\\readme.htm'))
!     win32api.Sleep(1000)
!     TestObjectFromWindow()
!     win32api.Sleep(3000)
      try:
          iexplore.Quit()