FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Codigo fuente HTML con Activex
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Codigo fuente HTML con Activex
Posted: Sat Sep 29, 2007 09:00 PM

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.

Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Codigo fuente HTML con Activex
Posted: Sat Sep 29, 2007 09:28 PM

> 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

regards, saludos

Antonio Linares
www.fivetechsoft.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Codigo fuente HTML con Activex
Posted: Mon Oct 15, 2007 06:35 AM

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

Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Codigo fuente HTML con Activex
Posted: Mon Oct 15, 2007 06:39 AM

No, no es asi

Revisa el c贸digo fuente de Class TWindow Method HardCopy :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Codigo fuente HTML con Activex
Posted: Mon Oct 15, 2007 06:51 AM
JmGarcia wrote: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 :-)
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Codigo fuente HTML con Activex
Posted: Mon Oct 15, 2007 06:56 AM
Antonio Linares wrote:Revisa el c贸digo fuente de Class TWindow Method HardCopy :-)


Code: Select all Collapse
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 Collapse
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 ?
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Codigo fuente HTML con Activex
Posted: Mon Oct 15, 2007 07:18 AM

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 )

regards, saludos

Antonio Linares
www.fivetechsoft.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: Codigo fuente HTML con Activex
Posted: Wed May 14, 2008 10:17 AM
JmGarcia wrote: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.
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Codigo fuente HTML con Activex
Posted: Thu May 15, 2008 08:53 AM
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.
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Codigo fuente HTML con Activex
Posted: Thu May 15, 2008 09:07 PM

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.

Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Codigo fuente HTML con Activex
Posted: Sat May 17, 2008 06:33 PM
He encontrado que con el Createobject("InternetExplorer.Application"), consultando el MSDN, tiene objetos Navigate2 y Document, asi pues podemos hacer esto:

Code: Select all Collapse
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
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions