Re: Leer cotización de pagina de un Banco SOLUCIONADO

[D.Fernandez]

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

[Willi Quintana]

Hola, prueba con esto:

Code: Select all  Expand view

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

 

[D.Fernandez]

Hola Willi, gracias. Me muestra error en 9 líneas

Code: Select all  Expand view

(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.

[Willi Quintana]

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

[D.Fernandez]

Gracias Willi. El Paste y Copy desde el navegador me dio problemas... pero ahora tengo este error

Code: Select all  Expand view

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

[Willi Quintana]

Puede se, yo utilizo xHarbour, pero hay su equivalente

[Willi Quintana]

Con esto:

Code: Select all  Expand view

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
 

[D.Fernandez]

Gracias Willi y disculpa, no puedo ser tan caballo.
Tengo el siguiente error:

Code: Select all  Expand view

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   www.portal.brou.com.uy/cotizaciones
     [   3] = L   .F.

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

Gracias Saludos

[D.Fernandez]

Gracias Willi, esta solucionado.

Muy amable. Gracias de nuevo.

Saludos
Ruben Dario Fernandez