topic-30757

Board index FiveWin para Harbour/xHarbour Lectura de datos desde una pagina web

Posts: 670

Joined: Wed Oct 19, 2005 06:41 PM

Lectura de datos desde una pagina web
Posted: Mon May 25, 2015 05:31 PM

Estimado Colegas buenas tardes
trato de leer datos desde la pagina
https://declaraciones.sri.gob.ec/factur ... nsulta.jsp
con este codigo hasta ahora he logrado
abrir la pagina y pasalr los datos de
oDoc:formulario:opcion[0]:checked='true'
oDoc:formulario:value ="1600167793001"
oDoc:formulario:j_captcha_response:value="1234"

hasta ahi perfecto PERO como hacer que se realice la consulta y poder leer la respuesta ?
gracias por su ayuda
aca esta el codigo que estoy probando

Code (fw): Select all Collapse

#include "FiveWin.ch"
FUNCTION main()

   local oIe,oDoc,nPos

    TRY
      oIE:=CreateObject("InternetExplorer.Application")
   CATCH
      MsgStop('Error al crear el componente InternetExplorer.Application')
      RETURN NIL
   END
   oIE:Navigate( "https://declaraciones.sri.gob.ec/facturacion-internet/consultas/publico/ruc_consulta.jsp" )
   HB_IDLESLEEP( 1 )
   nPos:=0
   WHILE oIE:ReadyState <> 4 .AND. nPos<20
      HB_IDLESLEEP( 1 )
      nPos++
   END
   IF nPos>=20
      MsgStop('Tiempo de descarga superado')
      RETURN NIL
   ENDIF
   oDoc:=oIE:Document

   oDoc:formulario:opcion[0]:checked='true'
   oDoc:formulario:texto:value ="1600167793001"
   oDoc:formulario:j_captcha_response:value="1234"

   oIe:Visible:=.T.
RETURN NIL

Aclaro que este codigo copie de este mismo grupo
saludos
Wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: Lectura de datos desde una pagina web
Posted: Tue May 26, 2015 08:42 AM

Yo uso este código:

Code (fw): Select all Collapse

cUrl:="http://www.fivetechsoft.com"
oHttp:=CreateObject("winhttp.winhttprequest.5.1")
oHttp:SetTimeouts(30000,30000,30000,30000)
oHttp:Open("GET",cUrl,.F.) // también se puede usar esto oHttp:Open("PUT",cUrl,.F.)
oHttp:Send()
cTextoHTML:=oHttp:ResponseText()

En la variable cTextoHTML tienes la página web recibida.

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

wilsongamboa

Posts: 670

Joined: Wed Oct 19, 2005 06:41 PM

Re: Lectura de datos desde una pagina web
Posted: Tue May 26, 2015 01:12 PM

muchas gracias
ya lo reviso
saludos

Wilson

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com

FiveTech Support Forums

Continue the discussion