Codigo fuente HTML con Activex

[JmGarcia]

Estoy leyendo paginas HTML con Activex, ejemplo oActiveX:Do("Navigate2",alltrim(cURL)), y con un Timer voy refrescando el contenido de la visualizacion.

Me gustarian hacer 2 cosas con Activex:
Quedarme con un Print-Screen (JPG) del contenido de la ventana.
Quedarme con el codigo HTML (el texto ASCII) de la pagina llamada.

[Antonio Linares]

> Quedarme con un Print-Screen (JPG) del contenido de la ventana.

oWnd:HardCopy( [<nZoom>] )

ó

oActiveX:HardCopy( [<nZoom>] )

> Quedarme con el codigo HTML (el texto ASCII) de la pagina llamada.

Tendrás que buscar (en google) alguna propiedad del ActiveX que te de acceso al HTML mostrado

[JmGarcia]

Supongo que tanto oWnd:HardCopy([<nZoom>]) como oActiveX:HardCopy([<nZoom>]) me devuelven un string con el contenido del JPG.
¿ Es asi ?

[Antonio Linares]

No, no es asi

Revisa el código fuente de Class TWindow Method HardCopy

[JmGarcia]

Supongo que tanto oWnd:HardCopy([<nZoom>]) como oActiveX:HardCopy([<nZoom>]) me devuelven un string con el contenido del JPG.
¿ Es asi ?

Pues he comprobado que tanto uno como otro lo que me hacen el llamar a la impresora y sacarme un hardcopy por impresora.
Sigo como estaba

[JmGarcia]

Revisa el código fuente de Class TWindow Method HardCopy

Code: Select all  Expand view

METHOD HardCopy( nScale, lUser ) CLASS TWindow

   local oPrn

   DEFAULT lUser := .t.

   if lUser
      PRINT oPrn NAME ::cTitle FROM USER
   else
      PRINT oPrn NAME ::cTitle
   endif

      PAGE
         ::Refresh()
         SysRefresh()                      // Let Windows process
         ::Print( oPrn, 0, 0, nScale )
      ENDPAGE
   ENDPRINT

return nil

Code: Select all  Expand view

METHOD Print( oTarget, nRow, nCol, nScale ) CLASS TWindow

   local lNew := .f.

   DEFAULT nRow := 0, nCol := 0, nScale := 4

   if ::bPrint != nil
      Eval( ::bPrint, Self )
      return nil
   endif

   if oTarget == nil
      lNew = .t.
      PRINTER oTarget NAME ::GetText()
         PAGE
         SysRefresh()
   endif

   WndPrint( ::hWnd, oTarget:hDC, nRow, nCol, nScale )

   if lNew
         ENDPAGE
      ENDPRINT
   endif

return nil

¿ Alguna pista ?

[Antonio Linares]

Te refieres a que quieres guardar la imagen de la ventana ?

Entonces usa oWnd:SaveToBmp( cFileName )

Se crea un fichero en disco, que luego puedes "cargar" en memoria como una cadena usando MemoRead( cFileName )

[JmGarcia]

Estoy leyendo paginas HTML con Activex, ejemplo oActiveX:Do("Navigate2",alltrim(cURL)), y con un Timer voy refrescando el contenido de la visualizacion.
Me gustarian hacer 2 cosas con Activex:
Quedarme con un Print-Screen (JPG) del contenido de la ventana.
Quedarme con el codigo HTML (el texto ASCII) de la pagina llamada.

Pues eso, que como cojo el texto HTML de una url llamada asi oActiveX:Do("Navigate2",alltrim(cURL))
Gracias.

[Biel EA6DD]

Hola Jm, desde ActiveX no se como recuerar el código HTML, pero lo puedes conseguir usando la clase tWebClient puedes conseguir el código HMTL, en este post http://fivetechsoft.com/forums/viewtopic.php?t=2862&postdays=0&postorder=asc&start=0 hay un ejemplo aportado por James Bott.

[JmGarcia]

Tengo un problema añadido... necesito que se mantenga el envio de COCKIES para poder validarme contra servidores que las usan.
Con el ActiveX lo consigo pero con la clase Turl no funciona lo de las cokies siembargo si funciona lo del codigo fuente HMTL.

[JmGarcia]

He encontrado que con el Createobject("InternetExplorer.Application"), consultando el MSDN, tiene objetos Navigate2 y Document, asi pues podemos hacer esto:

Code: Select all  Expand view

funcion main()
   local oIE,cTXT,cHTML
   oIE:=Createobject("InternetExplorer.Application")
   oIE:Navigate2("http://www.fivetechsoft.com")
   do While oIE:busy
   enddo
   cTXT:=oIE:Document:body:innerHTML() // Formato texto
   cHTML:=oIE:Document:body:innerText() // Formato HTML
   .../...
   oIE:Quit()
return nil