Get body of a web page with Iexplore

Hi Yvelise,



The contentDocument property is only available for Internet Explorer web pages starting from TestComplete 9. In earlier TestComplete versions, you need to use the Application.Document property to access the DOM document object.



Moreover, Internet Explorer doesn't natively support the textContent property prior to version 9, so you should use innerText instead. However, please be aware of a few differences between innerText and textContent.



You'll need to check the current browser and use the appropriate properties, like this:

Sub Test

  Dim url, browser, page, body, str



  url = "http://www.google.fr"

  strBrowser = "iexplore"



  Set browser = Sys.Process(strBrowser)

  Set page = browser.ToURL(url)



  If LCase(browser.ProcessName) = "iexplore" Then

    Set body = page.Application.Document.body

    str = body.innerText

  Else ' Firefox & Chrome

    Set body = page.contentDocument.body

    str = body.textContent

  End If



  Log.Message "See Additional Info.", str 

End Sub

Hello,



Thank's a lot for your reply.

Do you know if it's possible to get the source code of an page already loaded (a page that is loaded after a click action) ?



I try to explain myself :

Instead of using Set page = browser.ToURL(url) 

Is it possible to use something like 

Set page = browser.Page(url) 

I know this one doesn't work...



Thank's again

Hi Yvelise




> Set page = browser.Page(url) 

> I know this one doesn't work...



This is strange because it should work as per http://support.smartbear.com/viewarticle/32820/.

What error are you getting?

Hi Yvelise,



browser.Page(url) should actually work just fine for the existing web pages. You can see the correct syntax in the Object Browser.



Please pay attention to the following:

* trailing slashes in the URL, e.g. http://www.google.fr/ vs http://www.google.fr

* presence of "www", e.g. http://www.website.com vs http://website.com

* http:// vs https://

here is how i test my code :

1) I open iexplore

2) Manually open http://www.google.fr

3) Once page is loaded i run my script :




Sub Find_Str_Body

  Dim url, browser, page, body, str  

 

  url = "http://www.google.fr"

  strBrowser = "iexplore"    

  str = "Recherche"  

  

  Set browser = Sys.Process(strBrowser) 

  Set page = browser.Page(url) 

  

  If LCase(browser.ProcessName) = "iexplore" Then

    Set body = page.Application.Document.body  

    if(aqObject.CheckProperty(body, "innerText", cmpContains, str, False) ) then

          Log.Message("Texte trouve")

   else

         Log.Message("Texte non trouve")      

   end if

  Else ' Firefox & Chrome

    Set body = page.contentDocument.body

    if( aqObject.CheckProperty(body, "textContent", cmpContains, str, False) ) then

      Log.Message("Texte trouve")

    else

      Log.Message("Texte non trouve")      

    end if

  End If

      

End Sub 


4) i haver the error : 

Unable to find the object Page(http://www.google.fr). See Additional Information for details. 12:11:04 Normal

on line   Set page = browser.Page(url)

Hi Yvelise,



You need a trailing slash in the URL: