FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Re: Leer cotizaci贸n de pagina de un Banco SOLUCIONADO
Posts: 555
Joined: Wed Jul 31, 2013 01:14 PM
Re: Leer cotizaci贸n de pagina de un Banco SOLUCIONADO
Posted: Fri Jul 07, 2017 06:16 PM

Amigos:
Es posible leer la cotizaci贸n del D贸lar de un banco.
Por ejemplo de esta p谩gina

https://www.portal.brou.com.uy/cotizaciones

Muchas gracias.
Saludos
Ruben Dario Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Leer cotizaci贸n de pagina de un Banco
Posted: Fri Jul 07, 2017 07:25 PM
Hola, prueba con esto:
Code (fw): Select all Collapse
FUNCTION LeeDatosWeb(cUrl, nModo)
LOCAL cPageContent:="Error: " + cUrl + " No Hallado o Tiempo Agotado..."
LOCAL oConn
DEFAULT nModo := 2

IF Upper(Left(cUrl,4))#"HTTP"
   cUrl:="http://"+cUrl
ENDIF

TRY

   oConn := TipClientHttp():New(TURL():New(cUrl))
   oConn:nConnTimeout := 20000
   //oConn:nDefaultPort := 9150                             // para tor

   IF oConn:Open(cURL)
      cPageContent := oConn:ReadAll()
      oConn:Close()
   ENDIF

  CATCH
   cPageContent:="Error en apertura de " + cUrl

END

RETURN cPageContent     // esta variable contiene el texto del web
Posts: 555
Joined: Wed Jul 31, 2013 01:14 PM
Re: Leer cotizaci贸n de pagina de un Banco
Posted: Fri Jul 07, 2017 09:08 PM
Hola Willi, gracias. Me muestra error en 9 l铆neas

Code (fw): Select all Collapse
(2788) Error E0030  Syntax error "syntax error at '聽'"
(2793) Error E0030  Syntax error "syntax error at '聽'"
(2794) Error E0030  Syntax error "syntax error at '聽'"
(2795) Error E0030  Syntax error "syntax error at '聽'"
(2797) Error E0030  Syntax error "syntax error at '聽'"
(2798) Error E0030  Syntax error "syntax error at '聽'"
(2799) Error E0030  Syntax error "syntax error at '聽'"
(2800) Error E0030  Syntax error "syntax error at '聽'"
(2802) Error E0030  Syntax error "syntax error at '聽'"
(2807) Error E0030  Syntax error "syntax error at '聽'"

FUNCTION LEERCOTIZACION()
LOCAL curl:="www.portal.brou.com.uy/cotizaciones"
LOCAL nModo:=2 ,cPagina

MsgInfo()
cPagina := LEERDATOSWEB(cUrl,nModo)

MsgList(cPagina)

RETURN(.F.)

//---------------------------------------------------------------------------//

FUNCTION LeeDatosWeb(cUrl, nModo)
LOCAL cPageContent:="Error: " + cUrl + " No Hallado o Tiempo Agotado..."
LOCAL oConn
DEFAULT nModo := 2

IF Upper(Left(cUrl,4))#"HTTP"
聽 聽cUrl:="https://"+cUrl
ENDIF

TRY

聽 聽oConn := TipClientHttp():New(TURL():New(cUrl))
聽 聽oConn:nConnTimeout := 20000
聽 聽//oConn:nDefaultPort := 9150 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 // para tor

聽 聽IF oConn:Open(cURL)
聽 聽 聽 cPageContent := oConn:ReadAll()
聽 聽 聽 oConn:Close()
聽 聽ENDIF

聽 CATCH
聽 聽cPageContent:="Error en apertura de " + cUrl

END

RETURN cPageContent

Quiz谩s me falta alg煤n include y/o lib.

Gracias Willi.
Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Leer cotizaci贸n de pagina de un Banco
Posted: Fri Jul 07, 2017 09:18 PM

Hola,
no hace falta nada,,,,, ve que la url no tenga caracteres raros....
o que el resultado los tenga....

Posts: 555
Joined: Wed Jul 31, 2013 01:14 PM
Re: Leer cotizaci贸n de pagina de un Banco
Posted: Fri Jul 07, 2017 10:12 PM
Gracias Willi. El Paste y Copy desde el navegador me dio problemas... pero ahora tengo este error
Code (fw): Select all Collapse
Application
===========
   Path and name: C:\Fuentes\omegainmo\omegainmo.Exe (32 bits)
   Size: 5,778,944 bytes
   Compiler version: Harbour 3.2.0dev (r1703231115)
   FiveWin  version: FWH 17.06
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 12 secs 
   Error occurred at: 07/07/2017, 19:09:19
   Error description: Error BASE/1081  Operation not supported: TIPCLIENTHTTP:new()
   Args:
     [   1] = O   TIPCLIENTHTTP
     [   2] = C   https


Uso Harbour,. quiz谩s por ah铆 anda la cosa.

Saludos y gracias.
Ruben Dario Fernandez
Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Leer cotizaci贸n de pagina de un Banco
Posted: Fri Jul 07, 2017 10:30 PM

Puede se, yo utilizo xHarbour, pero hay su equivalente

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Leer cotizaci贸n de pagina de un Banco
Posted: Fri Jul 07, 2017 10:34 PM
Con esto:
Code (fw): Select all Collapse
cUrl:="www.portal.brou.com.uy/cotizaciones"
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()
? cTextoHTML
Posts: 555
Joined: Wed Jul 31, 2013 01:14 PM
Re: Leer cotizaci贸n de pagina de un Banco
Posted: Fri Jul 07, 2017 11:40 PM
Gracias Willi y disculpa, no puedo ser tan caballo.
Tengo el siguiente error:
Code (fw): Select all Collapse
Application
===========
   Path and name: C:\Fuentes\omegainmo\omegainmo.Exe (32 bits)
   Size: 5,713,408 bytes
   Compiler version: Harbour 3.2.0dev (r1703231115)
   FiveWin  version: FWH 17.06
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 7 secs 
   Error occurred at: 07/07/2017, 20:39:11
   Error description: (DOS Error -2147352567) WINOLE/1007  La direcci贸n URL no usa un protocolo reconocido
 (0x80072EE6): WinHttp.WinHttpRequest
   Args:
     [   1] = C   GET
     [   2] = C   <!-- w --><a class="postlink" href="http://www.portal.brou.com.uy/cotizaciones">www.portal.brou.com.uy/cotizaciones</a><!-- w -->
     [   3] = L   .F.

Stack Calls
===========
   Called from:  => TOLEAUTO:OPEN( 0 )


Gracias Saludos
Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay
Posts: 555
Joined: Wed Jul 31, 2013 01:14 PM
Re: Leer cotizaci贸n de pagina de un Banco SOLUCIONADO
Posted: Fri Jul 07, 2017 11:46 PM

Gracias Willi, esta solucionado.

Muy amable. Gracias de nuevo.

Saludos
Ruben Dario Fernandez

Dario Fernandez

FWH 2501, Harbour, MVS2022 Community, MySql & MariaDB, Dbf/Cdx VSCode.

Maldonado - Uruguay

Continue the discussion